Задача: перевод целых чисел в римские

[n0x]

Задача на Паскале:
Заданное целое число от 1 до 1999 напечатать римскими цифрами.

Помогите решить пожалуйста! =

[Virtson]

а как ты пробовал это сделать ?

[Сильванович Михаил]

Ответ на твой вопрос можно найти почти в любом FAQ.
Он есть и в DRKB 2.3 from Vit.

[n0x]

Спасибо! Пытался сначала сделать наоборот, из римских в целые, но не получилось. Вот программа:

var s: string;
  n, c, c1, i, a: integer;
begin writeln('введи число : ');
  readln(s);
  c := 0; n := 0;
  for i := 1 to length(s) do
  begin
    c1 := c;
    if s[i] = 'I' then c := 1;
    if s[i] = 'V' then c := 5;
    if s[i] = 'X' then c := 10;
    if s[i] = 'L' then c := 50;
    if s[i] = 'C' then c := 100;
    if s[i] = 'D' then c := 500;
    if s[i] = 'M' then c := 1000;
    if c > c1 then a := -2 * c1
    else a := 0;
    n := n + a + c
  end;
  writeln('ваше число = ', n)
end.

[AVer]

Вот полностью рабочее решение:

var s,n,x:integer;
    t:string;

procedure Rim(a,b:string;z:integer);
begin
while pos(a,t) <> 0 do
 begin
 delete(t,pos(a,t),1);
 n:=n+1;
 if n=z then
  begin
  t:=b+t;
  n:=0;
  end;
 end;
for s:=1 to n do
t:=t+a;
n:=0;
end;

procedure Por(sym:string);
begin
while pos(sym,t) > 0 do
begin
n:=n+1;
delete(t,pos(sym,t),1);
end;
for s:=1 to n do
t:=t+sym;
n:=0;
end;

begin
ReadLn(s);
while s > 0 do
begin
s:=s-1;
t:=t+'I';
end;
Rim('I','V',5);
Rim('V','X',2);
Rim('X','L',5);
Rim('L','C',2);
Rim('C','D',5);
Rim('D','M',2);
Por('M');
Por('D');
Por('C');
Por('L');
Por('X');
Por('V');
Por('I');
writeln(t);
readln;
end.

Только в таком случае накладывается ограничение. Максимальное число - 256. Как обойти решать тебе.