VFP编程找出100以内的所有素数,并统计出前20个的和

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/19 05:30:21
VFP编程找出100以内的所有素数,并统计出前20个的和
x) s xg:=meh`dҧmg

VFP编程找出100以内的所有素数,并统计出前20个的和
VFP编程找出100以内的所有素数,并统计出前20个的和

VFP编程找出100以内的所有素数,并统计出前20个的和
Clear
Set Talk On
ms = 0 &&和
j = 0 &&素数个数
m.flag = 0 &&标记一个数是否为素数
For i = 2 To 100
\x05m.flag = 0
\x05For k = 2 To i - 1
\x05\x05If i % k == 0
\x05\x05\x05m.flag = 1
\x05\x05\x05Exit
\x05\x05Endif
\x05Next
\x05If m.flag == 0
\x05\x05*?i&& 如果要显示素数的值,去掉前面的*号
\x05\x05j = j + 1
\x05\x05If j