Roman numerals/Encode: Difference between revisions

Content added Content deleted
(Roman numerals/Encode in Gambas)
Line 1,422: Line 1,422:
33 = XXXIII
33 = XXXIII
</pre>
</pre>

==={{header|Gambas}}===
{{trans|FreeBASIC}}
<syntaxhighlight lang="vbnet">Public Sub Main()
'Testing
Print "2009 = "; toRoman(2009)
Print "1666 = "; toRoman(1666)
Print "3888 = "; toRoman(3888)

End

Function toRoman(value As Integer) As String

Dim result As String
Dim arabic As Integer[] = [1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1]
Dim roman As String[] = ["M", "CM", "D", "CD", "C", "XC", "L" , "XL", "X", "IX", "V", "IV", "I"]

For i As Integer = 0 To arabic.Max
Do While value >= arabic[i]
result &= roman[i]
value -= arabic[i]
Loop
Next
Return result

End Function</syntaxhighlight>
{{out}}
<pre>Same as FreeBASIC entry.</pre>


=== {{header|GW-BASIC}} ===
=== {{header|GW-BASIC}} ===