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

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

25.10.2010, 21:56. Просмотров 1419. Ответов 4
Метки нет (Все метки)

Доброе время суток, напишите пожалуйста код для решения задачи.
Багаж пассажира характеризуется количеством вещей и их общим весом. Дан файл Bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно – действительного (вес в килограммах).
Найти багаж, средний вес одной вещи в котором отличается не более чем на m кг от общего среднего веса одной вещи.
Параметр m должен вводиться с клавиатуры.
Задача из раздела "Типизированные файлы целых чисел"
Заранее спасибо.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.10.2010, 21:56
Ответы с готовыми решениями:

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

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

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

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

4
0 / 0 / 0
Регистрация: 25.10.2010
Сообщений: 6
27.10.2010, 08:02  [ТС] 2
У меня зачет скоро! Помогите с задачей, пожалуйста.
0
Модератор
60279 / 45384 / 31319
Регистрация: 18.05.2008
Сообщений: 109,022
27.10.2010, 08:58 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
48
49
uses Crt;
type
bagaz=record
     kol:byte;
     ves:real;
     end;
var bg:bagaz;
    n,m,k:integer;
    f:file of bagaz;
    sr:real;
    c:char;
begin
clrscr;
assign(f,'bagaz');
rewrite(f);
writeln('Введите данные о багаже, окончание ввода Esc:');
n:=0;sr:=0;
repeat;
n:=n+1;
writeln('Багаж ',n);
write(' Количество вещей: ');readln(bg.kol);
write(' Вес: ');readln(bg.ves);
sr:=sr+bg.ves;//считаем общий вес
k:=k+bg.kol;//общее количество
write(f,bg);//пишем в файл
c:=readkey;//ждем нажатия клавиши
until c=#27;//если Esc, заканчиваем ввод
sr:=sr/k;//средний вес 1 вещи
writeln('Средний вес 1 вещи=',sr:0:3);
write('Введите вес вещи для сравнения m=');
readln(m);
writeln('Багаж, средний вес 1 вещи в котором отличается');
writeln('не более чем на ',m,' кг от общего среднего веса одной вещи:');
k:=0;
reset(f);
while not eof(f) do
 begin
  read(f,bg);//читаем запись
  if abs(bg.ves/bg.kol-sr)<m then//если модуль разности среднего веса 1 вещи в багаже
                                  //и общего среднего меньше заданного числв
   begin
    k:=1;//фиксируем и выводим кол.мест, общий вес и средний вес 1 вещи
    writeln('Кол.мест=',bg.kol,'  общий вес=',bg.ves:0:3,'  ср.вес=',bg.ves/bg.kol:0:3);
   end;
 end;
if k=0 then write('Такого багажа нет!');
close(f);
readln
end.
1
0 / 0 / 0
Регистрация: 25.10.2010
Сообщений: 6
28.10.2010, 19:10  [ТС] 4
Puporev спасибо большое вам, отпишусь как прошел зачет.
0
0 / 0 / 0
Регистрация: 25.10.2010
Сообщений: 6
11.11.2010, 22:40  [ТС] 5
Зачет сдан! Еще раз большое спасибо)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.11.2010, 22:40

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

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

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

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

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


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

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

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