|
5 CLS : PRINT " PR005:求三个数的最小公倍数": PRINT
10 INPUT "请输入三个自然数(用逗号分隔):", m, n, p
15 IF m <> INT(m) OR n <> INT(n) OR p <> INT(p) THEN 10
20 IF m <= 0 OR n <= 0 OR p <= 0 THEN 10
25 x = m: y = n: z = p
30 GOSUB 80
40 m = x * y / b: n = z
50 GOSUB 80
60 q = m * z / b: PRINT "最小公倍数:"; q
70 END
80 IF m > n THEN 100
90 a = n: b = m: GOTO 110
100 a = m: b = n
110 IF a / b = INT(a / b) THEN 140
120 c = b: b = a - b * INT(a / b): a = c
130 GOTO 110
140 RETURN
150 END |