Перевод из римской в арабскую с\с

@WERTTSEA · Регистрация: 19.10.2009

Студворк — интернет-сервис помощи студентам

Надо взять из файла римские числа и записать в другой фаил арабские Помогите плз

@Puporev · 19.10.2009, 19:40

В файле как записаны, пример приведите.

@WERTTSEA · 19.10.2009, 19:56 **[ТС]**

XI
CCCXL
IX

Добавлено через 2 минуты
Вот у меня есть нароботки просто со строкой без файла может это просто удастся использовать

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
program rim_chis;
var
s:string;
p,i:integer;
a:array [1..255] of integer;
begin
writeln('Введите число');
readln(s);
p:=0;
for i :=1 to length(s) do
case Upcase(s[i]) of
'I':a[i]:=1;
'V':a[i]:=5;
'X':a[i]:=10;
'L':a[i]:=50;
'C':a[i]:=100;
else
begin
writeln('ВВод неверен');
readln;
exit;
end;
end;
for i :=1 to length(s) do
write(a[i]:4);
writeln;
i:= length(s);
while i>=1 do
 case a[i] of
  1:
   begin
   p:=p+a[i];
   i:=i-1;
   end;
  10:
    if (a[i-1]=1 ) and (i>1)
    then
     begin
     p:=p+9;
     i:=i-2;
     end
    else
     if  (a[i-1]>=10) and (i>1)
      then
      begin
      p:=p+10;
      i:=i-1;
      end
     else
     begin
     writeln('ВВод неверен');
     readln;
     exit;
     end;
  5:
   if (a[i-1]=1) and (i>1)
    then
     begin
     p:=p+4;
     i:=i-2;
     end
    else
     if (a[i-1] > 5) and(i>1)
      then
      begin
      p:=p+5;
      i:=i-1;
      end
     else
     begin
     writeln('ВВод неверен');
     readln;
     exit;
     end;
    50:
    if (a[i-1]=10)and(i>1) then
       begin
       p:=p+40;
       i:=i-2;
       end
       else
        if (a[i-1]>50)and(i>1) then
        begin
         p:=p+50;
      i:=i-1;
      end
     else
     begin
     writeln('ВВод неверен');
     readln;
     exit;
     end;
    100:
    if (a[i-1]=10) and(i>1)
    then
     begin
     p:=p+90;
     i:=i-2;
     end
    else
     if  (a[i-1]>=100) and (i>1)
      then
      begin
      p:=p+100;
      i:=i-1;
      end
     else
     begin
     writeln('ВВод неверен');
     readln;
     exit;
     end;
   end;
writeln('Результат равен   ',p);
readln;
end.

но она не работает

@BasicMan · 19.10.2009, 20:03

Перевод из арабской в римскую систему и наоборот

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
{ Copyright MM Andrew Usachov }
 
Const
 
R: Array[1..13] of String[2] =
 
('I','IV','V','IX','X','XL','L','XC','C','CD','D','CM','M');
 
A: Array[1..13] of Integer=
 
(1,4,5,9,10,40,50,90,100,400,500,900,1000);
 
Function Roman(N : Integer) : String;
 
Var Result : String;
 
    i      : Integer;
 
begin
 
 Result := '';
 
 i := 13;
 
 While N >0 do
 
 begin
 
   While A[i] >N do Dec(i);
 
   Result := Result + R[i];
 
   Dec(N, A[i]);
 
 end;
 
 Roman := Result;
 
end;
 
Function Arabic(S : String) : Integer;
 
Var Result : Integer;
 
    i, p   : Integer;
 
begin
 
  Arabic := -1;
 
  Result := 0;
 
  i := 13;
 
  p := 1;
 
  While p <=Length(S) do
 
  begin
 
    While Copy(S, p, Length(R[i])) <>R[i] do
 
    begin
 
      Dec(i);
 
      If i = 0 then Exit;
 
    end;
 
    Result := Result + A[i];
 
    p := p + Length(R[i]);
 
  end;
 
  If Roman(Result) = S then Arabic := Result
 
end;
 
Var N, Err : Integer;
 
    S : String;
 
BEGIN
 
 repeat
 
   ReadLn(S);
 
   If S = '' then Break;
 
   Val(S, N, Err);
 
   If Err = 0 then
 
     WriteLn(Roman(N))
 
   else
 
     WriteLn(Arabic(S));
 
 until false;
 
END.

UTFG

@Puporev · 19.10.2009, 20:36

Продолжил как у автора, добавил файлы. Так вроде проще и короче.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
program rim_chis;
uses crt;
var f,g:text;
    s:string;
    p,i:integer;
    a:array [1..255] of integer;
begin
clrscr;
assign(f,'rim.txt');
reset(f);
assign(g,'arab.txt');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  for i :=1 to length(s) do
  case Upcase(s[i]) of
  'I':a[i]:=1;
  'V':a[i]:=5;
  'X':a[i]:=10;
  'L':a[i]:=50;
  'C':a[i]:=100;
  'D':a[i]:=500;
  'M':a[i]:=1000;
  end;
  p:=a[1];
  for i :=2 to length(s) do
   begin
    p:=p+a[i];
    if a[i-1]<a[i] then p:=p-2*a[i-1];
   end;
 writeln(g,p);
end;
close(f);
close(g);
write('FINISH!');
readln
end.

@WERTTSEA · 19.10.2009, 20:50 **[ТС]**

Спасибо

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@WERTTSEA 2 / 2 / 1 Регистрация: 19.10.2009 Сообщений: 7

	Перевод из римской в арабскую с\с 19.10.2009, 19:32. Показов 2243. Ответов 5 Метки нет (Все метки) Надо взять из файла римские числа и записать в другой фаил арабские Помогите плз 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.10.2009, 19:40
	В файле как записаны, пример приведите. 1

@WERTTSEA 2 / 2 / 1 Регистрация: 19.10.2009 Сообщений: 7
	19.10.2009, 20:50 [ТС]
	Спасибо 0