Основы программирования на языке Turbo Pascal. Беляева И.В. - 264 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

264
указывает Ferst
}
procedure free;
var
P,P1: TPbook; {указатели используемые при освобождении памяти}
begin
P:=First; {начинаем с первой записи}
while P<>nil do {если список еще не исчерпан}
begin
P1:=P^.next;
Dispose(P); {то удаляем очередную запись}
P:=P1; {переходим к следующей}
end;
First:=nil; {на всякий «пожарный» в First запишем nil}
end;
{Собственно программа}
begin
First:=nil; {Вначале список пуст}
{Подготовка экрана}
clrscr;
readBooks; {Вводим несколько записей}
writeln;
writeln('Вот в каком виде книги записались в массив:');
writeBooks; {Выводим текущее состояние базы данных books}
writeln;
writeln('Введите данные еще по одной книге:');
readBook; {Вводим еще одну запись}
writeln;
writeln('Конечный результат:');
writeBooks; {Выводим конечное состояние базы данных books}
readkey; {Задерживаемся, для того, чтобы дать возможность
просмотреть результат}
free; {Освобождаем занятую списком память}
end.

Страницы