Ethiopian multiplication: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 288: | Line 288: | ||
INTEGER I; |
INTEGER I; |
||
BEGIN |
BEGIN |
||
DOUBLE := I |
DOUBLE := I + I; |
||
END; |
END; |
||
| Line 306: | Line 306: | ||
WHILE I >= 1 DO |
WHILE I >= 1 DO |
||
BEGIN |
BEGIN |
||
IF EVEN(I) = |
IF EVEN(I) = YES THEN |
||
BEGIN |
BEGIN |
||
IF SHOW = YES THEN WRITE(I," ----", J); |
IF SHOW = YES THEN WRITE(I," ----", J); |
||
| Line 336: | Line 336: | ||
1 544 |
1 544 |
||
= 578 |
= 578 |
||
</pre> |
</pre> |
||
=={{header|ALGOL W}}== |
=={{header|ALGOL W}}== |
||