Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/22: Рейтинг темы: голосов - 22, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 14.12.2009
Сообщений: 10
1

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

26.12.2009, 15:23. Просмотров 4280. Ответов 4
Метки нет (Все метки)

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

Вообще не понял как с этим справиться...
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2009, 15:23
Ответы с готовыми решениями:

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

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

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

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

4
3062 / 722 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
29.12.2009, 01:54 2
Сергей Шут, а с чем у Вам тут возникают проблемы, не подскажите?
Что сложного? Создавайте динамический массив, заполняйте информацией, находите нужные для Вас величины:
1) Средний вес одной вещи всего багажа - берёте суммируете количество вещей и суммируете их веса, после прохождения всего массива делите вес на количество
2) Среднее количество вещей - используйте найденное количество вещей из п.1 и делите на количество элементов массива (количество багажей).
Потом вам нужен будет ещё разок пробежаться по массиву, для определения:
Цитата Сообщение от Сергей Шут Посмотреть сообщение
Найти: багаж, средний вес одной вещи, в котором отличается не более чем на 0.3 кг от общего среднего веса одной вещи; число пассажиров, имеющих более двух вещей и число пассажиров, количество вещей которых превосходит среднее число вещей.
и выводите ответ. Показывайте, что сделали, что не получилось...
1
0 / 0 / 0
Регистрация: 14.12.2009
Сообщений: 10
29.12.2009, 16:05  [ТС] 3
Мне текст программы надо .... а я не кумекаю в этом ....
0
Модератор
60255 / 45368 / 31308
Регистрация: 18.05.2008
Сообщений: 108,995
29.12.2009, 17:16 4
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
uses Crt;
type
bagaz=record//тип запись багаж
     kol:byte;//кол-во
     ves:real;//вес
     end;
var bg:array[1..100] of bagaz;/массив записей
    n,i,k,k2,ks,p:integer;
    srv,srk:real;
begin
clrscr;
writeln('Введите количество пассажиров n=');
readln(n);
writeln('Введите данные о багаже');
srv:=0;srk:=0;k:=0;
for i:=1 to n do
 begin
  writeln('Багаж ',i);
  write(' Количество мест: ');readln(bg[i].kol);
  k:=k+bg[i].kol;//считаем сколько всего вещей
  write(' Вес: ');readln(bg[i].ves);
  srk:=srk+bg[i].kol;//считаем количество для среднего
  srv:=srv+bg[i].ves;//общий вес для среднего
 end;
srk:=srk/n;//среднее кол-во
srv:=srv/k;//средний вес
writeln('Средний вес 1 вещи=',srv:0:2);
p:=0;
writeln('Багаж, где средний вес одной вещи отличается не более 0.3 от среднего веса');
k2:=0;ks:=0;
for i:=1 to n do
 begin
  if abs(bg[i].ves/bg[i].kol-srv)<=0.3then//если разница по модулю не больше 0,3
   begin
    p:=1;//есть
    writeln(bg[i].kol,'  ',bg[i].ves:0:2);//выводим
   end;
  if bg[i].kol>2 then k2:=k2+1;//кол-во вещей болше 2
  if bg[i].kol>srk then ks:=ks+1;//кол-во больше среднего
 end;
if p=0 then writeln('Такого багажа нет!');
writeln;
writeln('Число пассажиров, имеющих более 2х вещей=',k2);
writeln('Среднее число вещей=',srk:0:0);
writeln('Число пассажиров, имеющих вещей больше среднего=',ks);
readln
end.
0
3062 / 722 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
30.12.2009, 02:48 5
Сергей Шут, так вот, если Вам в следующий раз понадобится код, то Вы так и пишите, а не:
Цитата Сообщение от Сергей Шут Посмотреть сообщение
Вообще не понял как с этим справиться...
Я подумал, что Вы не понимаете алгоритма и расписал Вам его, в следующий раз пишите:
Мне нужен код программы, сам я не могу написать.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.12.2009, 02:48

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

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

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

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

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


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

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

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