Question

vfp编程问题

for循环_

1. 求解“水仙花”数。“水仙花”数是一个三位整数，组成该数的每一位数字之立方和等于此数自身。
如 153 = 13 + 53 + 33
2. 求解10000以内的守数。守数的定义：一个数其平方数的尾数是其自身该数称为守数。
如：5、6、25、……。
3. 一个百万富翁遇到一陌生人，陌生人找他谈一个换钱的计划，该计划的内容如下：我每天给你十万元，而你第一天只需给我一分钱，第二天我仍给你十万元，你给我二分钱，第三天我还给你十万元，你才给我四分钱，……，以后你每天给我的钱是前一天的两倍，直到满一个月(30天)。百万富翁很高兴，欣然接受了这个契约。请编写一个程序计算这一个月中陌生人给了百万富翁多少钱，百万富翁给陌生人多少钱。

大侠帮帮忙~

Answer 1

1、
clear
?"100-999之间的水仙花数有："
for i=100 to 999
k=int(i/100)
m=(int(i/10))%10
n=i%10
if k^3+m^3+n^3=i
??alltrim(str(i))+space(2)
endif
endfor

2、
clear
?"10000以内的守数有："
for i=1 to 10000
k=alltrim(str(int(i*i)))
if right(k,len(alltrim(str(i)))=alltrim(str(i))
??i
endif
endfor

3、
clear
a=0
b=0
for i=1 to 30
a=a+10000000
b=b+2^(i-1)
endfor
?"这一个月中，陌生人给百万富翁",a/100,"元"
?"这一个月中，百万富翁给陌生人",b/100,"元"

Answer 2

1、
clear
?"100-999之间的水仙花数有："
for i=100 to 999
k=int(i/100)
m=(int(i/10))%10
n=i%10
if k^3+m^3+n^3=i
??alltrim(str(i))+space(2)
endif
endfor

2、
clear
?"10000以内的守数有："
for i=1 to 10000
k=alltrim(str(int(i*i)))
if right(k,len(alltrim(str(i)))=alltrim(str(i))
??i
endif
endfor

3、
clear
a=0
b=0
for i=1 to 30
a=a+10000000
b=b+2^(i-1)
endfor
?"这一个月中，陌生人给百万富翁",a/100,"元"
?"这一个月中，百万富翁给陌生人",b/100,"元" .. 大概如此