Anonymous user
Ethiopian multiplication: Difference between revisions
Improve GW-BASIC program
(→{{header|UNIX Shell}}: Add more shells.) |
(Improve GW-BASIC program) |
||
Line 936:
=={{header|GW-BASIC}}==
20 DEF FNH(A)=INT(A/2)
▲<lang qbasic>10 X=17:Y=34:TOT=0
30 DEF FND(A)=2*A
20 WHILE X>=1▼
40 X=17:Y=34:TOT=0
30 PRINT X,▼
40 IF (X+1) MOD 2=0 THEN TOT=TOT+Y:PRINT Y ELSE PRINT▼
50 X=INT(X/2):Y=2*Y▼
60 WEND▼
70 PRINT "=", TOT</lang>▼
=={{header|Haskell}}==
| |||