Студопедия — Текст программы к задаче 11
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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







Дата добавления: 2014-11-12; просмотров: 525. Нарушение авторских прав; Мы поможем в написании вашей работы!



Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...

Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...

Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...

Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

САНИТАРНО-МИКРОБИОЛОГИЧЕСКОЕ ИССЛЕДОВАНИЕ ВОДЫ, ВОЗДУХА И ПОЧВЫ Цель занятия.Ознакомить студентов с основными методами и показателями...

Меры безопасности при обращении с оружием и боеприпасами 64. Получение (сдача) оружия и боеприпасов для проведения стрельб осуществляется в установленном порядке[1]. 65. Безопасность при проведении стрельб обеспечивается...

Весы настольные циферблатные Весы настольные циферблатные РН-10Ц13 (рис.3.1) выпускаются с наибольшими пределами взвешивания 2...

Методы прогнозирования национальной экономики, их особенности, классификация В настоящее время по оценке специалистов насчитывается свыше 150 различных методов прогнозирования, но на практике, в качестве основных используется около 20 методов...

Методы анализа финансово-хозяйственной деятельности предприятия   Содержанием анализа финансово-хозяйственной деятельности предприятия является глубокое и всестороннее изучение экономической информации о функционировании анализируемого субъекта хозяйствования с целью принятия оптимальных управленческих...

Образование соседних чисел Фрагмент: Программная задача: показать образование числа 4 и числа 3 друг из друга...

Studopedia.info - Студопедия - 2014-2024 год . (0.011 сек.) русская версия | украинская версия