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

UptoLike

ВУЗ: 

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

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

Рубрика: 

201
writeln('|––––––––––––|––––––––––|–––––––––––|–––––––––|');
writeln('|
Название книги | ФИО автора | Издательство | Кол. томов |');
writeln('|––––––––––––|––––––––––|–––––––––––|–––––––––|');
j:=11;
for i:=1 to 3 do
begin
gotoxy(1,6+j);
write('|');
writeln(lib[i].name);
gotoxy(16,6+j);
write('|');
writeln(lib[i].after);
gotoxy(31,6+j);
write('|');
writeln(lib[i].izd);
gotoxy(45,6+j);
write('|');
writeln(lib[i].tom);
gotoxy(58,6+j);
write('|');
j:=j+2;
if i<=3 then
writeln;
writeln('|–––––––––|–––––––––|–––––––––|––––––––|');
if i=3 then
writeln('|–––––––––|–––––––––|–––––––––|––––––––|');
end;
READLN;
end.
Пример 11.2. Удаление из массива записей записи о студентке
Николаевой.
program nat8;
uses crt;
type
typzap=record
fam:string;
gr:integer;
sb:byte;
end;
var
gruppa:array [1..4] of typzap;
i,j:byte;

Страницы