Egyptian division: Difference between revisions
Content added Content deleted
(Added various BASIC dialects (Applesoft BASIC, Chipmunk Basic, GW-BASIC and MSX Basic)) |
(Added Run BASIC, Just BASIC ans XBasic) |
||
Line 837: | Line 837: | ||
300 PRINT " returns ";STR$(R);" mod(ulus) ";STR$(A-S) |
300 PRINT " returns ";STR$(R);" mod(ulus) ";STR$(A-S) |
||
310 END</syntaxhighlight> |
310 END</syntaxhighlight> |
||
==={{header|Just BASIC}}=== |
|||
Same code as [[#QBasic|QBasic]] |
|||
==={{header|MSX Basic}}=== |
==={{header|MSX Basic}}=== |
||
Line 900: | Line 903: | ||
{{works with|QBasic|1.1}} |
{{works with|QBasic|1.1}} |
||
{{works with|QuickBasic|4.5}} |
{{works with|QuickBasic|4.5}} |
||
{{works with|Run BASIC}} |
|||
{{works with|Just BASIC}} |
|||
{{works with|Liberty BASIC}} |
|||
<syntaxhighlight lang="qbasic">DIM table(32, 2) |
<syntaxhighlight lang="qbasic">DIM table(32, 2) |
||
dividend = 580 |
dividend = 580 |
||
Line 929: | Line 935: | ||
{{out}} |
{{out}} |
||
<pre>Same as FreeBASIC entry.</pre> |
<pre>Same as FreeBASIC entry.</pre> |
||
==={{header|Run BASIC}}=== |
|||
Same code as [[#QBasic|QBasic]] |
|||
==={{header|True BASIC}}=== |
==={{header|True BASIC}}=== |
||
Line 1,014: | Line 1,023: | ||
{{out}} |
{{out}} |
||
<pre>580 / 34 = 17 rem 2</pre> |
<pre>580 / 34 = 17 rem 2</pre> |
||
==={{header|XBasic}}=== |
|||
{{works with|Windows XBasic}} |
|||
<syntaxhighlight lang="qbasic">PROGRAM "Egyptian division" |
|||
VERSION "0.0000" |
|||
DECLARE FUNCTION Entry () |
|||
FUNCTION Entry () |
|||
DIM T[32,2] |
|||
A = 580 |
|||
B = 34 |
|||
I = 1 |
|||
T[I,1] = 1 |
|||
T[I,2] = B |
|||
DO WHILE T[I,2] < A |
|||
INC I |
|||
T[I,1] = T[I-1,1]*2 |
|||
T[I,2] = T[I-1,2]*2 |
|||
LOOP |
|||
DEC I |
|||
R = T[I,1] |
|||
S = T[I,2] |
|||
DO WHILE I > 1 |
|||
DEC I |
|||
IF T[I,2]+S <= A THEN |
|||
R = R+T[I,1] |
|||
S = S+T[I,2] |
|||
END IF |
|||
LOOP |
|||
PRINT A;" divided by";B;" using Egytian division"; |
|||
PRINT " returns";R;" mod(ulus)"; A-S |
|||
END FUNCTION |
|||
END PROGRAM</syntaxhighlight> |
|||
==={{header|Yabasic}}=== |
==={{header|Yabasic}}=== |