Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
1 / 1 / 0
Регистрация: 10.01.2013
Сообщений: 19
1

Структура: Найти багаж, средний вес одной вещи, в котором отличается не более чем на 0.3 кг от общего среднего веса одной вещи

27.01.2013, 21:35. Просмотров 939. Ответов 1
Метки нет (Все метки)

Помогите с лабой.
За ранее спасибо)

Багаж пассажира характеризуется количеством вещей и общим весом вещей. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно - действительное (вес в килограммах). Найти: багаж, средний вес одной вещи, в котором отличается не более чем на 0.3 кг от общего среднего веса одной вещи; число пассажиров, имеющих более двух вещей и число пассажиров, количество вещей которых превосходит среднее число вещей.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.01.2013, 21:35
Ответы с готовыми решениями:

Найти багаж, средний вес одной вещи в котором отличается не более чем на m кг от общего среднего веса одной
uses Crt; type bagaz=record kol:byte; ves:real; end; var bg:bagaz; ...

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

Записи: Найти багаж, вес одной вещи в котором отличается не более, чем на 0.3 кг от общего среднего веса
Тема: Записи. Работа с текстовыми файлами. Дан файл f, содержащий сведения о багаже нескольких...

Найти багаж, средний вес одной вещи в котором отличается не более, чем на 0.3 кг: Блок-схема
Есть вот такая вот задача на записи: Багаж пассажира характеризуется количеством вещей и общим...

1
313 / 272 / 272
Регистрация: 25.09.2011
Сообщений: 477
28.01.2013, 08:49 2
Лучший ответ Сообщение было отмечено Млав как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
const max = 100;
type
  tBagav =  record
    kol : byte;
    ves : real;
  end;
var
  n,i,k : byte;
  P : array[1..max] of tBagav;
  SrObs,ObKol : real;
Begin
  write('kol-wo passavitow [ <100 ] : '); readln(n);
  writeln('WWdite dannye o nih :'); SrObs:=0; k:=0; ObKol:=0;
  for i:=1 to n do begin
    writeln('---',i,'---');
    write('kol vesej : '); readln(P[i].kol);
    write('ves vesej : '); readln(P[i].ves);
    if P[i].kol>2 then inc(k); { сразу считаем кол вецей >2}
    SrObs:=SrObs+P[i].ves; { суммарный вес всех вещей}
    ObKol:=ObKol+P[i].kol;   { общее кол-во всех вещей}
  end;
  SrObs:=SrObs/ObKol; {Средний Общий вес одной вещи}
  writeln('багаж, средний вес одной вещи, в котором отличается не более чем');
  writeln(' на 0.3 кг от общего среднего веса одной вещи. Sredn ves = ',  SrObs:0:2);
  for i:=1 to n do if abs(srobs-P[i].ves/P[i].kol)<=0.3 then
      writeln('pass N ',i:2,' ego kol = ',P[i].kol,' , ego ves = ',p[i].ves:0:2,' sredn = ',P[i].ves/P[i].kol:0:2);
  writeln('число пассажиров, имеющих более двух вещей : ',k);
  writeln(' среднее число вещей : ',ObKOl/n:0:2);
  write('число пассажиров, количество вещей которых превосходит среднее  число вещей : ');
  k:=0; for i:=1 to n do if p[i].kol>ObKol/n then inc(k); writeln(k);
  readln;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.01.2013, 08:49

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти всех пассажиров, у которых средний вес одной вещи отличается не более, чем на 0,5 кг от общего
составить программу по теме Записи Даны сведения о багаже пассажиров: фамилия пассажира,...

Найти багаж, средний вес одной вещи в котором отличается не более чем на m кг от общего
Доброе время суток, напишите пожалуйста код для решения задачи. Багаж пассажира характеризуется...

Найти багаж, средний вес одной вещи, в котором отличается не более чем на 0.3 кг
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Сведения о багаже каждого...

Файл: найти багаж, средний вес одной вещи в котором отличается не более чем на m кг от общего среднего веса одной вещи
Нужно написать код к задаче. Кто сможет помогите плиз очень нужно. Заранее спасибо....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.