Составьте программы для перевода арабских чисел в римские и для обратной операции

@programmman · Регистрация: 20.10.2012

Составьте программы для перевода арабских чисел в римские и для обратной операции. Например, 255=C C L V=сто+сто+пятьдесят+пять.

HighPredator · 01.11.2012, 10:28

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

@Santi1 · 03.11.2012, 00:11

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

Составьте программы для перевода арабских чисел в римские и для обратной операции. Например, 255=C C L V=сто+сто+пятьдесят+пять.

Pascal

uses crt;
var a:string;
    i,j:integer;
    b:array[1..50] of integer;
    s:longint;
begin
clrscr;
writeln('Rimskoe chislo');
readln(a);
for i:=1 to length(a) do
    begin
      if (a[i]<>'I') and (a[i]<>'V') and (a[i]<>'X')
      and (a[i]<>'L')and (a[i]<>'C') and (a[i]<>'D') and (a[i]<>'M')
      then halt;
      if a[i]='I'then b[i]:=1;
      if a[i]='V'then b[i]:=5;
      if a[i]='X'then b[i]:=10;
      if a[i]='L'then b[i]:=50;
      if a[i]='C'then b[i]:=100;
      if a[i]='D'then b[i]:=500;
      if a[i]='M'then b[i]:=1000;
    end;
s:=0;
for i:=1 to length(a) do
   begin
     s:=s+b[i];
     if(i>1)and(b[i-1]<b[i]) then s:=s-2*b[i-1];
   end;
write(s);
readln;
end.

@programmman 0 / 0 / 0 Регистрация: 20.10.2012 Сообщений: 21
		1
	Составьте программы для перевода арабских чисел в римские и для обратной операции 01.11.2012, 09:44. Просмотров 1612. Ответов 2 Метки нет (Все метки) Составьте программы для перевода арабских чисел в римские и для обратной операции. Например, 255=C C L V=сто+сто+пятьдесят+пять. 0

HighPredator 5980 / 2106 / 737 Регистрация: 10.12.2010 Сообщений: 5,923 Записей в блоге: 3
	01.11.2012, 10:28	2
	Много раз обсуждалось. Используйте поиск: программы для перевода арабских чисел в римские и для обратной операции Программа перевода арабских чисел в римские! 0

Опции темы

Составьте программы для перевода арабских чисел в римские и для обратной операции

Решение