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