Sayıyı Roma Rakamı na çevirme

[aslangeri]

Bulduğum siteyi tam hatırlamıyorum bilen arkadaşlar belirtirlerse sevinirim.

Kod: Tümünü seç

function LongToRoman( LI: LongInt ): String;
const
  Nummers: Array[1..13] of Integer =
    ( 1, 4, 5, 9, 10, 40, 50, 90, 100,
      400, 500, 900, 1000);
  Romeins: Array[1..13] of string =
    ( 'I', 'IV', 'V', 'IX', 'X', 'XL',
      'L', 'XC', 'C', 'CD', 'D', 'CM', 'M' );
var
  i: Integer;
begin
  Result := '';
  for i := 13 downto 1 do
    while ( LI >= Nummers[i] ) do
    begin
      LI := LI - Nummers[i];
      Result := Result + Romeins[i];
    end;
end;