Задача на Паскале

[zigli]

Задача на Паскале

Помогите написать программу на Паскале. :tehnari_ru_281::tehnari_ru_1019:
Задача:
Багаж пассажира характеризуется кол-вом и общей массой вещей. Дан файл "Bagazh", содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (кол-во вещей) и одно поле действительное(масса вещей в кг). Определить:
а) среднюю массу каждой вещи
б) кол-во пассажиров, которые имеют более 2-х вещей.
Заранее благодарен.

 

[Vladimir_S]

Определить: а) среднюю массу каждой вещи

По каждому пассажиру в отдельности или по всем скопом?

 

[zigli]

скорее второе - всем скопом

 

[Vladimir_S]

скорее второе - всем скопом

Тогда так:

TYPE
 Dt=Record
  Places:Byte;
  Weight:Real;
 end;
VAR
 Pas_Lag:Dt;
 f:Text;
 Med_Weight:Real;
 Pass_num,Places_num:Byte;
BEGIN
 Assign(f,'D:\bagazh');
 ReSet(f);
 Med_Weight:=0;
 Pass_num:=0;
 Places_num:=0;
 Repeat
  With Pas_Lag do
   begin
    ReadLn(f,Places);
    ReadLn(f,Weight);
    Med_Weight:=Med_Weight+Weight;
    Places_Num:=Places_Num+Places;
    if Places>2 then Pass_num:=Pass_num+1;
   end;
  ReadLn(f);
 Until EoF(f);
 Close(f);
 Writeln('The medium weight of each place is ',Med_Weight/Places_Num:5:2);
 Writeln('The number of passengers having more then one place is ',Pass_Num);
 ReadLn;
END.

Структура файла Bagazh:

3
7.5

1
4.4

4
12.2 

1
1.9

1
5.1

1
9.0

Путь к файлу поправьте, как Вам надо.

 

[zigli]

спасибо