vf求100到200间的质数,每行显示十个数
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/17 15:33:13
vf求100到200间的质数,每行显示十个数
vf求100到200间的质数,每行显示十个数
vf求100到200间的质数,每行显示十个数
已经上机验证过了,正确.
clear
n=0
"100到200之内的所有素数："
for i=101 to 200 step 2
x=0
for j=2 to i-1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
n=n+1
if n%10=1
str(i,4)
else
str(i,4)
endif
endif
endfor
return
clear
r=0
?"100到200之间的素数为："
for i=100 to 200
x=0
for j=2 to i-1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
if r%10=0 &&每行显示十个数
...
全部展开
clear
r=0
?"100到200之间的素数为："
for i=100 to 200
x=0
for j=2 to i-1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
if r%10=0 &&每行显示十个数
?alltrim(str(i))+" "
else
??alltrim(str(i))+" "
endif
r=r+1
endif
endfor
收起
clear
?"100到200之内的所有素数："
for i=100 to 200
x=0
for j=2 to i－1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
??alltrim(str(i))+space(2)
...
全部展开
clear
?"100到200之内的所有素数："
for i=100 to 200
x=0
for j=2 to i－1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
??alltrim(str(i))+space(2)
endif
endfor
收起