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
| program gold;
uses
crt;
type
Tptr = ^Telem;{указательный тип данных на элемент Стека}
Telem = record {запись, состоящая из двух полей, описывающая элемент Стека}
inf: integer; {информационное поле - хранит символы}
link: Tptr; {указательное поле - ссылка на следующий элемент Стека}
end;
Tptr2 = ^Telem2;
Telem2 = record {запись, состоящая из двух полей, описывающая элемент Стека}
inf: integer; {информационное поле - хранит символы}
link: Tptr2; {указательное поле - ссылка на следующий элемент Стека}
end;
Tptr3 = ^Telem3;
Telem3 = record {запись, состоящая из двух полей, описывающая элемент Стека}
inf: integer; {информационное поле - хранит символы}
link: Tptr3; {указательное поле - ссылка на следующий элемент Стека}
end;
var
top: Tptr;
top2: Tptr2;
top3: Tptr3; {глобальная переменная - указатель на вершину Стека}
m: byte;
lg: boolean;
{Процедура: добавление элемента в вершину Стека}
{---------------------------------------------------------------------------}
procedure push;
var
p: Tptr;{вспомогательный указатель, ссылающийся на добавляемый элемент}
i:integer;
begin
new(p); {выделение памяти под добавляемый элемент}
p^.link := nil; {"привязали" линковочное поле к NIL, чтобы не было висячей ссылки}
write('Введите значение добавляемого элемента: '); {ввод значения информационного поля элемента с клавиатуры}
readln(i); {указатель добавляемого элемента поставили на первый элемент Стека}
if i mod 2 = 0 then
begin
p^.inf := i;
end;
p^.link := top; {указатель на вершину Стека top поставили на только что добавленный элемент.
В итоге, Стек находится в согласованном состоянии после добавления элемента}
top := p;
end;
{Процедура: печать элементов Стека от вершины в конец}
{---------------------------------------------------------------------------}
procedure printFromTop;
var
p: Tptr;{вспомогательный указатель, ссылающийся на текущий элемент Стека}
begin
p := top; {устанавливаем указатель р на первый элемент Стека}
{выпечатываем на экран диалог}
write('Элементы стека имеют вид: '); {устанавливаем указатель р на первый элемент Стека}
{до тех пор, пока указатель р не выйдет за последний элемент Стека}
while(p <> nil) do
begin
write(p^.inf, ' '); {печатаем на экран пользователя информационное поле текущего элемента Стека}
p := p^.link; {переход на следующий элемент Стека}
end;
end;
procedure check(s: integer);
begin
lg := false;
case m of
65..90, 97..122: lg := true;
end; end;
procedure sozdanie1;
var
p: Tptr;
p2: Tptr2;
p3: Tptr3;
integer: integer;
begin
p := top;
while(p <> nil) do
begin
m := ord(p^.inf);
check(m);
if lg = true then
begin
new(p2); {выделение памяти под добавляемый элемент}
p2^.link := nil; {"привязали" линковочное поле к NIL, чтобы не было висячей ссылки}
integer := p^.inf;
p2^.inf := integer;
p2^.link := top2; {указатель на вершину Стека top поставили на только что добавленный элемент.
В итоге, Стек находится в согласованном состоянии после добавления элемента}
top2 := p2;
end
else
begin
new(p3); {выделение памяти под добавляемый элемент}
p3^.link := nil; {"привязали" линковочное поле к NIL, чтобы не было висячей ссылки}
integer := p^.inf;
p3^.inf := integer;
p3^.link := top3; {указатель на вершину Стека top поставили на только что добавленный элемент.
В итоге, Стек находится в согласованном состоянии после добавления элемента}
top3 := p3;
end;
p := p^.link; {переход на следующий элемент Стека}
end;
end;
procedure printFromTop2;
var
p: Tptr2;{вспомогательный указатель, ссылающийся на текущий элемент Стека}
begin
p := top2; {устанавливаем указатель р на первый элемент Стека}
{выпечатываем на экран диалог}
write('Элементы стека имеют вид: '); {устанавливаем указатель р на первый элемент Стека}
{до тех пор, пока указатель р не выйдет за последний элемент Стека}
while(p <> nil) do
begin
write(p^.inf, ' '); {печатаем на экран пользователя информационное поле текущего элемента Стека}
p := p^.link; {переход на следующий элемент Стека}
end;
end;
procedure printFromTop3;
var
p: Tptr3;{вспомогательный указатель, ссылающийся на текущий элемент Стека}
begin
p := top3; {устанавливаем указатель р на первый элемент Стека}
{выпечатываем на экран диалог}
write('Элементы стека имеют вид: '); {устанавливаем указатель р на первый элемент Стека}
{до тех пор, пока указатель р не выйдет за последний элемент Стека}
while(p <> nil) do
begin
write(p^.inf, ' '); {печатаем на экран пользователя информационное поле текущего элемента Стека}
p := p^.link; {переход на следующий элемент Стека}
end;
end;
////////////////////////////////////////////////////////////////////////
var
i: integer;
begin
i := 0;
repeat
push; {вставка элемента в вершину Стека}
i := i + 1;
until (i = 10);
writeln; {оповещение пользователя об успешном завершении операции}
writeln('Добавление новых элементов успешно проведено!');
if(top = nil) then {если в Стеке нет элементов, то вызываем диалог для пользователя}
write('Печать элементов невозможна, так как Стек пуст!')
else
printFromTop; {печать элементов Стека от вершины вниз}
sozdanie1;
writeln;
writeln('Первый Стэк');
printFromTop2;
writeln;
writeln('Второй Стэк ');
printFromTop3;
end. |
(
Сообщение от Voran4ik
