Преобразовать в паскаль ABC

@Nickolay0512 · Регистрация: 26.09.2013

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

Помогите преобразовать код в паскаль abc. Работает только в ABC.net.

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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
program lol10_2;
// подкдлючаем модуль
uses
  crt;
//объявляем свой тип данных описываем динамичееские переменные
type
  line = ^node;
  node = Record
    x: integer;
    next: line;
  end;
//объявляем переменныее
var
  k: integer;
  E1, E2, s: line;
  b: boolean;
//процедура вывода на экран элементов списка
//входит список Е
procedure out_spisok(E1: line);
begin
  while E1 <> nil do
  begin
    s := E1^.next;
    write(E1^.x, ' ');
    E1 := s;
  end;
  writeln;
end;
//процедура проверки ввода данных
//входит введенное чилос К
procedure eror_control(var k: integer);
var
  b: boolean;
begin
  repeat
    b := false;
    try
      readln(k);
    except
      on System.Exception do
        b := true;   
    end;
    if b = true then writeln('Ошибка, попробуйте ввести еще раз!'); 
  until b = false;
end;
//процедура меню для продолжени работы или окончания
//ввод переменной которая приведет к закрытию или рестарту программы
procedure menu2(var k: integer);
begin
  writeln;
  writeln('Для дальнейшей работы программы ведите');
  writeln('3 - начать заново');
  writeln('0 - выхд');
  repeat
    try
      readln(k);
    except
      on System.Exception do 
        writeln('Ошибка, попробуйте ввести еще раз!'); 
    end;
  until (K = 0) or (K = 3);
end;
//процедура меню выбор действий над списками 
//ввод переменной которач приведет к определенному решению задачи
procedure menu(var k: integer);
begin
  writeln;
  writeln('Для дальнейшей работы программы ведите');
  Writeln('1 - вставить в список L за первым вхождением эемента E все елементы списка L1');
  Writeln('2 - удаление из списка L все элементы, которые есть в списке L1');
  writeln('3 - начать заново');
  writeln('0 - выхд');
  repeat
    try
      readln(k);
    except
      on System.Exception do 
        writeln('Ошибка, попробуйте ввести еще раз!'); 
    end;
  until (K >= 0) and (K < 4);
end;
//процедура ввода элементо в список
//входит начальный элемент списка
procedure Wri(var E: Line);
var
  s: line;
  n, m, i: integer;
begin
  s := nil;
  writeln('Введите колличество елементов списка ');
  eror_control(n);
  Writeln('Введите елементы списка');
  for i := 1 to n do
  begin
    new(E);
    E^.next := s;
    eror_control(m);
    E^.x := m; 
    s := E;  
  end;
end;
//очищаем динамическую память
//входит список
procedure deleteKesh(var E: line);
begin
  while E <> nil do
  begin
    s := E^.next;
    dispose(E);
    E := s;
  end;
end;
//процедура вствки
//входят два списка
procedure Ins(var E1, E2: line);
var
  g, f: line;
begin
  g := E1^.next;
  E1^.next := E2;
  f := E2^.next;
  while f^.next <> nil do
    f := f^.next;
  f^.next := g;
end;
//процедура удаления совподающих едлементов списка из Е1
//входят два списка
procedure deleteE(var E1: line; E2: line);
var
  up2, z, s1, s2: line;
begin
  while E1 <> nil do
  begin
    s1 := E1^.next;
    up2 := E2;
    if E1 <> nil then 
      while E2 <> nil do
      begin
        s2 := E2^.next;
        if E1^.x = E2^.x then 
        begin
          z := s1;
          s1 := E1^.next;
          dispose(z);
          s2 := nil;
        end
        else
        if (s2 = nil) then
          write(E1^.x, ' ');
        E2 := s2;
      end;
    E2 := up2;
    E1 := s1
  end;
  writeln;
end;
//основное тело программы
begin
  repeat
    clrscr;
    wri(E1);
    wri(E2);
    writeln('Введенный списовк');
    out_spisok(E1);
    out_spisok(E2);
    menu(k);
    if k = 1 then begin //помещаем в первый элемент весь список Е2 
      if (E1 = nil) or (E2 = nil) then
      begin
        writeln('Элемент отсутствует и вставка не производиться');
        menu(k);
      end
      else begin
        ins(E1, E2);
        out_spisok(E1);
        menu2(k);
      end;
    end;
    if k = 2 then //удалям совподающие элементы из Е1
    begin
      deleteE(e1, e2);
      menu2(k);
    end;
    if k = 0 then b := true;//начать сначала 
    if k = 3 then b := false;//закончить программу
    deleteKesh(E1);//удаление динамической памяти
    deleteKesh(E2); 
  until b = true;
end.

