Arithmetic/Integer: Difference between revisions
Content added Content deleted
(Added Dart) |
(Added various BASIC dialects (Chipmunk Basic, GW-BASIC, MSX Basic, Quite BASIC, Minimal BASIC ans XBasic)) |
||
Line 978: | Line 978: | ||
PRINT "MOD(", a%, ", ", b%, ") is ", MOD(a%, b%), ", same sign as first operand" |
PRINT "MOD(", a%, ", ", b%, ") is ", MOD(a%, b%), ", same sign as first operand" |
||
PRINT "POW(", a%, ", ", b%, ") is ", INT(POW(a%, b%))</syntaxhighlight> |
PRINT "POW(", a%, ", ", b%, ") is ", INT(POW(a%, b%))</syntaxhighlight> |
||
==={{header|Chipmunk Basic}}=== |
|||
{{works with|Chipmunk Basic|3.6.4}} |
|||
<syntaxhighlight lang="qbasic">10 input "Enter two integers separated by a comma: ";a,b |
|||
20 print " Sum: ";a+b |
|||
30 print "Difference: ";a-b |
|||
40 print " Product: ";a*b |
|||
50 print " Quontent: ";int(a/b) |
|||
60 print " Remainder: ";a mod b |
|||
70 print " Power: ";a^b</syntaxhighlight> |
|||
==={{header|Commodore BASIC}}=== |
==={{header|Commodore BASIC}}=== |
||
Line 988: | Line 998: | ||
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|GW-BASIC}}=== |
|||
{{works with|PC-BASIC|any}} |
|||
{{works with|BASICA}} |
|||
<syntaxhighlight lang="qbasic">10 INPUT "Enter two integers separated by a comma: ";A, B |
|||
20 PRINT " Sum:"; A + B |
|||
30 PRINT "Difference:"; A - B |
|||
40 PRINT " Product:"; A * B |
|||
50 PRINT " Quontent:"; A \ B |
|||
60 PRINT " Remainder:"; A MOD B |
|||
70 PRINT " Power:"; A ^ B</syntaxhighlight> |
|||
==={{header|Minimal BASIC}}=== |
|||
<syntaxhighlight lang="qbasic">10 PRINT "ENTER A INTEGER" |
|||
20 INPUT A |
|||
30 PRINT "ENTER ANOTHER INTEGER" |
|||
40 INPUT B |
|||
50 PRINT " SUM: "; A + B |
|||
60 PRINT "DIFFERENCE: "; A - B |
|||
70 PRINT " PRODUCT: "; A * B |
|||
80 PRINT " QUONTENT: "; INT(A / B) |
|||
90 PRINT " REMAINDER: "; A - INT(A / B ) * B |
|||
100 PRINT " POWER:"; A ^ B |
|||
⚫ | |||
==={{header|MSX Basic}}=== |
|||
{{works with|MSX BASIC|any}} |
|||
<syntaxhighlight lang="qbasic">10 INPUT "Enter two integers separated by a comma: ";A, B |
|||
20 PRINT " Sum:"; A + B |
|||
30 PRINT "Difference:"; A - B |
|||
40 PRINT " Product:"; A * B |
|||
50 PRINT " Quontent:"; A \ B |
|||
60 PRINT " Remainder:"; A MOD B |
|||
70 PRINT " Power:"; A ^ B</syntaxhighlight> |
|||
==={{header|Quite BASIC}}=== |
|||
<syntaxhighlight lang="qbasic">10 INPUT "enter a integer"; A |
|||
20 INPUT "enter another integer"; B |
|||
30 PRINT " Sum: "; A + B |
|||
40 PRINT "Difference: "; A - B |
|||
50 PRINT " Product: "; A * B |
|||
60 PRINT " Quontent: "; INT(A / B) |
|||
70 PRINT " Remainder: "; A - INT(A / B ) * B</syntaxhighlight> |
|||
==={{Header|Tiny BASIC}}=== |
==={{Header|Tiny BASIC}}=== |
||
Line 1,028: | Line 1,081: | ||
PRINT "POW(";a;", ";b;") is ";INT(a^b) |
PRINT "POW(";a;", ";b;") is ";INT(a^b) |
||
GET KEY done |
GET KEY done |
||
END</syntaxhighlight> |
|||
END |
|||
⚫ | |||
==={{header|QBasic}}=== |
==={{header|QBasic}}=== |
||
Line 1,043: | Line 1,095: | ||
Remainder sign matches: first operand |
Remainder sign matches: first operand |
||
==={{header|XBasic}}=== |
|||
{{works with|Windows XBasic}} |
|||
<syntaxhighlight lang="qbasic">PROGRAM "IntegerArithmetic" |
|||
VERSION "0.0000" |
|||
DECLARE FUNCTION Entry () |
|||
FUNCTION Entry () |
|||
a$ = INLINE$("Enter integer A: ") |
|||
a = SLONG(a$) |
|||
b$ = INLINE$("Enter integer B: ") |
|||
b = SLONG(b$) |
|||
PRINT |
|||
PRINT " Sum:"; a + b |
|||
PRINT "Difference:"; a - b |
|||
PRINT " Product:"; a * b |
|||
PRINT " Quontent:"; a / b |
|||
PRINT " Remainder:"; a MOD b |
|||
PRINT " Power:"; a ** b |
|||
END FUNCTION |
|||
END PROGRAM</syntaxhighlight> |
|||
=={{header|BASIC256}}== |
=={{header|BASIC256}}== |