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

UptoLike

ВУЗ: 

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

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

Рубрика: 

262
Обеспечивает ввод одной записи типа Tbook
После ввода запись вставляется в упорядоченный список
не нарушая упорядоченности
}
procedure readBook;
var
y: integer; {y – номер строки}
b: Tbook; {b – вводимая запись (буфер)}
begin
{Вывод шапки таблицы и разбивка поля ввода записи}
writeln('-------------------------------------------',
'-----------------------------------');
writeln('| Название книги | Ф.И.О. автора |',
' Издательство | Число томов |');
writeln('-------------------------------------------',
'-----------------------------------');
write('| | |',
' | |');
{Определение номера строки, на которую будем вводить}
y:=wherey;
gotoxy(2,y); {Установка курсора в начало поля 'Название'}
readln(b.Title); {Ввод поля 'Название'}
{Те же действия для полей}
gotoxy(3+lenTitle,y);
readln(b.Author); {'Автор'}
gotoxy(4+lenTitle+lenAuthor,y);
readln(b.Publisher); {'Издательство'}
gotoxy(5+lenTitle+lenAuthor+lenPublisher,y);
readln(b.Number); {'Кол-во томов'}
{Введенную запись вставляем на положенное ей место – в соответствии
с именем автора}
insertBook(b);
{Выводим закрывающую линию}
writeln('-------------------------------------------',
'-----------------------------------');

Страницы