Текст программы к задаче 11Program 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.
|