Преобразование десятичного числа в римское :: Статьи по Delphi - Iguana Software

This version of the page http://igp.org.ua/articles/a177/ (0.0.0.0) stored by archive.org.ua. It represents a snapshot of the page as of 2007-02-18. The original page over time could change.

Преобразование десятичного числа в римское :: Статьи по Delphi - Iguana Software - IGP.ORG.UA

Поиск по базе статей :

Изменено минимальное разрешение сайта на 1024x768
Подробнее...

Вспоминаем старый добрый DOS и времена 80-х! ;)
Подробнее...

Рекомендуем книгу!

Orig:http://www.bambook.com/book1/images/oly4443.jpg

Справочник Delphi: Базовые классы

В книге описываются основные свойства, методы и события базовых классов среды разработки приложений Delphi. Дается четкое представление о процедурах, функциях и исключительных ситуациях языка Object Pascal, а также сведения об объектах, объектно-ориентиро...

Преобразование десятичного числа в римское

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