Конвертация арабских цифр в римские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; Here's the translation of the text into Russian: Функция Подпись функции
Функция принимает одиночный параметр Константы
В коде есть два константных массива: Переменные
В коде есть две переменные: Основной логик
Функция повторяется до тех пор, пока входное число Заявление возвращения
Функция возвращает строку Альтернативное решение: В современных диалектах Pascal можно использовать более компактный и читаемый подход с помощью цикла с явным индексом переменной: Функция IntToRoman конвертирует арабские цифры в римские цифры, используя таблицу соответствий арабских и римских цифр. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Преобразования ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |