用BASIC语言解决逻辑推理题目
11-08 12:37:21软件技巧
浏览次数:263次
标签:软件技巧大全,http://www.duosi8.com
用BASIC语言解决逻辑推理题目,
某地发生了一件凶杀案,凶手是A、B、C、D、E、F6人中之一.L说:凶手非A即B;M说:凶手绝不是C;N说:案发时A、B正在他家。已知L、M、N三人只有一人说对,请问谁是凶手?
解决这个问题时,关键在于对L、M、N三人的话进行分析,所以应对L、M、N三人的话建立逻辑表达式,然后用穷举法找出符合要求的情况。
这里逻辑值为真。用-1表示,假用0表示。假设某人是凶手为-1;不是凶手为0,现在可以列出L、M、N三人的逻辑表达式:L=(A=-1AND B=0) OR(A=0 AND B=-1)
M=(C=0)
N=(A=0 ANDB=0)
另外,用L+M+N=-1表示三人中只有一人说对,用A+B+C+D+E+F=-1表示6人中只有一人是凶手。程序如下:
10 FOR A=-1 TO 0
20 FOR B=-1 TO 0
30 FOR C=-1 TO 0
40 FOR D=-1 TO 0
50 FOR E=-1 TO 0
60 FOR F=-1 TO 0
70 L=(A=-1 AND B=0) OR (A=0 AND B=-1)
80 M=(C=0)
90 N=(A=0 AND B=0)
95 IF L+M+N=-1 AND A+B+C+D+E+F=-1 THEN PRINT :PRINT "A";"B";"C";"D";"E";"F":PRINT A;B;C;D;E;F
100 NEXT F
110 NEXT E
120 NEXT D
130 NEXT C
140 NEXT B
150 NEXT A
160 END
运行结果:A B C D E F
0 0-1 0 0 0
可见,C就是凶手!
掌握这种分析方法,你还可以解决更复杂的推理问题,你的电脑就会成为一位“推理专家”!
某地发生了一件凶杀案,凶手是A、B、C、D、E、F6人中之一.L说:凶手非A即B;M说:凶手绝不是C;N说:案发时A、B正在他家。已知L、M、N三人只有一人说对,请问谁是凶手?
解决这个问题时,关键在于对L、M、N三人的话进行分析,所以应对L、M、N三人的话建立逻辑表达式,然后用穷举法找出符合要求的情况。
这里逻辑值为真。用-1表示,假用0表示。假设某人是凶手为-1;不是凶手为0,现在可以列出L、M、N三人的逻辑表达式:L=(A=-1AND B=0) OR(A=0 AND B=-1)
M=(C=0)
N=(A=0 ANDB=0)
另外,用L+M+N=-1表示三人中只有一人说对,用A+B+C+D+E+F=-1表示6人中只有一人是凶手。程序如下:
10 FOR A=-1 TO 0
20 FOR B=-1 TO 0
30 FOR C=-1 TO 0
40 FOR D=-1 TO 0
50 FOR E=-1 TO 0
60 FOR F=-1 TO 0
70 L=(A=-1 AND B=0) OR (A=0 AND B=-1)
80 M=(C=0)
90 N=(A=0 AND B=0)
95 IF L+M+N=-1 AND A+B+C+D+E+F=-1 THEN PRINT :PRINT "A";"B";"C";"D";"E";"F":PRINT A;B;C;D;E;F
100 NEXT F
110 NEXT E
120 NEXT D
130 NEXT C
140 NEXT B
150 NEXT A
160 END
运行结果:A B C D E F
0 0-1 0 0 0
可见,C就是凶手!
掌握这种分析方法,你还可以解决更复杂的推理问题,你的电脑就会成为一位“推理专家”!
,用BASIC语言解决逻辑推理题目
- ·上一篇:成为迅雷会员真能提速吗
- ·下一篇:尼康17-35和16-85镜头哪款好
《用BASIC语言解决逻辑推理题目》相关文章
- › 使用BASIC的集成环境
- › 用BASIC语言解决逻辑推理题目
- › 用BASIC语言实现的动画技术举例
- 在百度中搜索相关文章:用BASIC语言解决逻辑推理题目
tag: 逻辑推理 软件技巧,软件技巧大全,电脑学习 - 软件技巧
热门推荐
- · 为何QQ总弹出安全登录验证2则
- · 多媒体升级时常见故障的处理
- · 利用硬盘驱动器号制作防扩散FOXPRO程序
- · 高速视频转换借力CUDA
- · 在KMPlayer中手动切换解码器
- · 如何突破IP加MAC绑定
- · 如何让ACDSee成为默认的图片浏览器
- · SnagIt连续抓以多个窗口
- · SnagIt直接截取灰度图片
- · Nero快速制作精美的光盘封面
- · 完美卸载XP快速卸载顽固软件
- · VoptXP测试驱动器性能
- · VirturlDriver让虚拟光驱开机时自动加载
- · 通过递归调用来搜索文件
- · AutoCAD复制粘贴图纸导致死机
- · 监控软件导致QQ无法登录
- · 提高WindowsXP启动速度的方法
- · Office 2007无法正常卸载怎么办
- · 如何用批处理一次建立或删除多个目录
- · 教你Windows百毒不侵的13个妙招
- · ATI显卡在线看电影时花屏应该如何解决