Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 98 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

97
Рисунок 6.2 – Структура списка
Структура элемента списка может быть объявлена в программе,
например, следующим образом:
type
ptrList = ^TList;{ тип указателя связан со структурой элемента
списка }
TList = record { структура элемента списка: }
inf : <тип данных>; { информация (данные) }
next: ptrList; { указатель на элемент списка }
end;
Рассмотрим типовые схемы создания, просмотра и удаления спи-
ска на примере односвязного списка, структура которого приведена
выше.
Создание списка.
var
p1, p2, pList: ptrList; { p1 – указатель на новый элемент списка }
{ p2 – вспомогательный указатель, в начале = NIL}
{ pList – указатель на начало списка }
begin
p2 := NIL; { список пуст }
<Цикл добавления элементов в список>
begin
New(p1); { выделяем память для элемента списка }
p1^.inf := <данные>; { формируем данные элемента списка }
p1^.next := p2; { "связываем" элементы списка }
p2 := p1; { сохраняем адрес элемента списка в p2 } 
                    Рисунок 6.2 – Структура списка
   Структура элемента списка может быть объявлена в программе,
например, следующим образом:

  type
  ptrList = ^TList;{ тип указателя связан со структурой элемента
списка }
  TList = record       { структура элемента списка:            }
   inf : <тип данных>; { информация (данные)                   }
   next: ptrList;      {    указатель на элемент списка        }
  end;

   Рассмотрим типовые схемы создания, просмотра и удаления спи-
ска на примере односвязного списка, структура которого приведена
выше.

     Создание списка.
  var
  p1, p2, pList: ptrList; { p1 – указатель на новый элемент списка }
     { p2 – вспомогательный указатель, в начале = NIL}
     { pList – указатель на начало списка                 }
  begin
   p2 := NIL; { список пуст }
   <Цикл добавления элементов в список>
   begin
   New(p1); { выделяем память для элемента списка }
   p1^.inf := <данные>; { формируем данные элемента списка }
   p1^.next := p2; { "связываем" элементы списка }
   p2 := p1; { сохраняем адрес элемента списка в p2 }


                                 97

Страницы