Roman numerals/Decode: Difference between revisions
→{{header|FutureBasic}}
Line 2,716:
=={{header|FutureBasic}}==
<lang futurebasic>window 1
local fn RomantoDecimal( roman as Str15 ) as short▼
dim as short i, n, preNum, num▼
for i = len(roman
n = 0▼
select ( fn StringCharacterAtIndex( roman, i ) )
end select
next▼
if ( n < preNum ) then num = num - n else num = num + n
▲ next
end fn = num
print @" MCMXC = "; fn RomantoDecimal( @"MCMXC" )
print @" MMVIII = "; fn RomantoDecimal( @"MMVIII" )
print @" MMXVI = "; fn RomantoDecimal( @"MMXVI" )
print @"MDCLXVI = "; fn RomantoDecimal( @"MDCLXVI" )
print @" MCMXIV = "; fn RomantoDecimal( @"MCMXIV" )
print @" DXIII = "; fn RomantoDecimal( @"DXIII" )
print @" M = "; fn RomantoDecimal( @"M" )
print @" DXIII = "; fn RomantoDecimal( @"DXIII" )
print @" XXXIII = "; fn RomantoDecimal( @"XXXIII" )
HandleEvents</lang>
Output:
|