Кто может написать программу нахождения багажа, средний вес одной вещи отличается не более, чем на Т

@Casillas1 · Регистрация: 18.04.2013

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

@Пытливый · 05.06.2014, 15:59

Что-то я даже не пойму условия. Есть средний вес вещи, который считается как сумма весов всех вещей поделенная на их количество. Это в условии задачи называется "общего среднего веса одной вещи". А вот что такое еще и "средний вес одной вещи", я даже и не соображу. Может подразумевается вес одной вещи?

@Casillas1 · 05.06.2014, 16:04 **[ТС]**

Сообщение от Пытливый

Что-то я даже не пойму условия. Есть средний вес вещи, который считается как сумма весов всех вещей поделенная на их количество. Это в условии задачи называется "общего среднего веса одной вещи". А вот что такое еще и "средний вес одной вещи", я даже и не соображу. Может подразумевается вес одной вещи?

а да точно

@Пытливый · 05.06.2014, 16:28

Тогда примерно так:

Pascal

Const
 N = 10;
Var
 Bag: Array[1..N] of Real;
 i: Integer;
 T,Mid: Real;
begin 
 Mid := 0;
 for i := 1 to N 
 do begin
     Bag[i] := Random(10);
     Mid := Mid + Bag[i];
     end;
 Mid := Mid / N;
 T := Random(5);
 for i := 1 to N 
 do if Bag[i] - Mid <= T
     then WriteLn(Bag[i]);
 ReadLn;
end.

@Casillas1 · 05.06.2014, 16:41 **[ТС]**

Сообщение от Пытливый

Const
*N = 10;
Var
*Bag: Array[1..N] of Real;
*i: Integer;
*T,Mid: Real;
begin
*Mid := 0;
*for i := 1 to N
*do begin
* * *Bag[i] := Random(10);
* * *Mid := Mid + Bag[i];
* * *end;
*Mid := Mid / N;
*T := Random(5);
*for i := 1 to N
*do if Bag[i] - Mid <= T
* * *then WriteLn(Bag[i]);
*ReadLn;
end.

она не работает

@APALoff · 05.06.2014, 16:54

Сообщение от Casillas1

она не работает

Потому что Вы не только не знаете Паскаля, но еще и не умеете копировать код программы.
У Вас на скрине не хватает того, что есть в предложенном Вам коде программы - а именно описание переменной Mid в соответствующем разделе.

@Casillas1 · 05.06.2014, 17:01 **[ТС]**

Сообщение от APALoff

Потому что Вы не только не знаете Паскаля, но еще и не умеете копировать код программы.
У Вас на скрине не хватает того, что есть в предложенном Вам коде программы - а именно описание переменной Mid в соответствующем разделе.

а что эта прогграма делает?

@Пытливый · 05.06.2014, 17:36

Какая прелесть.

Вообще-то выводит список весов согласно задания. Просто я имитирую ввод данных генерацией случайных чисел.
Хотите сделать больше ввода и информативности от всяких сообщений - ради бога.
ПС: Писал прямо тут, без проверки. Алгоритм вроде верен.

@Casillas1 2 / 2 / 0 Регистрация: 18.04.2013 Сообщений: 199
		1
	Кто может написать программу нахождения багажа, средний вес одной вещи отличается не более, чем на Т 05.06.2014, 15:38. Просмотров 477. Ответов 7 Метки нет (Все метки) Помогите написать программу нахождения багажа, средний вес одной вещи отличается не более, чем на Т килограмм от общего среднего веса одной вещи. 0

@Пытливый 1548 / 819 / 295 Регистрация: 29.05.2013 Сообщений: 3,885
	05.06.2014, 15:59	2
	Что-то я даже не пойму условия. Есть средний вес вещи, который считается как сумма весов всех вещей поделенная на их количество. Это в условии задачи называется "общего среднего веса одной вещи". А вот что такое еще и "средний вес одной вещи", я даже и не соображу. Может подразумевается вес одной вещи? 0

@Casillas1 2 / 2 / 0 Регистрация: 18.04.2013 Сообщений: 199
	05.06.2014, 16:04 [ТС]	3
	Сообщение от Пытливый Что-то я даже не пойму условия. Есть средний вес вещи, который считается как сумма весов всех вещей поделенная на их количество. Это в условии задачи называется "общего среднего веса одной вещи". А вот что такое еще и "средний вес одной вещи", я даже и не соображу. Может подразумевается вес одной вещи? а да точно 0

@Casillas1 2 / 2 / 0 Регистрация: 18.04.2013 Сообщений: 199
	05.06.2014, 16:41 [ТС]	5
	Сообщение от Пытливый Const N = 10; Var Bag: Array[1..N] of Real; i: Integer; T,Mid: Real; begin Mid := 0; for i := 1 to N do begin * Bag[i] := Random(10); * Mid := Mid + Bag[i]; * end; Mid := Mid / N; T := Random(5); for i := 1 to N do if Bag[i] - Mid <= T * then WriteLn(Bag[i]); ReadLn; end. она не работает 0 Миниатюры

@APALoff 1641 / 1070 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	05.06.2014, 16:54	6
	Сообщение от Casillas1 она не работает Потому что Вы не только не знаете Паскаля, но еще и не умеете копировать код программы. У Вас на скрине не хватает того, что есть в предложенном Вам коде программы - а именно описание переменной Mid в соответствующем разделе. 0

@Casillas1 2 / 2 / 0 Регистрация: 18.04.2013 Сообщений: 199
	05.06.2014, 17:01 [ТС]	7
	Сообщение от APALoff Потому что Вы не только не знаете Паскаля, но еще и не умеете копировать код программы. У Вас на скрине не хватает того, что есть в предложенном Вам коде программы - а именно описание переменной Mid в соответствующем разделе. а что эта прогграма делает? 0

@Пытливый 1548 / 819 / 295 Регистрация: 29.05.2013 Сообщений: 3,885
	05.06.2014, 17:36	8
	Какая прелесть. Вообще-то выводит список весов согласно задания. Просто я имитирую ввод данных генерацией случайных чисел. Хотите сделать больше ввода и информативности от всяких сообщений - ради бога. ПС: Писал прямо тут, без проверки. Алгоритм вроде верен. 0

Опции темы