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

UptoLike

ВУЗ: 

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

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

Рубрика: 

258
№ Название объекта Поля объекта Тип запроса
15 Статья Название статьи
ФИО автора
Название журнала
Номер журнала
Год издания
Номер журнала – не
меньше 5
Год издания – 2000
ПРИМЕР ВЫПОЛНЕНИЯ ЛАБОРАТОРНОЙ РАБОТЫ
{Сформировать список записей, описывающих следующую таблицу
-------------------------------------------------------------------------------
| Название книги | Ф.И.О. автора | Издательство | Число томов|
--------------------------------------------------------------------------------
Список упорядочен по фамилиям автора.
Включить в список новую запись
< «Война и мир», Л.Толстой, изд-во «Правда», 3 тома>
так, чтобы упорядоченность списка сохранилась.
Скоректированный список вывести в прежней форме.
}
program Lab7Var24;
uses Crt; {В программе используются процедуры и функции модуля Crt}
const
lenTitle=20; {lenTitle – максимально допустимая
длина 'Названия книги'}
lenAuthor=20; {lenAuthor – максимально допустимая длина 'Автора'}
lenPublisher=20; {lenPublisher – максимально допустимая
длина 'Издательства'}
maxN=20; {maxN – максимально допустимое количество
книг в базе данных}
type
TPbook = ^Tbook; {TPbook – указатель на запись Tbook}
Tbook = record {Tbook – запись базы данных книг}
{поля записи:}
Title: string[lenTitle]; {Title – поле 'Заголовок книги'}

Страницы