Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Видеокурс программиста и крэкера 5D 2O17
(актуальность: август 2O17)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как преобразовать числовое значение в римскую интерпретацию

Передайте данной функции любую десятичную величину (1...3999), и она возвратит строку, содержащую точное значение в римской транскрипции.


 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS