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
| type
ptr = ^block; //Создаем тип ptr , который является указателем на на структуру блок
block = record // block хранит в себе значение и указатель на следующий элемент
value: char;
next: ptr;
end;
var
head: ptr; // Создаем начало и конец очереди (голова и хвост)
treal: ptr;
procedure make_queue(var head: ptr;var treal: ptr;value: char); // процедура создания очереди
var
elem: ptr;
begin
new(elem); //Выделяем память
elem^.value := value; //Присваеваем какое то значение
elem^.next := nil;
head := elem; //Голова и хвост равны одному и тому же элементу , когда всего один элемент в очереди
treal := elem; //Представь себе очередь в магаз кто первый зашел , тот первый и вышел
end;
procedure add(var head: ptr;var treal: ptr;value: char);
var
elem: ptr;
begin
new(elem); //выделяем память под новый элемент
elem^.value := value; //Присваеваем ему переданное значение
elem^.next := nil;
if head^.next = nil then //Если до этого был один элемент в очереди
begin
head^.next := elem; //Первый элемент указывает на добавленный сейчас
treal := elem; //И он же становиться хвостом
end
else
begin
treal^.next := elem; //Иначе мы ставим следующим от последнего элемента , добавленный
treal := elem; //И делаем последним его
end;
end;
function get(var head: ptr;var treal: ptr;var res: char):boolean; //в эту функцию мы передаем помимо стэка переменную в которую запишем
var //последний элемент очереди , если очередь не пуста
elem: ptr;
begin
if (head <> nil)then //Тут все просто , пока бошка не пустая
begin
elem := head; //присваеваем созданнаму указателю первый элемент
get := true; //Возвращаем тру , если очередь не пуста
res := head^.value; //Присваиваем значение
head := head^.next; //Делаем Первым элементом элемент стоящий за первым
dispose(elem); //Удаляем элемент , который был первым
end;
end;
procedure simple(head: ptr;treal:ptr;namef: string;nameg: string);
var
fout: text; //Создаем фаловую переменную
fin: text;
val: char;
tr: ptr; //и элемент очереди
begin
assign(fin,namef); //привязываем переменную к файлу
reset(fin); //Открываем для чтения
assign(fout,nameg); //Тут привязываем файл к переменной
rewrite(fout); //создаем файл
if not eof(fin) then //Пока не конец файла
begin
read(fin,val); //Создаем очередб из первого элемента файла
make_queue(head,treal,val);
end;
while not eof(fin) do //Пока не цонец фала закидываю его элементы в очередь
begin
read(fin,val);
add(head,treal,val);
if (ord(val) = 10)or(ord(val) = 13) then //Если встретился переход на новую строку
begin
tr := treal; //Сохраняю положение хвоста
while(get(head,treal,val)) do //Пока можно сичтать из очереди значение
begin
if (val <> '+')and(val <> '-')and(val <> '*') then //Переписываю элементы не равные + - *
write(fout,val)
else add(head,treal,val); //Выписываю элементы + * - обратно в очередь
if(head = tr^.next) then break; //Если мы добрались до элемента который был хвостом съебываем из цикла
end;
while get(head,treal,val) do //Выводим Все оставшиеся элементы( те которые вернули в очередь) их порядок сохраняется, т.к. это очередь
write(fout,val);
writeln(fout,'');
if not eof(fin) then //Пока не конец файла
begin
read(fin,val); //Создаем очередб из первого элемента файла
make_queue(head,treal,val);
end;
end;
end;
if head <> nil then //если голова не пустая(После последней строки нет перехода на следующую)
begin
tr := treal;
while(get(head,treal,val)) do //Пока можно сичтать из очереди значение
begin
if (val <> '+')and(val <> '-')and(val <> '*') then //выписываю элементы пренадлежащие интервалу
write(fout,val)
else add(head,treal,val); //Иначе кидаю их обратно в очередь
if(head = tr^.next) then break; //Если мы добрались до элемента который был хвостом съебываем из цикла
end;
while get(head,treal,val) do //Выводим Все оставшиеся элементы( те которые вернули в очередь) их порядок сохраняется, т.к. это очередь
write(fout,val);
end;
close(fout);
close(fin);
end;
begin
simple(head,treal,'f.txt','g.txt');
end. |
(
