...
for i:=1 to n do if (i<k) and (i>l) then sr:=sr+arr;
...
Нахождение среднего арифметического элементов массива
Прошу помочь!
Нужно решить задачу + написать блок схему...
Задача:
Дан массив размера N и целые числа K и L ( 1 < K <= (меньше,либо равно) L <= (меньше,либо равно) N ).
Найти среднее арифметическое всех элементов массива,кроме элементов с номерами от K до L включительно.
Pascal
Буду очень признателен.
Нужно решить задачу + написать блок схему...
Задача:
Дан массив размера N и целые числа K и L ( 1 < K <= (меньше,либо равно) L <= (меньше,либо равно) N ).
Найти среднее арифметическое всех элементов массива,кроме элементов с номерами от K до L включительно.
Pascal
Буду очень признателен.
var
sr:real;
i:integer;
begin
sr:=0;
for i=k to l do
sr:=sr+arr;
sr:=sr/(l-k+1);
после чего в переменной sr среднее арифметическое
sr:real;
i:integer;
begin
sr:=0;
for i=k to l do
sr:=sr+arr;
sr:=sr/(l-k+1);
после чего в переменной sr среднее арифметическое
[QUOTE=ahilles]var
sr:real;
i:integer;
begin
sr:=0;
for i=k to l do
sr:=sr+arr;
sr:=sr/(l-k+1);
после чего в переменной sr среднее арифметическое[/QUOTE]
Это разве "...среднее арифметическое всех элементов массива,кроме элементов с номерами от K до L включительно"?
Думаю, всё таки надо изменить на
sr:real;
i:integer;
begin
sr:=0;
for i=k to l do
sr:=sr+arr;
sr:=sr/(l-k+1);
после чего в переменной sr среднее арифметическое[/QUOTE]
Это разве "...среднее арифметическое всех элементов массива,кроме элементов с номерами от K до L включительно"?
Думаю, всё таки надо изменить на
Код:
и делить надо на k+n-l-1
[QUOTE=rjx]
[/QUOTE]
Поскольку K<L, то числа меньшего K и больше чем L не существует - условие невыполнимо.
Проще и правильнее сделать два цикла, что бы избежать пустых итераций.
Например
Код:
for i:=1 to n do if (i<k) and (i>l) then sr:=sr+arr;
Поскольку K<L, то числа меньшего K и больше чем L не существует - условие невыполнимо.
Проще и правильнее сделать два цикла, что бы избежать пустых итераций.
Например
Код:
sr := 0 ;
for i:=1 to k-1 do
sr:=sr+arr;
for i:=L+1 to N do
sr:=sr+arr;
Srednee := sr/(N - L + K - 1 )) ;
for i:=1 to k-1 do
sr:=sr+arr;
for i:=L+1 to N do
sr:=sr+arr;
Srednee := sr/(N - L + K - 1 )) ;
сумму нужно делить на
N - (L - K + 1);
N - (L - K + 1);
[QUOTE=Мerlin]сумму нужно делить на
N - (L - K + 1);[/QUOTE]
А если поделить на (N - L + K - 1 ) - сильно изменится результат? :)
Честно говоря, я, как большой лентяй, просто поленился скобочки ставить.
N - (L - K + 1);[/QUOTE]
А если поделить на (N - L + K - 1 ) - сильно изменится результат? :)
Честно говоря, я, как большой лентяй, просто поленился скобочки ставить.
[QUOTE=PeaK]А если поделить на (N - L + K - 1 ) - сильно изменится результат? :)
Честно говоря, я, как большой лентяй, просто поленился скобочки ставить.[/QUOTE]Было 3 формулы:
l-k+1
k+n-l-1
(N - L + K - 1 )
Первый проверил. В осталльных (правильных) я уже только смотрел, похожи или не похожи на "мою формулу". :)
Честно говоря, я, как большой лентяй, просто поленился скобочки ставить.[/QUOTE]Было 3 формулы:
l-k+1
k+n-l-1
(N - L + K - 1 )
Первый проверил. В осталльных (правильных) я уже только смотрел, похожи или не похожи на "мою формулу". :)
Так значит правильно вот так:
var
sr:real;
i,k,l,n:integer;
begin
sr := 0 ;
for i:=1 to k-1 do
sr:=sr+arr;
for i:=L+1 to N do
sr:=sr+arr;
Srednee := sr/(N - L + K - 1 )) ;
А почему array - arr?
Компьютер это не воспринимает! Пишешь array - тоже неправильно!
Вводить array надо в начале? Какая концовка, чтоб на экран вышло это число?! А то я вообще не врубаюсь...!
Напишите пожалуйста!!! Прошу!!!
var
sr:real;
i,k,l,n:integer;
begin
sr := 0 ;
for i:=1 to k-1 do
sr:=sr+arr;
for i:=L+1 to N do
sr:=sr+arr;
Srednee := sr/(N - L + K - 1 )) ;
А почему array - arr?
Компьютер это не воспринимает! Пишешь array - тоже неправильно!
Вводить array надо в начале? Какая концовка, чтоб на экран вышло это число?! А то я вообще не врубаюсь...!
Напишите пожалуйста!!! Прошу!!!
А блок-схему кто-нибудь может написать? Я вообще не умею их делать!
Напишите пожалуйста!
Напишите пожалуйста!
Там где самое начало под словом Var пишем
"arr: array[1..N] of real ;"
"arr: array[1..N] of real ;"
Найти среднее арифметическое элементов массива x(n) , исключив из них максимальное и минимальное значение
Надо написать в паскале ... может кто помочь ?
Надо написать в паскале ... может кто помочь ?
Цитата: PeaK
...
"arr: array[1..N] of real ;"
"arr: array[1..N] of real ;"
Никогда так не делайте. Если нужно объявить много массивов то получится не очень наглядно.
Можно конечно навести курсор на константу и число будет выдано, либо промотать где это объявлено.
Но лучше сразу писать от куда массив и до куда если известно число элементов, если нет юзаем динамический массив
Цитата: Артём Забашта
Найти среднее арифметическое элементов массива x(n) , исключив из них максимальное и минимальное значение
Надо написать в паскале ... может кто помочь ?
Надо написать в паскале ... может кто помочь ?
Находите сумму всех элементов, а также максимальный и минимальный. Вычитаете то, что нужно исключить, из общей суммы. Результат делите на n - 2.