Question

用vfp 做题。输入你的学号，并判断你的学号是否为素数。（判断用子程序做）。用vfp 菜鸟的水准做，

中期试题，老师不要看出来。还有”输入学号，计算学号平方根的整数部分x，找出1到x间的水仙花数。谢。。。。。

Answer 1

水仙花数严格来说是3位数。因此，此程序只有当x>=100,和x<=999时，才计算哈
主程序
clear
input "请输入学号：" to xuehao
do sushu with xuehao
x=int(sqrt(xuehao))
if x>=100 and x<=999
for i=100 to x
bai=int(i/100)
shi=int(mod(i,100)/10)
ge=mod(i,10)
if bai^3+shi^3+ge^3=i
?i
endif
endfor
endif

子程序
sushu.prg

*sushu.prg
para sushu
p=0
for j=2 to sushu-1
if mod(sushu,j)==0
p=p+1
endif
endfor
if p=0
?"是素数。"
else
?"不是素数。"
endif