delphi 如何将整数值转换为罗马数字表示形式

function IntToRoman(num: Cardinal): string;

const

Nvals = 13;

vals: array [1..Nvals] of word =

(1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);

roms: array [1..Nvals] of string[2] =

('I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C',

'CD', 'D', 'CM', 'M');

var

b: 1..Nvals;

begin

result := '';

b := Nvals;

while num > 0 do

begin

while vals[b] > num do

dec(b);

dec (num, vals[b]);

result := result + roms[b]

end;

procedure TForm2.Button1Click(Sender: TObject);

var

N: Cardinal;

R: string;

begin

for N := 1 to 10 do

begin

R := IntToRoman(N);

memo1.Lines.Add(Format('%d'#9'%s', [N, R]));

end;

推荐分享