Перевод из десятичной записи в римскую, Написать программу, печатающую по заданному значению десятичной цифры Опции

[goos23]

Написать программу, печатающую по заданному значению десятичной цифры ее эквивалент в римской нумерации
а) используя (если возможно) оператор варианта; б) моделируя (а) другими структурами управления.

Сообщение отредактировано: Lapp - 27.02.2012 7:37

[Lapp]

по заданному значению десятичной цифры ее эквивалент

Ответь плз, тебя действительно интересуют только _цифры_, или это просто оговорка? Может, речь идет все же о числах?

Если только цифры, то можно как-то так, не мудрствуя лукаво..

  case d of
    0: s:= '';
    1: s:= 'I';
    2: s:= 'II';
    3: s:= 'III';
    4: s:= 'IV';
    5: s:= 'V';
    6: s:= 'VI';
    7: s:= 'VII';
    8: s:= 'VIII';
    9: s:= 'IX';
  end;
  write(s);

Если же речь идет о _числах_, то все будет значительно сложнее.. Хотя, до 255 можно использовать абсолютно идентичную конструкцию .
Так что определись, плз.