Revision as of 10:37, 20 April 2023 (view source) PatGarrett (talk \| contribs) m (→‎{{header\|360 Assembly}}) ← Older edit		Revision as of 16:45, 28 May 2023 (view source) Chkas (talk \| contribs) (→‎{{header\|EasyLang}}) Newer edit →
Line 3,130: <syntaxhighlight lang="text"> ~~func~~proc ~~num2rom~~dec2rom ~~num~~dec . rom$ . values[] = [ 1000 900 500 400 100 90 50 40 10 9 5 4 1 ] symbol$[] = [ "M" "CM" "D" "CD" "C" "XC" "L" "XL" "X" "IX" "V" "IV" "I" ] rom$ = "" for i = 1 to len values[] while ~~num~~dec >= values[i] rom$ &= symbol$[i] ~~num~~ dec -= values[i] . . . call ~~num2rom~~dec2rom 1990 r$ print r$ call ~~num2rom~~dec2rom 2008 r$ print r$ call ~~num2rom~~dec2rom 1666 r$ print r$ </syntaxhighlight>

Roman numerals/Encode: Difference between revisions

Roman numerals/Encode (view source)