QBASIC语言编程 题目如下

1.输出100以内的素数。
提示:
INPUT N
X = INT (SQR (N))
FOR I=2 TO X
R=N MOD I
IF R=0 THEN F=1:EXIT FOR
NEXT I
IF F=1 THEN PRINT "NO" ELSE PRINT "YES"
END
按照上面判断素数的程序,编一下第一题。
2.求M和N的最大公约数。
如果你有书,注意只许用循环语句前的所有语句。因为我后面的还没有学会呢!

CLS
INPUT M,N
DO
R= M MOD N
M=N
N=R
LOOP UNTIL R=0
PRINT ,;
END
这是do循环。可以吗?不行的话我给你重编一下
温馨提示:答案为网友推荐,仅供参考
第1个回答  2008-11-03
cls
dim m as long,n as long
input m,n
if n<m then
swap m,n
end if
for i=m to 1 step -1
if m mod i=0 and n mod i=0 then
print i
exit for
end if
next i
end
以上为程序源代码,SWAP 为交换数值的函数,因为要最大的所以要从较小数到着循环,EXIT FOR 为退出循环体的意思,MOD 为求余数的意思,如果不懂的话就这样:
T=M
M=N
N=T
相似回答
大家正在搜