一小时又一个小程序,rbasic输出任意数的所有因式
basic吧
全部回复
仅看楼主
level 4
QHearting 楼主
说下程序执行的内容:
输入一个数。
判断该数是否是素数,如果是素数,直接退出。如果不是素数,输出这个数的所有因式。
楼下上代码:
2012年09月12日 21点09分 1
level 4
QHearting 楼主
fun judge(num)
Jud=0
For i = 2 to num-1
If num%i=0 then h1=1
Next
If h1=0 then jud=1
Return jud
Fun end
Cls
Print " PRINT YISH"
Print "Please input the number."
Input a
Print "Judge the number is or not a prime..."
j=judge(a)
If j=1 then goto @last
Print a;"isn't a primer."
Print ""
Print a;"'s has these YISH:"
Print ""
@xun For i = 1 to a
If a%i=0 then fac2=a/i else break
Print a;"=";i;"*";fac2
If i=a then goto @end
Next
Goto @xun
@end End
@last print a;"is a prime."
Goto @end
2012年09月12日 22点09分 2
level 2
2012年09月21日 12点09分 3
1