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

Задача

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

Подробный ответ

Для решения используем запись о товарах в виде массива записей. В каждой записи хранятся:

наименование товара;
страна-импортёр;
объём партии.

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

добавляем страну в список стран-импортёров;
увеличиваем сумму общего объёма экспорта.

Если совпадений не найдено, выводится сообщение о том, что такого товара нет. Иначе выводится список стран и общий объём экспорта.

type
  tovar = record
    name: string[25];
    country: string[25];
    count: integer;
  end;
var
  a: array[1..100] of tovar;
  n, i, k, sum: integer;
  str: string[25];
begin
  write(‘Сколько всего наименований товара? ‘);
  readln(n);
  for i := 1 to n do
  with a[i] do
  begin
    writeln(i, ‘.’);
    write(‘ Наименование товара: ‘);
    readln(name);
    write(‘ Страна, импортирующая товар: ‘);
    readln(country);
    write(‘ Объем партии (шт.): ‘);
    readln(count);
  end;
  writeln(‘Наименование товара Страна-экспортер Партия (шт.)’);
  writeln(‘————————————————‘);
  for i := 1 to n do
  with a[i] do
    writeln(name, ‘:25-length(name), country, ‘:25-length(country), count);
  writeln;
  writeln(‘Введите наименование искомого товара: ‘);
  readln(str);
  k := 0;
  sum := 0;
  writeln(‘Список стран, импортирующих товар:’);
  for i := 1 to n do
    if a[i].name = str then
    begin
      inc(k);
      writeln(k, ‘. ‘, a[i].country);
      sum := sum + a[i].count;
    end;
  if k = 0 then writeln(‘Нет такого товара’) else
    writeln(‘Общий объем импортируемого товара = ‘, sum, ‘ шт.’);
end.