花了一节课时间,输出自定义起始数和终数之间的素数
basic吧
全部回复
仅看楼主
level 4
QHearting 楼主
自定义起始数和终数,输出之间所有的素数,初学者花了1节课的时间呵呵。
有一个不足:起始数必须大于3,终数随便,但不要太大,到了后面程序要执行很多计算,会很慢。代码:
2012年09月12日 02点09分 1
level 4
QHearting 楼主
Cls
Print " CALCULATE PRIME"
Print ""
Goto @first
@error1 print "Error ! a>=3 ! Please input again !"
@first Print "Please imput the first number:";
Input a
If a<3 then goto @error1
Goto @last
@error2 print "Error ! b>a ! Please input again !"
@last Print "Please imput the last number:";
Input b
If b<=a then goto @error2
2012年09月12日 02点09分 2
level 4
QHearting 楼主
Cls
Print ""
Print " Input right !"
Print "Calculatting... Please wait..."
Print ""
For i = a to b
p=0
j=2
While j<i
If i%j=0 then p=1
j=j+1
Wend
If p=0 then print " ";i;
Next
Print ""
Print ""
Print "Successful !"
End
2012年09月12日 02点09分 3
1