Как найти средний вес одной вещи

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 / 0 / 0

Регистрация: 14.12.2009

Сообщений: 10

1

26.12.2009, 15:23. Показов 8235. Ответов 4


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

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

Вообще не понял как с этим справиться…



0



Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.12.2009, 15:23

4

3067 / 727 / 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



Puporev

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

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



3067 / 727 / 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

Таблица примерного веса вещей

В таблице ниже указан приблизительный вес товаров из разных категорий и групп. Используйте его для расчета ориентировочного веса посылки. Не забывайте, что вес указан примерно — очень много товаров имеют разную массу. Например летние кроссовки могут быть на 100-200 грамм легче, нежели зимние утепленные кроссы. Но и то и другое — будет относиться к категории Обувь->Кроссовки.

Товар вещь

Мужская одежда

Женская одежда

Детская одежда

Вес, грамм на 1 едицину товара

Костюм (пиджак +брюки)

1700

 

1600

Свитер (джемпер)

500

500

400

Спортивный костюм

800

800

600

Джинсы

500

500

350

Галстук

100

   

Рубашка

300

300

300

Футболка

200

200

150

Бюстгалтер

 

100

 

Трусы

50

50

40

Майка

90

90

90

Купальник

 

150

 

Плавки

100

   

Юбка

 

300

300

Джемпер

500

500

500

Шорты

200

200

200

Шорты джинсовые

300

300

300

Куртка зимняя

1100

1100

900

Куртка ветровка

600

600

600

Шуба

 

4000

 

Поло

250

250

200

Пижама

400

400

300

Леггинсы

 

200

200

Перчатки

200

200

200

Жилет (трикотажный)

250

250

250

Шапка зимняя

300

300

300

Пальто

1500

1500

1400

Дутый жилет

450

450

300

Толстовка (худи)

500

500

500

Носки (пара)

50

50

50

Ремень с пластиковой пряжкой

200

200

200

Ремень с металлической пряжкой

300

300

300

Шапка шерстяная

200

200

200

Боди (детская)

   

150

Водолазка

200

200

150

Жакет (блейзер)

 

500

 

Сарафан (хлопковый)

 

480

 

Сарафан (синтетика)

 

300

 

Платье (шерстяное)

 

600

 

Платье (шифон)

 

350

 

Платье (хлопок)

 

300

 

Комбинезон

   

600

Варежки

300

300

100

Кожаные перчатки

400

400

 

Махровый халат

1200

1200

 

Товар вещь

Мужская обувь

Женская обувь

Детская обувь

Вес, грамм на 1 едицину товара

Кеды

700

700

700

Угги

900

900

900

Кросовки

800

800

750

Резиновые сапоги

1500

1400

1100

Сапоги

 

1500

1300

Ботильоны

 

1200

 

Туфли

900

900

800

Шлепанцы

300

300

300

Мокасины

600

600

600

Тапки

300

300

300

Босоножки на танкетке

 

600

 

Аксессуары

Вес, грамм на 1 едицину товара

Очки

250

Носовой платок

30

Клатч тканевый

500

Кошелек

250

Зонт

400

Барсетка

600

Шарф (шелк)

150

Шарф (акрил)

500

Белье

Вес, грамм на 1 едицину товара

Скатерть

600

Простыня

500

Пододеяльник

700

Наволочка

200

Полотенце банное махровое

900

Полотенце (тканевое)

500-700

 —

Детское для детей

Вес, грамм на 1 едицину товара

Детский манеж

9000-16000

Стульчик для кормления (пластик)

11000

Автокресло типа NANIA MAXIM

6300

Молокоотсос ручной

600

Молокоотсос на батерейсках типа Medela (без батареек)

400

Радионяня

650

Детское сиденье для велосипеда

2500

Гироскутертипа Smart Balance Wheel SUV 10

11000

Роликовые коньки

2800

 —

Электроника

Вес, грамм на 1 едицину товара

Мобильный телефон в коробке с зарядным устройством

300-400

Apple iPhone 7 128gb

138

Фотоаппарат

700

Ноутбук

3000

Ультрабук (13,5″)

