function dectorom(dec: longint): string;
const
nums : array[1..13] of integer =
(1, 4, 5, 9, 10, 40, 50, 90, 100,
400, 500, 900, 1000);
romannums: array[1..13] of string =
('i', 'iv', 'v', 'ix', 'x', 'xl',
'l', 'xc', 'c', 'cd', 'd', 'cm', 'm');
vari: integer;
begin
result := '';
for i := 13 downto 1 do
while (dec >= nums[i]) do
begin
dec := dec - nums[i];
result := result + romannums[i];
end;
end; 附：
2、羅馬數字介紹
羅馬數字求解
include include int main int n,i,s,k,sum char a 3000 while scanf s a eof n strlen a sum 0 k 1000 for i 0 iswitch a i case m s 1000 break case d s 500 ...
羅馬數字轉換
class solution object def romantoint self,s type s str rtype int 使用整數轉羅馬數的兩個列表 num tuple 1000,500,100,50,10,5,1 roman tuple m d c l x v i 使用dict和zip方法...
羅馬數字轉化
先看位置計數的定義 一種表達數字的系統，數字按照順序排列 每個數字有乙個位值，數字的值是每個數字和位值的乘積之和。電腦科學導論 p25 羅馬數字計數法 相同的數字連寫，所表示的數等於這些數字相加得到的數，如 3 小的數字在大的數字的右邊，所表示的數等於這些數字相加得到的數，如 8 12 小的數字 限...