@Puporev · 11.12.2013, 15:23

Синтаксис перегнал, но в программе ошибки

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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
program lol10_2;
// подкдлючаем модуль
uses
  crt;
//объявляем свой тип данных описываем динамичееские переменные
type
  line = ^node;
  node = Record
    x: integer;
    next: line;
  end;
//объявляем переменныее
var
  k: integer;
  E1, E2, s: line;
  b: boolean;
//процедура вывода на экран элементов списка
//входит список Е
procedure out_spisok(E1: line);
begin
  while E1 <> nil do
  begin
    s := E1^.next;
    write(E1^.x, ' ');
    E1 := s;
  end;
  writeln;
end;
//процедура проверки ввода данных
//входит введенное чилос К
procedure eror_control(var k: integer);
var s:string;
    c:integer;
begin
  repeat
   readln(s);
   val(s,k,c);
   if c<>0 then writeln('Ошибка, попробуйте ввести еще раз!');
  until c=0;
end;
//процедура меню для продолжени работы или окончания
//ввод переменной которая приведет к закрытию или рестарту программы
procedure menu2(var k: integer);
var s:string;
    c:integer;
begin
  writeln;
  writeln('Для дальнейшей работы программы ведите');
  writeln('3 - начать заново');
  writeln('0 - выхд');
  repeat
   readln(s);
   val(s,k,c);
   if c<>0 then writeln('Ошибка, попробуйте ввести еще раз!');
  until (c=0)and((K = 0) or (K = 3));
end;
//процедура меню выбор действий над списками
//ввод переменной которач приведет к определенному решению задачи
procedure menu(var k: integer);
var s:string;
    c:integer;
begin
  writeln;
  writeln('Для дальнейшей работы программы ведите');
  Writeln('1 - вставить в список L за первым вхождением эемента E все елементы списка L1');
  Writeln('2 - удаление из списка L все элементы, которые есть в списке L1');
  writeln('3 - начать заново');
  writeln('0 - выхд');
  repeat
   readln(s);
   val(s,k,c);
   if c<>0 then writeln('Ошибка, попробуйте ввести еще раз!');
  until(c=0)and(K >= 0) and (K < 4);
end;
//процедура ввода элементо в список
//входит начальный элемент списка
procedure Wri(var E: Line);
var
  s: line;
  n, m, i: integer;
begin
  s := nil;
  writeln('Введите колличество елементов списка ');
  eror_control(n);
  Writeln('Введите елементы списка');
  for i := 1 to n do
  begin
    new(E);
    E^.next := s;
    eror_control(m);
    E^.x := m;
    s := E;
  end;
end;
//очищаем динамическую память
//входит список
procedure deleteKesh(var E: line);
begin
  while E <> nil do
  begin
    s := E^.next;
    dispose(E);
    E := s;
  end;
end;
//процедура вствки
//входят два списка
procedure Ins(var E1, E2: line);
var
  g, f: line;
begin
  g := E1^.next;
  E1^.next := E2;
  f := E2^.next;
  while f^.next <> nil do
    f := f^.next;
  f^.next := g;
end;
//процедура удаления совподающих едлементов списка из Е1
//входят два списка
procedure deleteE(var E1: line; E2: line);
var
  up2, z, s1, s2: line;
begin
  while E1 <> nil do
  begin
    s1 := E1^.next;
    up2 := E2;
    if E1 <> nil then
      while E2 <> nil do
      begin
        s2 := E2^.next;
        if E1^.x = E2^.x then
        begin
          z := s1;
          s1 := E1^.next;
          dispose(z);
          s2 := nil;
        end
        else
        if (s2 = nil) then
          write(E1^.x, ' ');
        E2 := s2;
      end;
    E2 := up2;
    E1 := s1
  end;
  writeln;
end;
//основное тело программы
begin
  repeat
    clrscr;
    wri(E1);
    wri(E2);
    writeln('Введенный списовк');
    out_spisok(E1);
    out_spisok(E2);
    menu(k);
    if k = 1 then begin //помещаем в первый элемент весь список Е2
      if (E1 = nil) or (E2 = nil) then
      begin
        writeln('Элемент отсутствует и вставка не производиться');
        menu(k);
      end
      else begin
        ins(E1, E2);
        out_spisok(E1);
        menu2(k);
      end;
    end;
    if k = 2 then //удалям совподающие элементы из Е1
    begin
      deleteE(e1, e2);
      menu2(k);
    end;
    if k = 0 then b := true;//начать сначала
    if k = 3 then b := false;//закончить программу
    deleteKesh(E1);//удаление динамической памяти
    deleteKesh(E2);
  until b = true;
end.

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение/ Перевод https:/ / **********/ gallery/ thinkpad-x220-tablet-porn-gzoEAjs . . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .