Арабские в Римские

Материал из DRKB

Арабские->Римские[править | править код]

{ **** UBPFD *********** by kladovka.net.ru ****
>> Конвертация : Римские -> арабские ; Арабские->Римские

Зависимости: 
Автор:       Gua, fbsdd@ukr.net, ICQ:141585495, Simferopol
Copyright:   
Дата:        03 мая 2002 г.
********************************************** }

const
R: Array[1..13] of String[2] =
 ('I','IV','V','IX','X','XL','L','XC','C','CD','D','CM','M');
A: Array[1..13] of Integer=
 (1,4,5,9,10,40,50,90,100,400,500,900,1000);


function ArabicToRoman(N: Integer): string; // Арабские в римские
var
  i : Integer;
begin
  Result := '';
  i := 13;
  while N >0 do
  begin
    while A[i] > N do Dec(i);
    Result := Result + R[i];
    Dec(N, A[i]);
  end;
end;


Source: kladovka.net.ru
ID: 00225