Конвертация арабских цифр в римскиеDelphi , Синтаксис , ПреобразованияКонвертация арабских цифр в римскиеАвтор: http://www.lmc-mediaagentur.de/dpool 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] of string[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 do begin while vals[b] > num do dec(b); dec(num, vals[b]); result := result + roms[b] end; end; Статья Конвертация арабских цифр в римские раздела Синтаксис Преобразования может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Преобразования ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |