Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом менее 30 кг

@V666AD · Регистрация: 07.12.2011

Author24 — интернет-сервис помощи студентам

Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл содержащий сведения о багаже каждого пассажира представляет собой запись в которой определенны следующие поля:
ФИО, Количество вещей, Вес (в килограммах)
а) Найти число пассажиров, имеющих более двух вещей и число пассажиров, и число пассажиров количество вещей которых превосходит среднее число вещей.
б) Определить имеется ли два пассажира, балас которых совпадает по числу вещей и различаются по весу.
в) Выявить, имеется ли пассажир, багаж которого превышает багаж каждого из остальных пассажиров и по числу вещей и по весу.
г) Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи веслм менее 30 кг.

Помогите решить...
Я вот что то нахимичил.. отредактируется пожалуйста код...

HTML5

Program p1;
Type
Bagaz = Record
Kol:Byte; {Количество вещей}
Ves:Real; {Вес в килограммах}
Sr_Ves_Bag:Real; {Средний вес вещи}
End;
Var
Bagaz_Pas:Array[1..30] Of Bagaz;
Flag:Boolean;
N,i,Kol1,Kol2:Byte;
Sr_Ves:Real; {Средний вес одной вещи всего багажа}
Sr_Kol:Real; {Среднее количество вещей}
Begin
WriteLn('Задайте количество пасажиров:');
ReadLn(N);
For i:=1 To N Do
With Bagaz_Pas[i] Do
Begin
WriteLn('Пассажир N',i);
Write('Количество вещей: ');
ReadLn(Kol);
Write('Общий вес: ');
ReadLn(Ves);
Sr_Ves_Bag:=Ves/Kol; {Средний вес вещи}
WriteLn; {Пропуск пустой строки}
End;
Sr_Ves:=0; {Начальные значения}
Sr_Kol:=0;
{Нахождение среднего веса вещи всего багажа и среднего количества вещей}
For i:=1 To N Do
With Bagaz_Pas[i] Do
Begin
Sr_Ves:=Sr_Ves+Sr_Ves_Bag;
Sr_Kol:=Sr_Kol+Kol;
End;
Sr Ves:=Sr_Ves/N;
Sr_Kol:=Sr_Kol/N;
WriteLn('Задание a)');
Flag:=False;
For i:=1 To N Do
With Bagaz_Pas[i] Do
If abs(Sr_Ves_Bag-Sr_Ves)<=0.3 Then
Begin
WriteLn('Кол-во вещей: ',Kol,' их вес: ',Ves);
Flag:=True;
End;
If Not Flag Then WriteLn('Таких нет'); WriteLn('Заданиe б)');
Kol1:=0; {Кол-во пассажиров, имеющих более 2-х вещей}
Коl2:=0; {Кол-во пассажиров, вещей у которых больше среднего}
For i:=1 То N Do
With Bagaz_Pas[i] Do
Begin
If Kol>2 Then Kol1:=Kol1+1;
If Kol>Sr_Kol Then Kol2:=Kol2+1;
End;
WriteLn('Пассажиров, у которых больше 2-x вещей: ', Kol1);
WriteLn('Пассажиров, у которых вещей среднего: ', Коl2);
WriteLn('Задание в)');
Flag:=False;
For i:=1 То N Do
With Bagaz_Pas[i] Do
If (Kol=1) and (Ves<30) Then Flag:=True;
If Flag Then WriteLn('Taкoй пассажир имеется)
Else WriteLn('Такого пассажира нет');
End.

@sane4ek · 11.05.2012, 11:42

Pascal

program ex1;
uses crt;
const n=10
type
bag=record
fam:string;
kv:byte;
vb:real;end;
var x:array[1..n]of bag;
kp,i:byte; svb,skv:real;
begin
clrscr;
for i:=1 to n do
with x[i] do begin
writeln('Сведение об ',i,'пассажире');
writeln('Введи фамилию');
readln(fam);
writeln('Введи число вещей');
readln(kv);
writeln('Вес багажа');
readln(vb);
end;
fot i:=1 to n do'
if (x[i].kv=1)and(x[i].vb<30) then
writeln(x[i].fam,'вес(кг)',x[i].vb);
kp:=0;
fot i:=1 to n do
if x[i].kv>2 then
inc(kp);
writeln('Кол-во пассажировб имеющих более двух вещей=',kp);
s:=0;
fot i:=1 to n do
s:=s+x[i].kv;
skv:=s/n;
kp:=0
fot i:=1 to n do
if x[i].kv>skv then
inc(kp);
writeln('Число пассадиров, багаж которых больше среднего равен',kp);
readkey;
end.

kv-количество вещей
vb-вес багажа
bag-багаж
kp-количество пассажиров
skv-среднее количество вещей
svb-средний вес багажа

	11.05.2012, 11:42

Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом менее 30 кг

Решение