作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/28 07:22:06
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