VFP趣味编程:猜数之谜

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

 
发布了24 篇原创文章 · 获赞 5 · 访问量 6万+

猜你喜欢

转载自blog.csdn.net/cdbqss1/article/details/1547227
今日推荐