function IntToRoman(num: Cardinal): string; {returns num in capital roman digits}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] ofstring[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 dobeginwhile vals[b] > num do
dec(b);
dec(num, vals[b]);
result := result + roms[b]
end;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Конвертация арабских цифр в римские", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!