VFP趣味编程:猜数之谜

来源:互联网 发布:通过阿里云搭建虚拟机 编辑:程序博客网 时间:2024/06/05 04:41

任意一个大于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" 会出现什么情况?