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

UptoLike

ВУЗ: 

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

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

Рубрика: 

263
end;
{ Процедура writeBooks
Печатает на экране имеющуюся базу данных books
в которой хранится информация о n книгах
(books и n – глобальные переменные)
Информация выводится в форме таблицы
}
procedure writeBooks;
var
i: integer; {i - счетчик цикла}
P: TPbook; {указатель используемый при выводе записей}
begin
{Выводим шапку таблицы}
writeln('-------------------------------------------',
'-----------------------------------');
writeln('| Название книги | Ф.И.О. автора |',
' Издательство | Число томов |');
writeln('-------------------------------------------',
'-----------------------------------');
{Выводим всю базу поэлементно}
P:=First; {начинаем с первой записи}
while P<>nil do
begin
{Выводим запись базы данных по полям - в таблицу}
writeln('|',P^.Title:lenTitle,'|',P^.Author:lenAuthor,'|',
P^.Publisher:lenPublisher,'|',P^.Number:13,'|');
P:=P^.next; {переходим к следующей записи}
end;
{Выводим линию закрывающую таблицу}
writeln('-------------------------------------------',
'-----------------------------------');
end;
{ Процедура free
Освобождаем память, занятую списком, на который

Страницы