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

Задача

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

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

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

Вычисления выполняются так:

суммируем все значения роста;
находим максимальный и минимальный рост;
считаем учеников, у которых рост больше $$170$$ см;
средний рост находим по формуле $$S_r=\frac{S}{n}$$, где $$S$$ — сумма ростов, $$n$$ — число учеников.

Программа на Pascal:

type Uchenik = record
  fam: string[15];
  name: string[15];
  otch: string[20];
  rost: 140..250;
  massa: 40..100;
end;
var
  a: array[1..100] of Uchenik;
  fin, fout: text;
  i, n, min, max, S, Sr, k: integer;
procedure Rost(var a: array of Uchenik; n: integer; var min, max, Sr, k: integer);
var
  i, S: integer;
begin
  S := 0;
  max := 0;
  min := 250;
  k := 0;
  for i := 1 to n do
  begin
    S := S + a[i].rost;
    if a[i].rost > 170 then k := k + 1;
    if a[i].rost > max then max := a[i].rost;
    if a[i].rost < min then min := a[i].rost;
  end;
  Sr := S div n;
end;
begin
  assign(fin, ‘stud.pas’);
  reset(fin);
  i := 0;
  repeat
    i := i + 1;
    with a[i] do
      readln(fin, fam, name, otch, rost, massa);
  until eof(fin);
  close(fin);
  n := i — 1;
  Rost(a, n, min, max, Sr, k);
end.

Процедура Rost просматривает все записи, находит средний, максимальный и минимальный рост, а также считает количество учеников, подходящих для баскетбольной секции.