П.6.3.4. Организация списка
{Однонаправленный список - доступен ЛЮБОЙ элемент}
Uses CRT;
Type Pointer=^List;
List=Record
Inf :Integer;
Next :Pointer
End;
Var PointerPred, Pnew, Curr1, PointerFirst,
PointerNew, P, MarkP: Pointer;
f: Boolean;
a: Integer;
Procedure InputInteger(Var Inf: Integer);
Var a: Real;
Begin
Repeat
Write('Введите целое число====>');
{$I-}
Readln(a);
{$I+}
Until (IOResult=0)and(a>=-32768)and(a<=32767);
Inf:=trunc(a)
End;
{Формирование списка}
Procedure FormList;
Var a: Real;
Begin
f:=True;
Repeat
Write('Введите целое число====>');
{$I-}
Readln(a);
{$I+}
if IOResult<>0 then {Признак окончания ввода - НЕ числовой символ}
begin
f:=False;
Exit;
end;
Until (IOResult=0)and(a>=-32768)and(a<=32767);
{
Рис. П.6.16. Структура списка в процессе его создания.
}
New(PointerNew);
if PointerPred =NIL then PointerFirst:=PointerNew; {указатель на первый элемент}
PointerNew^.Inf:=trunc(a);
PointerNew^.Next:=Nil;
if PointerPred<>NIL then PointerPred^.Next:=PointerNew;
PointerPred:=PointerNew
End;
{Вставка элемента списка за указателем PointerPred}
Procedure InsertElement(a: Integer; PointerPred: Pointer);
Begin
{
Рис. П.6.17. Структура списка перед вставкой.
}
New(Pnew);
Pnew^.Inf:=a;
Pnew^.Next:=PointerPred^.Next;{разрыв старой связи}
PointerPred^.Next:=Pnew; {образование новой связи}
{
Рис. П.6.18. Структура списка после вставки.
}
End;
{Просмотр списка}
Procedure ShowList;
Begin
while P<>Nil do
begin
Write(P^.Inf,' ');
P:=P^.Next;
end;
Writeln;
End;
{Поиск нужного элемента списка b<a и вставка за ним элемента a}
Procedure Search(a: Integer);
Var b: Integer;
Begin
while P<>Nil do
begin
b:=P^.Inf;
if a<=b then P:=P^.Next
else
begin
Curr1:=P;
InsertElement(a,Curr1); {вставка, если a>b}
Exit
end
end;
End;
Begin
ClrScr;
PointerPred:=Nil;
Mark(MarkP); {отметка начала кучи - адрес MarkP}
Writeln('============== Создание списка ======================');
Writeln('Признак окончания ввода - НЕ числовой символ');
Repeat FormList Until not f;
Writeln('============== Содержимое списка ============');
if PointerPred=Nil then
begin
Writeln('Список пуст...');
Readln;
Readln;
Exit
end;
P:=PointerFirst;
ShowList;
InputInteger(a);
P:=PointerFirst;
Search(a);
P:=PointerFirst;
Writeln;
Writeln('============== Содержимое списка после вставки ============');
ShowList;
Readln;
Release(MarkP); {Освобождение кучи, начиная с адреса MarkP}
End.
П.6.3.5. Организация стека
{Стек - LiFo (Last In - First Out) - последний вошел, первый вышел}
Uses CRT;
Type Pointer=^Stack;
Stack=Record
Inf: Integer;
Next: Pointer
End;
Var StackPointer, PointerNew, MarkP: Pointer;
f : Boolean;
{Проталкивание информации в стек - организация стека}
Procedure Push;
Var a: Real;
Begin
f:=True;
Repeat
Write('Введите целое число====>');
{$I-}
Readln(a);
{$I+}
if IOResult<>0 then {Признак окончания ввода - НЕ числовой символ}
begin
f:=False;
Exit;
end;
Until (IOResult=0)and(a>=-32768)and(a<=32767);
New(PointerNew);
PointerNew^.Inf:=trunc(a);
PointerNew^.Next:=StackPointer;{связывание с предыдущим элементом}
StackPointer:=PointerNew; {формирование вершины стека}
{
Рис. П.6.19. Структура стека в процессе его создания.
}
End;
{Выталкивание информации из стека}
Procedure Pop;
Begin
PointerNew:=StackPointer;
Write(PointerNew^.Inf,' ');
PointerNew:=PointerNew^.Next;
StackPointer:=PointerNew
End;
Begin
ClrScr;
Mark(MarkP); {отметка начала кучи - адрес MarkP}
Writeln('============== Создание стека ======================');
Writeln('Признак окончания ввода - НЕ числовой символ');
Repeat Push Until not f;
Writeln('============== Распечатка содержимого стека ============');
PointerNew:=StackPointer;
if PointerNew=Nil then
begin
Writeln('Стек пуст...');
Readln;
Readln;
Exit
end;
While PointerNew<>Nil do Pop;
Readln;
Readln;
Release(MarkP); {Освобождение кучи, начиная с адреса MarkP}
End.