23 lines
359 B
QBasic
23 lines
359 B
QBasic
|
10 PRINT "A","B","C","GCD"
|
||
|
|
20 READ A,B,C
|
||
|
|
30 LET X = A
|
||
|
|
40 LET Y = B
|
||
|
|
50 GOSUB 200
|
||
|
|
60 LET X = G
|
||
|
|
70 LET Y = C
|
||
|
|
80 GOSUB 200
|
||
|
|
90 PRINT A, B, C, G
|
||
|
|
100 GOTO 20
|
||
|
|
110 DATA 60, 90, 120
|
||
|
|
120 DATA 38456, 64872, 98765
|
||
|
|
130 DATA 32, 384, 72
|
||
|
|
200 LET Q = INT(X/Y)
|
||
|
|
210 LET R = X - Q*Y
|
||
|
|
220 IF R = 0 THEN 300
|
||
|
|
230 LET X = Y
|
||
|
|
240 LET Y = R
|
||
|
|
250 GOTO 200
|
||
|
|
300 LET G = Y
|
||
|
|
310 RETURN
|
||
|
|
999 END
|