Опишите, используя структуру записи, книги(автор,название,год издания). Составьте программу вывода на экран упорядоченного списка книг(по фамилии автора) — Pascal(Паскаль)

Program book;
Uses crt;
Const k=5;
Type a=record
f: string;
n: string;
g: word;
end;
Var b: array[1..k] of a; i,j: byte; c: string;
Begin
Clrscr;
For i:=1 to k do
begin
Write('Введите фамилию автора: ');
Readln(b[i].f);
Write('Введите название книги: ');
Readln(b[i].n);
Write('Введите год издания: ');
Readln(b[i].g);
end;
For i:=1 to k-1 do
For j:=i+1 to k do
If b[i].f>b[j].f then
begin
c:=b[i].f;
b[i].f:=b[j].f;
b[j].f:=c;
end;
For i:=1 to k do
Writeln(b[i].f,'  -  ',b[i].n,'  -  ',b[i].g);
End.

Leave a Comment

+ 47 = 48