Работа 3.9 Упр.22 ГДЗ Семакин 10 класс (Информатика)

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 22. На аптечном складе хранятся лекарства. Сведения о лекарствах содержатся в специальной ведомости: наименование лекарственного препарата; количество; цена; срок хранения (в месяцах). Выяснить, сколько стоит самый дорогой и самый дешевый препарат; сколько препаратов хранится на складе; какие препараты имеют срок хранения более 3 месяцев; сколько стоят все препараты, хранящиеся на складе. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-9/22 98

Для решения задачи удобно использовать массив записей, где каждая запись содержит:

• наименование препарата;
• количество;
• цену;
• срок хранения.

Сначала вводим все данные о препаратах. Затем в одном цикле находим:

• самую большую цену $$max$$;
• самую маленькую цену $$min$$;
• общее количество препаратов на складе $$k$$;
• общую стоимость всех препаратов $$z$$;
• и выводим названия препаратов, срок хранения которых больше $$3$$ месяцев.

Общая стоимость каждого препарата считается по формуле $$\text{цена} \cdot \text{количество}$$.

type
  lek = record
    naim: string;
    kol, cen, srok: integer;
  end;
var
  a: array[1..100] of lek;
  i, n, k, z, max, min: integer;
begin
  write(‘введите количество наименований: ‘);
  readln(n);
  for i:=1 to n do
  begin
    write(‘название: ‘);
    readln(a[i].naim);
    write(‘количество: ‘);
    readln(a[i].kol);
    write(‘цена: ‘);
    readln(a[i].cen);
    write(‘срок годности: ‘);
    readln(a[i].srok);
  end;
  max:=a[1].cen;
  min:=a[1].cen;
  k:=0;
  z:=0;
  write(‘препараты, со сроком годности 3+ месяцев: ‘);
  for i:=1 to n do
  begin
    if a[i].cen>max then max:=a[i].cen;
    if a[i].cen<min then min:=a[i].cen;
    if a[i].srok>3 then write(a[i].naim,’ ‘);
    k:=k+a[i].kol;
    z:=z+a[i].cen*a[i].kol;
  end;
  writeln;
  writeln(‘цена самого дорогого товара: ‘,max);
  writeln(‘цена самого дешевого товара: ‘,min);
  writeln(‘количество препаратов: ‘,k);
  writeln(‘стоимость всех хранящихся на складе препаратов: ‘,z);
end.

В программе:

• $$max$$ — цена самого дорогого препарата;
• $$min$$ — цена самого дешевого препарата;
• $$k$$ — сумма всех количеств препаратов;
• $$z$$ — сумма стоимостей всех препаратов на складе.

Ответ

Программа на Pascal, приведённая выше, решает задачу: находит самый дорогой и самый дешёвый препарат, общее количество препаратов, выводит препараты со сроком хранения более $$3$$ месяцев и вычисляет общую стоимость всех препаратов.