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" 会出现什么情况?

 

 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值