Roman numerals/Encode: Difference between revisions
m
→{{header|FutureBasic}}
Line 2,964:
=={{header|FutureBasic}}==
<lang futurebasic>window 1
local fn DecimaltoRoman( decimal as short ) as Str15
Line 2,974 ⟶ 2,973:
arabic(0) = 1000 : arabic(1) = 900 : arabic(2) = 500 : arabic(3) = 400
arabic(4) = 100 : arabic(5) = 90 : arabic(6) = 50 : arabic(7) = 40
arabic(8) = 10 : arabic(9) = 9 : arabic(10) = 5 : arabic(11) = 4: arabic(12) = 1
Line 2,980 ⟶ 2,979:
roman(4) = "C" : roman(5) = "XC" : roman(6) = "L" : roman(7) = "XL"
roman(8) = "X" : roman(9) = "IX" : roman(10) = "V" : roman(11) = "IV" : roman(12) = "I"
for i = 0 to 12
next i
if result == "" then result = "Zepherium"
Line 2,999 ⟶ 2,998:
print " 513 = "; fn DecimaltoRoman( 513 )
print " 33 = "; fn DecimaltoRoman( 33 )
HandleEvents</lang>
Output:
| |||