23 lines
439 B
Plaintext
23 lines
439 B
Plaintext
10 DEF FN MOD(A) = INT((A / B - INT(A / B)) * B + .05) * SGN(A / B)
|
|
20 INPUT"M=";M%
|
|
30 INPUT"N=";N%
|
|
40 GOSUB 100
|
|
50 PRINT R
|
|
60 END
|
|
|
|
100 REM LEAST COMMON MULTIPLE M% N%
|
|
110 R = 0
|
|
120 IF M% = 0 OR N% = 0 THEN RETURN
|
|
130 A% = M% : B% = N% : GOSUB 200"GCD
|
|
140 R = ABS(M%*N%)/R
|
|
150 RETURN
|
|
|
|
200 REM GCD ITERATIVE EUCLID A% B%
|
|
210 FOR B = B% TO 0 STEP 0
|
|
220 C% = A%
|
|
230 A% = B
|
|
240 B = FN MOD(C%)
|
|
250 NEXT B
|
|
260 R = ABS(A%)
|
|
270 RETURN
|