������������ ������ �6

����� ��������

Type { �������� ������ �� ����� ����� }
  PList = ^TList;
  TList = record
     Inf : Integer;
     Next : PList;
  end;

�������

PList = ^TList;
  TList = record
     Data : Integer;
     Next : PList;
  end;
����� ������ �����������, ���� ���������� ��������� �� ��� ������. ������ ����������.
Var
  Head, x : PList;

List := Head;
While List^.Next <> nil do
  begin
     WriteLn(List^.Data);
     List := List^.Next; { ������� � ���������� ��������; ������ ��� ������� i:=i+1 }
  end;

List := Head; { �������� ����� ������� �������� ������ }
Head := Head^.List; { ������ Head ��������� �� ������ ������� ������ }
Dispose(List); { ��������� ������, ������� ���������� List^ }
�������� �������� �� �������� ������.
��� ����� ����� ����� ������ ���������� �������� � ��������, ������������ � ������ ����� ���.
List := Head;
While (List<>nil) and (List^.Data<>Digit) do
  begin
     x := List;
     List := List^.Next;
  end;
x^.Next := List^.Next;
Dispose(List);
 �������� �� ����� ������.
��� ������������, ����� ��������� � ���������� �� ������������� ������� ������, � List � �� ���������.
List := Head; x := Head;
While List^.Next<>nil do
  begin
     x := List;
     List := List^.Next;
  end;
x^.Next := nil;
Dispose(List);

����������� �������

�������� �������

    ������� �� ����� Pascal          ������������ ������ �� ����������������          ����������