Римские цифры

[NewMen]

Условие: Дано римское число(например LCXXVII) нужно перевести его в обычное,т.е. получить 177.....

[Филантроп]

var
c:integer;
s:string;
begin
readln(s);
c:=0;
for i:=1 to length(s) do begin
case s[i] of 
'L':c:=c+100;
'X':c:=c+10;
'C':c:=c+50;
'V': c:=c+5;
'I':c:=c+1;
{1000,500,... и т.д. добавь по аналогии}
end;
writeln(c);
readln;
end.

[Serge_Bliznykov]

{Источник: "Наука и жизнь" N12 1986 cтр. 95 }
{Алгоритм: В. Птицын г.Москва }

Перевод из арабских цифр в римские и обратно...

[NewMen]

СПС!!!!!

[reaper14]

я конечно понимаю, что этим постам уже 1238189072 лет. Но код не правильный. ни там ни там. а что, если будет число LCXXIX ? по вашим алгоритмам получится 181, хотя на самом деле, это число 179

[denisbrain]

Сообщение от reaper14

я конечно понимаю, что этим постам уже 1238189072 лет. Но код не правильный. ни там ни там. а что, если будет число LCXXIX ? по вашим алгоритмам получится 181, хотя на самом деле, это число 179

http://netsoftware.ucoz.ru/news/pere.../2012-03-21-22

в римском счислении
177 = CLXXVII
77 = LXXVII
181 = CLXXXI