Алгоритмы и программы. Афанасьева Т. В - 200 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

200
name:string;
after:string;
izd:string;
tom:integer;
end;
var
lib:array [1..3] of books;
i,j:integer;
begin
{Ввод записей}
writeln('Ввести 3 раза название книги, фамилию автора, ');
writeln('издательство, число томов');
writeln('|––––––––––––|––––––––––|–––––––––––|–––––––––|');
writeln('|
Название книги | ФИО автора | Издательство | Кол. томов |');
writeln('|––––––––––––|––––––––––|–––––––––––|–––––––––|');
j:=0;
for i:=1 to 3 do
begin
gotoxy(1,6+j);
write('|');
READLN(lib[i].name);
gotoxy(16,6+j);
write('|');
READLN(lib[i].after);
gotoxy(31,6+j);
write('|');
READLN(lib[i].izd);
gotoxy(45,6+j);
write('|');
READLN(lib[i].tom);
gotoxy(58,6+j);
write('|');
j:=j+2;
if i<=3 then
writeln;
writeln('|––––––––––––|–––––––––––|–––––––––––|–––––––––––|');
if i=3 then
writeln('|––––––––––––|–––––––––––|–––––––––––|–––––––––––|');
end;
write;
{Вывод записей на экран}
writeln(' информация о книгах ');

Страницы