aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September Morn Update

Browse source
This commit is contained in:
Ingy döt Net 2019-09-12 10:33:56 -07:00
parent 4e2d22a71d
commit aac6731f2c
6856 changed files with 141342 additions and 21127 deletions
Download patch file Download diff file Expand all files Collapse all files

22
Task/Arithmetic-Integer/BASIC/arithmetic-integer-4.basic
View file

@ -1,15 +1,7 @@
! 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
function math(a!, b!)
print a + b
print a - b
print a * b
print a / b
print a mod b
end function