新教材的高一数学必修第三模块22页第二个程序代码
这是个判断一个数是否为质数的Basic代码,且不谈代码的效率,代码本身都有错误,这个代码只会把小于2的数全识别为质数
原文:
INPUT "n="; n
flag = 1
IF n > 2 THEN
d = 2
WHILE d < n - 1 AND flag = 1
IF n MOD d = 0 THEN
flag = 0
ELSE
d = d + 1
END IF
WEND
ELSE '可以改为end if
IF flag = 1 THEN
PRINT n; "是质数."
ELSE
PRINT n; "不是质数"
END IF
END IF
END