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

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 2. Из ассортимента конфет, выпускаемых кондитерской фабрикой, выбрать те, стоимость которых от 100 до 200 руб. за 1 кг. Указать срок их годности и номера магазинов, в которых они имеются в продаже.

В программе удобно хранить сведения о каждой конфете в записи: цена, срок годности и номера магазинов, где она продаётся. Сначала вводятся данные обо всех конфетах, затем выполняется просмотр массива записей и отбор тех, у которых цена попадает в заданный диапазон.

Для этой задачи условие отбора должно быть таким:

$$100 \le \text{cost} \le 200$$

Ниже приведён исправленный вариант программы на Pascal.

Const n=2; m=2;
Var a:array[1..n] of record
  cost:real;
  srok:integer;
  shop:array[1..m] of byte;
end;
i,j:byte;
Begin
  for i:=1 to n do
  begin
    Write(‘Enter cost, shelf life, numbers of shops…’);
    readln(a[i].cost);
    readln(a[i].srok);
    for j:=1 to m do
      readln(a[i].shop[j]);
  end;
  writeln;

  for i:=1 to n do
    if (a[i].cost>=100) and (a[i].cost<=200) then
    begin
      writeln(‘Sweets number ‘, i, ‘, shelf life ‘, a[i].srok);
      writeln(‘and numbers of shops:’);
      for j:=1 to m do
        write(a[i].shop[j]:3);
      writeln;
    end;
End.

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

Ответ: программа на Pascal с условием отбора $$100 \le \text{cost} \le 200$$.