Долго долго курил страницы форума, изучал динамические списки.
Когда код для программы уже практически собрался в единое целое решил проверить на всякий случай процесс частично. На что ABC.net начал страшно ругаться на "неизвестное имя GetMem" Подскажите пожалуйста, в чём тут ошибка?.
| 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
| Program Spisok;
Uses
crt;
type
Tinf=char; {тип данных, который будет хранится в элементе списка}
List=^TList; {указатель на элемкент типа TList}
TList=record {Наименовние нашего типа "запись"}
data:Tinf; {данные,хранимые в элементе}
next:List; {указатель на следукющий элемент списка}
end;
{Процедура добавления нового элемента в односвязный список}
procedure AddElem(var spis1:List;znach1:TInf);
var
tmp:List;
begin
if spis1=nil then {Проверяем не пуст ли список,если пуст, то}
begin
getmem(spis1,sizeof(TList)); {создаём его первый элемент}
tmp:=spis1;
end
else {в случае если список не пуст}
begin
tmp:=spis1;
while tmp^.next<>nil do
tmp:=tmp^.next; {ставим tmp на последний элемент списка}
GetMem(tmp^.next,sizeof(TList)); {создаём следующий элемент}
tmp:=tmp^.next; {переносим tmp на следующий элемент}
end;
tmp^.next:=nil; {зануляем указатель}
tmp^.data:=znach1; {заносим значение}
end;
{Процедура вывода списка на экран}
procedure Print(spis1:List);
begin
if spis1=nil then
begin
writeln('Список пуст.');
exit;
end;
while spis1<>nil do
begin
Write(spis1^.data, ' ');
spis1:=spis1^.next
end;
end;
{Процедура поиска в списке}
Function SearchElemZnach(spis1:List;Znach1:Tinf):List;
begin
if spis1<>nil then
While (Spis1<>nil) and (znach1<>spis1^.data) do
spis1:=spis1^.next;
SearchElemZnach:=spis1;
end;
{Процедура удаления элемента}
Procedure DelElem(Var spis1:List;tmp:List);
var
tmpi:List;
begin
if (spis1=nil)or (tmp=nil) then
exit;
if tmp=spis1 then
begin
spis1:=tmp^.next;
FreeMem(tmp,SizeOf(TList));
end
else
begin
tmpi:=spis1;
while tmpi^.next<>tmp do
tmpi:=tmpi^.next;
tmpi^.next:=tmp^.next;
FreeMem(tmp,sizeof(TList));
end;
end;
{Процедура удаления элемента по значению}
Procedure DelElementZnach(var Spis1:List;znach1:TInf);
var
tmp:List;
begin
if Spis1=nil then
begin
Writeln('Список пуст');
exit;
end;
tmp:=SearchElemZnach(spis1,znach1);
if tmp=nil then
begin
writeln('Элемент с искомым значением ',znach1, 'отсутсвует в списке.');
exit;
end;
DelElem(spis1,tmp);
Writeln('элемент удалён.');
end;
Var
A:array of char;
s:string;
n:char;
L:List;
i:integer;
Begin
L:=nil;
Writeln('Программа запросит ввод строки, после чего преобразует строку в динамический список,а затем удалит все повторяющиеся элементы.');
Write('Введите строку: ');Read(s);
For i:=1 to length(s) do {преобразуем строку в динамический односвязный список}
begin
n:=s[i]; AddElem(L,n);
end;
Print(T); {Вывод необработанного списка на экран}
end. |
|
Ругань начинается с 27-ой строки
(
