Arithmetic/Integer: Difference between revisions
Content added Content deleted
(Arithmetic/Integer in Tiny BASIC) |
|||
| Line 988: | Line 988: | ||
70 PRINT "REMAINDER OR MODULO:";A%;"%";B%;"=";A%-INT(A%/B%)*B% |
70 PRINT "REMAINDER OR MODULO:";A%;"%";B%;"=";A%-INT(A%/B%)*B% |
||
80 PRINT "POWER:";A%;"^";B%;"=";A%^B%</syntaxhighlight> |
80 PRINT "POWER:";A%;"^";B%;"=";A%^B%</syntaxhighlight> |
||
==={{Header|Tiny BASIC}}=== |
|||
<syntaxhighlight lang="Tiny BASIC"> LET A = 5 |
|||
LET B = 3 |
|||
PRINT "A = ", A, ", B = ", B |
|||
PRINT "" |
|||
PRINT A," + ",B," = ", A+B |
|||
PRINT A," - ",B," = ", A-B |
|||
PRINT A," * ",B," = ", A*B |
|||
PRINT A," / ",B," = ", A/B |
|||
PRINT A," % ",B," = ", A-(A/B)*B |
|||
REM Exponent calculation |
|||
LET X = 1 |
|||
LET E = 0 |
|||
10 IF X >= B THEN GOTO 30 |
|||
LET T = E |
|||
IF E < A THEN LET E = A*A |
|||
IF T < A THEN GOTO 20 |
|||
IF E >= A THEN LET E = E*A |
|||
20 LET X = X+1 |
|||
GOTO 10 |
|||
30 PRINT A," ^ ",B," = ", E |
|||
END</syntaxhighlight> |
|||
==={{header|True BASIC}}=== |
==={{header|True BASIC}}=== |
||
| Line 1,007: | Line 1,030: | ||
END |
END |
||
</syntaxhighlight> |
</syntaxhighlight> |
||
==={{header|QBasic}}=== |
==={{header|QBasic}}=== |
||
{{works with|QuickBasic|4.5}} |
{{works with|QuickBasic|4.5}} |
||