1300

Нетбук

1400

Игровая приставка

2100

Ipod

140

GPS навигатор

250

Электронная книга

300

Плазменный телевизор (42″)
(без учета веса упаковки, коробки. подставки и т.д.)

13500

Плазменный телевизор (42″)
новый в полном комплекте, в упаковке

18500

Спутниковая тарелка (диаметр 55 см)

1600

Проектор

2100

Планшет 7″

300

Модем типа Dlink серии N

400

 —

Бытовая техника

Вес, грамм на 1 едицину товара

Аэрогриль

2500

Блендер погружной

1600

Блинница ( с 1 углублением)

1250

Блинница ( 6 углублений)

3400

Йогуртница (Moulinex)

3200

Кофеваркатипа POLARIS PCM 1516E Adore Crema

3400

Кофемашина типа SAECO Incanto HD 8918/09

8700

Капсульная кофемашина типа KRUPS Dolce Gusto KP

2600

Кухонные весы

500

Кухонный комбайн типа BOSCH MCM3501M MultiTalent 3

3700

Миксеры типа SCARLETT SC-HM40B01

1000

Мороженица

2000

Мультиваркатипа POLARIS PMC 0514AD

4000

Мясорубка

3300

Пароварка (на 9 литров)

2400

Пылесос типа Bosch BSN2100

4800

Соковыжималка (объемом 1 литр)

860

Тостер

900

Утюг

1900

Фритюрница типа Gastrorag CZG40X

5400

Хлебопечка (на 12 кг выпечки)

4000

Электрочайник

790

Электрогриль типа GFGRIL GF-030

1500

Электрошашлычница

1900

Сплит система кондиционирования

35000

Варочная электрическая панель типа Electrolux EHF 96547 XK

12000

Машинка для стрижки

600

Швейная машинка типа JANOME 2004

5000

Электрическая зубная щетка

180

Электричесская сушилка для обуви

200

Перфоратор типа Makita HR2450

2400

 —

Прочее

Вес, грамм на 1 едицину товара

Тонометр

500-700

Ежедневник

300

Чехол для телефона

150

Чемодан (пластиковый)

4500

Кронштейн для крепления телевизора

350

HDMI кабель 2 метра

80

Палатка туристическая типа Trek Planet

2100

  —

Если вы не нашли того, что искали — уточните у менеджера.

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
  Writeln('введите кол-во пассажиров');
  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('багаж, где средний вес 1 вещи отличается не более, чем на 0,3 от среднего веса');
  k2 := 0;
  ks := 0;
  for i := 1 to n do
  begin
    p := 1;
    Writeln(bg[i].kol, ' ', bg[i].ves:0:2);
  end;
  if bg[i].kol > 2 then
    k2 := k2 + 1;
  if (bg[i].kol > srk) then
    ks := ks + 1;
  if p = 0 then
    Writeln('такого багажа нет');
  Writeln;
  Writeln('число пассажиров, имеющих более 2 вещей = ', k2);
  Writeln('среднее число вещей = ', srk:0:0);
  Writeln('число пассажиров, имеющих вещей больше среднего = ', ks);
  Readln;

end.

14K

05 ноября 2005 года

ХмырЪ

1 / / 05.11.2005

Помогите пожалуйста решить задачку :
2 Багаж пассажира характеризуется количеством вещей (целый тип) и общим весом вещей (вещественный тип). Дан список из сведений о багаже 10 пассажиров.
Найти багаж, средний вес одной вещи, в котором отличается не более, чем на 0,3 кг от общего среднего веса одной вещи по всему списку
Помогите пожалуйста а то послезавтра экзамен а задач надо решить много и вот эта у меня не получается . Заранее благодарен и буду очень признателен

Понравилась статья? Поделить с друзьями:

Не пропустите также:

  • Хамачи превышен интервал ожидания для запроса как исправить windows 10
  • Как найти проекции точек на окружности
  • Камера на ноутбуке показывает вверх ногами как исправить виндовс 10
  • Как найти корзину в телефоне сяоми редми
  • Your bear is having difficulty creating a secure tunnel как исправить

  • 0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии