Лабораторная работа №4 Программирование задач обработки данных типа запись

Теоретические сведения

Тип запись объединяет ряд компонент, называемых полями. Поля могут быть разного типа. Объявление типа запись:

Type  <имя типа> = Record
      <имя поля 1>: <тип поля>;
      <имя поля 2>: <тип поля>;
       и т.д.
      End;

Доступ к полям записи осуществляется через составные имена: <имя записи>.<имя поля> Например:

                  Type   Abonent = Record
                       Name: String;
                       Number: integer;
                       Mobil: Longint;
                       End;
                  Var   Man: Abonent;
                  Begin
                       Write('Введите имя и номер абонента');
                       Read(Man.Name, Man.Number);
                       Man.Mobil:=902233035;
                       ....
                  End;
   

Задания

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

Вариант 1.

Определите сведения о багаже, в котором средний вес одной вещи отличается не более чем на 0,3 кг от общего среднего веса одной вещи среди всех багажей.

Вариант 2.

Определите количество пассажиров, имеющих более двух вещей и фамилии пассажиров, количество вещей которых превосходит среднее число вещей всех багажей.

Вариант 3.

Определите, имеется ли пассажир ( фамилию ), у которого в багаже одна вещь весом менее 30 кг.

Вариант 4.

Отсортировать багаж по фамилиям только для пассажиров, имеющим более одной вещи.

Вариант 5.

Определить фамилии пассажиров, имеющих багаж максимального веса и количество вещей не менее двух.

Вариант 6.

Выведите сведения о багаже, в котором только одна вещь, а вес ее больше среднего веса среди всех багажей.

Вариант 7.

Отсортируйте сведения о багаже по возрастанию веса только для багажей, в которых более одной вещи.

Вариант 8.

Отсортировать сведения о багаже по убыванию количества вещей только для багажей, вес которых менее 40 кг.

Вариант 9.

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

Вариант 10.

Определить фамилию пассажира, у которого минимальный вес багажа и минимальное количество вещей среди всех багажей.