任意一个大于10的自然数,减去它的各位数之和,在所得的差中,随意圈去某位不等于零的数字,只告诉你没有被圈去的数字,就能知道被圈去数字是几。
分析:以四位数为例,设四位数abcd用多项式来表示为1000a+100b+10c+d;减去各位数之和,即减去a+b+c+d;所得的差是999a+99b+9c=9(111a+11b+c),所以这个差一定是9的倍数。源程序ex10_1.prg如下:
SET TALK OFF
CLEA
CLEA ALL
DO WHILE .T.
s = 0
i = 1
?
? " 请输入数值,输入完毕后再输入-1 "
DO WHILE i <= 8
INPUT " 输入对方告诉的值: " TO x
IF x < 0 OR x > 10 && 注1
EXIT
ENDIF
s = s + x
i = i + 1
ENDDO
? ""
Y = INT(s / 9 ) + 1
? " 被圈掉的数为: " + STR( 9 * Y - s, 2 )
? ""
ACCEPT " 是否继续猜? " TO yn
IF UPPE(yn) = " Y " && 注2
LOOP
ELSE
EXIT
ENDIF
ENDDO
思考:① 注1这行语句起什么作用?如果不加x<10这个判断会有什么后果?
② 注2这行语句的作用是什么?如果改为 IF yn="Y" 会出现什么情况?