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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

100
Просмотр списка
var
p1, pList: ptrList; {pList – указатель на начало списка
}
begin
p1 := pList;
while p1<> NIL do begin
<.использование данных элемента списка (p1^.inf) >;
p1 := p1^.next; { перемещаем указатель p1 на
следующий элемент }
end;
end.
Удаление списка.
var
p1, p2, pList: ptrList; { pList – указатель на начало списка
}
begin
p1 := pList;
while p1<> NIL do begin
p2:=p1; { сохраняем адрес элемента списка в p2 }
p1 := p1^.next; { перемещаем указатель p1 на
следующий элемент }
dispose(p2); { удаляем элемент списка, адрес которого p2 }
end;
pList:=NIL; { список пуст }
end.
6.4. Лабораторные задания.
Указатели, список
В разработанную ранее согласно заданию 4.2.2 программу до-
бавьте процедуры работы со списком (рисунок 6.4).
Процедура «Создание списка» формирует односвязный список
из данных компонентов файла. Количество записей файла определя-
ется в процедуре
автоматически. 
  Просмотр списка
  var
   p1, pList: ptrList; {pList – указатель на начало списка }
  begin
   p1 := pList;
   while p1<> NIL do begin
    <.использование данных элемента списка (p1^.inf) >;
    p1 := p1^.next; { перемещаем указатель p1 на
                        следующий элемент }
   end;
  end.

  Удаление списка.
  var
    p1, p2, pList: ptrList; { pList – указатель на начало списка }
  begin
   p1 := pList;
   while p1<> NIL do begin
    p2:=p1; { сохраняем адрес элемента списка в p2 }
    p1 := p1^.next; { перемещаем указатель p1 на
                      следующий элемент }
    dispose(p2); { удаляем элемент списка, адрес которого p2 }
   end;
   pList:=NIL; { список пуст }
  end.

  6.4. Лабораторные задания.
        Указатели, список
   В разработанную ранее согласно заданию 4.2.2 программу до-
бавьте процедуры работы со списком (рисунок 6.4).
   Процедура «Создание списка» формирует односвязный список
из данных компонентов файла. Количество записей файла определя-
ется в процедуре автоматически.


                               100

Страницы