17 lines
460 B
Plaintext
17 lines
460 B
Plaintext
print 1666+" = "+convert$(1666)
|
|
print 2008+" = "+convert$(2008)
|
|
print 1001+" = "+convert$(1001)
|
|
print 1999+" = "+convert$(1999)
|
|
|
|
function convert$(value)
|
|
convert$=""
|
|
arabic = {1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1 }
|
|
roman$ = {"M", "CM", "D","CD", "C","XC","L","XL","X","IX","V","IV","I"}
|
|
for i = 0 to 12
|
|
while value >= arabic[i]
|
|
convert$ += roman$[i]
|
|
value = value - arabic[i]
|
|
end while
|
|
next i
|
|
end function
|