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