Delphi (перевод чисел в Римские)

Тема в разделе "Pascal and Delphi", создана пользователем -, 26 янв 2010.

  1. Гость

    Вот такое задание. :KillMe:
    Надо перевести целое число от 1 до 1999 и вывести на экран римскими цифрами..
    Хотябы объясните коротко , как сделать лучше... :) :ithx:
     
  2. ????

    ???? Гость

    нагуглено
    Код (Text):
    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 (перевод чисел
  1. cybert
    Ответов:
    0
    Просмотров:
    99
  2. Shouldercannon
    Ответов:
    0
    Просмотров:
    160
  3. antares
    Ответов:
    0
    Просмотров:
    444
  4. Луиза
    Ответов:
    0
    Просмотров:
    297
  5. avizer
    Ответов:
    5
    Просмотров:
    732

Поделиться этой страницей