Arithmetic/Integer: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added words to the REXX section header.) |
Spintronic (talk | contribs) (→{{header|BASIC}}: Added True BASIC example.) |
||
Line 389: | Line 389: | ||
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%</lang> |
80 PRINT "POWER:";A%;"^";B%;"=";A%^B%</lang> |
||
==={{header|True BASIC}}=== |
|||
<lang basic> |
|||
! RosettaCode: Integer Arithmetic |
|||
! True BASIC v6.007 |
|||
! Translated from BaCon example. |
|||
PROGRAM Integer_Arithmetic |
|||
INPUT PROMPT "Enter integer A: ": a |
|||
INPUT PROMPT "Enter integer B: ": b |
|||
PRINT |
|||
PRINT a;" + ";b;" is ";a+b |
|||
PRINT a;" - ";b;" is ";a-b |
|||
PRINT a;" * ";b;" is ";a*b |
|||
PRINT a;" / ";b;" is ";INT(a/b); |
|||
PRINT "MOD(";a;", ";b;") is "; MOD(a,b) |
|||
PRINT "POW(";a;", ";b;") is ";INT(a^b) |
|||
GET KEY done |
|||
END |
|||
</lang> |
|||
=={{header|BASIC256}}== |
=={{header|BASIC256}}== |