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

Add tasks for all the new languages

Browse source
This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

26
Task/Arithmetic-Integer/FutureBasic/arithmetic-integer.futurebasic Normal file
View file

@ -0,0 +1,26 @@
include "ConsoleWindow"
dim as Str31 a, b
dim as long i1, i2
input "Enter the first integer: "; a
print
input "Enter the second integer: "; b
print : print
i1 = val(a) : i2 = val(b)
print " Number 1:"; i1
print " Number 2:"; i2
print
print " Add: "; i1; " +"; i2; " ="; i1 + i2
print " Subtract: "; i1; " -"; i2; " ="; i1 - i2
print " Multiply: "; i1; " *"; i2; " ="; i1 * i2
if i2 != 0
print " Divide: "; i1; " /"; i2; " ="; i1 / i2
print i1; " mod"; i2; " ="; i1 MOD i2; " remainder"
print i1; " raised to power of"; i2; " ="; i1 ^ i2
else
print "Cannot divide by zero."
end if