24 lines
479 B
Plaintext
24 lines
479 B
Plaintext
OPTION BASE 1
|
|
|
|
GLOBAL roman$[] = { "M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I" }
|
|
GLOBAL number[] = { 1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1 }
|
|
|
|
FUNCTION toroman$(value)
|
|
|
|
LOCAL result$
|
|
|
|
DOTIMES UBOUND(number)
|
|
WHILE value >= number[_]
|
|
result$ = result$ & roman$[_]
|
|
DECR value, number[_]
|
|
WEND
|
|
DONE
|
|
|
|
RETURN result$
|
|
|
|
ENDFUNC
|
|
|
|
PRINT toroman$(1990)
|
|
PRINT toroman$(2008)
|
|
PRINT toroman$(1666)
|