Текст программы к задаче 11

Program Ex_11;

Uses crt;

Type

kniga= record {Тип запись}

avtor: string[20]; {Поле автор}

name: string; {Поле название книги}

god: word; {Поле год издания}

str: word; {Поле количество страниц}

cena: word; {Поле цена книги}

End;

Var

i, n: byte;

g, max: word;

A: array [1..5] of kniga; {Массив записей о книгах из 5 элементов}

Begin

Clrscr;

For i: =1 to 5 do begin {Цикл для ввода информации в массив}

Writeln('Автор: ');

Readln(A[i].avtor);

Writeln('Название книги: ');

Readln(A[i].name);

Writeln('Год издания: ');

Readln(A[i].god);

Writeln('Страниц: ');

Readln(A[i].str);

Writeln('Цена книги: ');

Readln(A[i].cena);

End;

Clrscr;

For i: =1 to 5 do begin {Цикл для вывода информации из массива на экран}

With A[i] do

Writeln(avtor: 15, name: 15, god: 6, str: 6, cena: 6);

End;

Writeln;

Writeln('Введите год ');

Readln(g);

Writeln('Книги до определенного года ');

For i: =1 to 5 do begin {Цикл для поиска книг изданных до определенного года}

if A[i].god< g then

With A[i] do

Writeln(avtor: 15, name: 15, god: 6, str: 6, cena: 6);

End;

max: =0;

Writeln;

Writeln('Книга с максимальной ценой ');

For i: =1 to 5 do begin {Цикл для поиска книги с максимальной ценой}

if A[i].cena> max then begin

max: =A[i].cena;

n: =i;

End;

End;

With A[n] do {Вывод записи о книге с максимальной ценой}

Writeln(avtor: 15, name: 15, god: 6, str: 6, cena: 6);

Readln;

End.

 

Результат работы программы:

Пушкин Стихи 1899 456 1289

Ахматова Поэмы 1969 280 650

Лермонтов Мцыри 1990 145 237

Солженицын Воспоминания 1986 670 785

Форш Одеты камнем 1995 368 340

 

Введите год

Книги до определенного года

Пушкин Стихи 1899 456 1289

Ахматова Поэмы 1969 280 650

Солженицын Воспоминания 1986 670 785

 

Книга с максимальной ценой

Пушкин Стихи 1899 456 1289

Схема программы к задаче 11.

Лабораторная работа № 12.