作业帮 > 综合 > 作业

用QBASIC编程:输入正整数N,及N个正整数,计算并输出这N个正整数的最大公约数

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/20 22:04:11
用QBASIC编程:输入正整数N,及N个正整数,计算并输出这N个正整数的最大公约数
输入正整数N,及N个正整数,计算并输出这N个正整数的最大公约数
得用高二的编程方法
太难的我也看不懂啊
CLS
DO
INPUT x
LOOP UNTIL x = INT(x) and x>0
DIM a(x)
FOR i = 1 TO x
DO
INPUT a(i)
LOOP UNTIL a(i)=int a(i) and a(i)>0
NEXT i
small = a(1)
FOR i = 1 TO x
IF a(i) < small THEN small = a(i)
NEXT i
FOR i = small TO 1 STEP -1
mark = 0
FOR j = 1 TO x
IF a(j) MOD i 0 THEN mark = 1
NEXT j
IF mark = 0 THEN PRINT "gongyueshu"; i: EXIT FOR
NEXT i
END
完全手打,加分哈!
小弟或小妹,我在上高二时这已经会了!不知道你所说的高二的方法是什么!你可以提供一下大致是什么算法!或用什么结构!实在不行Q我:409186537