您所在位置：主题：精度误差 vs bug?BASIC爱好者都来桃战下
codepk
[专家分：2800] 发布于 2005-03-19 09:49:00
做如下程序
a# = .1 * 10
a! = .1 * 10
a% = .1 * 10
CLS
IF a# = .1 * 10 THEN PRINT "true!" ELSE PRINT "false!"
IF a! = .1 * 10 THEN PRINT "true!" ELSE PRINT "false!"
IF a% = .1 * 10 THEN PRINT "true!" ELSE PRINT "false!"
IF a# = 1 THEN PRINT "true!" ELSE PRINT "false!"
IF a! = 1 THEN PRINT "true!" ELSE PRINT "false!"
IF a% = .1 * 10 THEN PRINT "true!" ELSE PRINT "false!"
IF .1 * 10 = 1 THEN PRINT "true!" ELSE PRINT "false!"
1.请不运行程序,说出结果
2.然后运行程序，看是否和你想的一样
3.请说出结果的理由
4.请用非m$的编译器运行一遍（如freebasic)
5.如果发疯的话，请打120
a# = .1 * 10
a! = .1 * 10
a% = .1 * 10
CLS
IF a# = .1 * 10 THEN PRINT "true!" ELSE PRINT "false!"
IF a! = .1 * 10 THEN PRINT "true!" ELSE PRINT "false!"
IF a% = .1 * 10 THEN PRINT "true!" ELSE PRINT "false!"
IF a# = 1 THEN PRINT "true!" ELSE PRINT "false!"
IF a! = 1 THEN PRINT "true!" ELSE PRINT "false!"
IF a% = .1 * 10 THEN PRINT "true!" ELSE PRINT "false!"
IF .1 * 10 = 1 THEN PRINT "true!" ELSE PRINT "false!"
1.请不运行程序,说出结果
2.然后运行程序，看是否和你想的一样
3.请说出结果的理由
4.请用非m$的编译器运行一遍（如freebasic)
5.如果发疯的话，请打120
