嘉兴王冯娟:设计一程序用visual foxpro

来源:百度文库 编辑:神马品牌网 时间:2024/04/29 17:59:03
输出1000内水仙花
水仙花为ABC
ABC=A^3+B^3+C^3

clear
set talk off
for i=100 to 999 step 1
n=str(i,3)
if i=((val(substr(n,1,1)))^3+(val(substr(n,2,1)))^3+(val(substr(n,3,1)))^3)
?i
endif
endfor
set talk on
return