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

UptoLike

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

Рубрика:

261

until (n>=1) and (n<maxN);

clrscr;

{Вывод заголовка таблицы}

writeln('-------------------------------------------',

'-----------------------------------');

writeln('| Название книги | Ф.И.О. автора |',

' Издательство | Число томов |');

writeln('-------------------------------------------',

'-----------------------------------');

{Ввод n записей}

for i:=1 to n do

begin

{Создается разметка для ввода полей}

write('| | |',

' | |');

gotoxy(2,3+i); {курсор устанавливается на начало поля 'Название'}

readln(b.Title); {вводится поле 'Название'}

{Далее те же действия выполняются при вводе полей}

gotoxy(3+lenTitle,3+i);

readln(b.Author); {'Автор'}

gotoxy(4+lenTitle+lenAuthor,3+i);

readln(b.Publisher); {'Издательство'}

gotoxy(5+lenTitle+lenAuthor+lenPublisher,3+i);

readln(b.Number); {'Кол-во томов'}

{Введенная запись вставляется в базу данных}

insertBook(b);

end;

{Выводим линию, закрывающую таблицу снизу}

writeln('-------------------------------------------',

'-----------------------------------');

end;

{ Процедура readBook