22 lines
500 B
Text
22 lines
500 B
Text
100 CLS
|
|
110 DIM T(32,2)
|
|
120 LET A = 580
|
|
130 LET B = 34
|
|
140 LET I = 1
|
|
150 LET T(I,1) = 1
|
|
160 LET T(I,2) = B
|
|
170 WHILE T(I,2) < A
|
|
180 LET I = I+1
|
|
190 LET T(I,1) = T(I-1,1)*2
|
|
200 LET T(I,2) = T(I-1,2)*2
|
|
210 WEND
|
|
220 LET I = I-1
|
|
230 LET R = T(I,1)
|
|
240 LET S = T(I,2)
|
|
250 WHILE I > 1
|
|
260 LET I = I-1
|
|
270 IF T(I,2)+S <= A THEN LET R = R+T(I,1): LET S = S+T(I,2)
|
|
280 WEND
|
|
290 PRINT STR$(A);" divided by ";STR$(B);" using Egytian division";
|
|
300 PRINT " returns ";STR$(R);" mod(ulus) ";STR$(A-S)
|
|
310 END
|