2 / 2 / 0
Регистрация: 08.05.2019
Сообщений: 181
1

Найти среднеарифметическое значение

14.05.2019, 17:14. Показов 584. Ответов 7
Метки нет (Все метки)

Найти среднеарифметическое значение последних 10-и элементов и произведение элементов с нечетным индексом массива M=(m[1],m[2],...m[10]
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.05.2019, 17:14
Ответы с готовыми решениями:

Найти среднеарифметическое значение всех положительных и отрицательных элементов
Помогите!!! Задание: Создайте приложение для обработки одномерного массива. Найдите...

Найти среднеарифметическое значение элементов массива, предшествующих первому элементу, большему 50
Найти среднеарифметическое значение элементов вещественного массива A1, A2, ..., An, предшествующих...

Вычислить среднеарифметическое значение каждых вторых элементов второй четверти массива
Имеется заполненный массив Y(4x3), Необходимо преобразовать массив Y в одномерный массив Z....

Найти среднеарифметическое по каждой строке и каждому столбцу
Дана матрица размера nxm, в данной матрице найти среднеарифметическое по каждой строке и каждому...

7
Модератор
8229 / 5465 / 2246
Регистрация: 21.01.2014
Сообщений: 23,532
Записей в блоге: 3
14.05.2019, 17:37 2
Цитата Сообщение от Panda05646 Посмотреть сообщение
последних 10-и элементов
Цитата Сообщение от Panda05646 Посмотреть сообщение
массива M=(m[1],m[2],...m[10]
А Вам не кажется, что с таким условием Вы можете просто сумму элементов всего массива найти - будет одно и то же? Как это сделать - Вам уже показывали.
0
2 / 2 / 0
Регистрация: 08.05.2019
Сообщений: 181
14.05.2019, 19:22  [ТС] 3
вот так
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const n=10;
var m:array[1..n] of extended;
    p,q:extended;
    i:byte;
begin
randomize;
for i:=1 to n do
 begin
 m[i]:=random(20);;
 end;
 begin
 for i:=1 to n do
p:=m[i]/n;
end;
q:=m[1]*m[3]*m[5]*m[7]*m[9];
Memo3.Lines.Add('Ðåçóëüòàò p='+floattostrf(p,fffixed,8,2));
Memo3.Lines.Add('Ðåçóëüòàò q='+floattostrf(q,fffixed,8,2));
end;
Добавлено через 17 секунд
Если нет подскажите что изменить
0
Модератор
8229 / 5465 / 2246
Регистрация: 21.01.2014
Сообщений: 23,532
Записей в блоге: 3
14.05.2019, 20:35 4
Цитата Сообщение от Panda05646 Посмотреть сообщение
Если нет подскажите что изменить
Подсказываю...
1. Вы знаете как находится среднее арифметическое? В математике, на бумажке? Вот и тут точно так же, но у Вас этого нет...
2. А если бы у Вас был массив из 100 хотя бы элементов - то Вы бы эту строчку с умножением так и продолжали бы за границу экрана? Признак четного/нечетного числа знаете? Вот и используйте это знание в цикле...
1
0 / 0 / 0
Регистрация: 02.03.2019
Сообщений: 62
14.05.2019, 20:40 5
Delphi
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
procedure SUB(k,s:extended; n,m:byte; b:array of integer; var pr:extended);
var
i:byte;
pr1:extended;
begin
pr:=1;
pr1:=1 ;
for i:= n to m do
begin
pr1:=pr1*power(b[i],s);
end;
pr:=pr1*k;
end;
 
procedure TForm1.Button11Click(Sender: TObject);
var
b:array[0..16] of integer;
Y:extended;
i:byte;
sub1,sub2,sub3:extended;
begin
Memo5.Text:='Ýëåìåíòû ìàññèâà b: ' ;
for i:=0 to 16 do
begin
b[i]:=random(20);
Memo5.Text:=Memo5.Text+'  ['+inttostr(b[i])+']';
end;
SUB(1.9,2,16,2,b,sub1);
SUB(7,3,16,3,b,sub2);
SUB(0.4,1,10,0.5,b,sub3);
Y:=sub1+sub2+sub3;
Memo5.Lines.Add('Y='+floattostrf(Y,fffixed,10,2));
end;

Можете сказать почему не работает дробное число в этой процедуре SUB(0.4,1,10,0.5,b,sub3)??
0
Модератор
8229 / 5465 / 2246
Регистрация: 21.01.2014
Сообщений: 23,532
Записей в блоге: 3
15.05.2019, 04:25 6
Цитата Сообщение от docsent0568 Посмотреть сообщение
почему не работает дробное число
Посмотрите внимательно на вызов:
Цитата Сообщение от docsent0568 Посмотреть сообщение
SUB(0.4,1,10,0.5,b,sub3)
и на объявление:
Цитата Сообщение от docsent0568 Посмотреть сообщение
procedure SUB(k,s:extended; n,m:byte; b:array of integer; var pr:extended);
4-м параметром у Вас идет переменная типа byte - целое число! О какой дроби может идти речь?!
0
Matan!
15.05.2019, 08:48
  #7

Не по теме:

docsent0568, а каким образом Ваша задача касается данной темы? У Вас есть своя тема, вот и задавайте в ней свой вопрос!

0
D1973
15.05.2019, 08:56     Найти среднеарифметическое значение
  #8

Не по теме:

Ух ты... А я и не увидел, что автор вопроса на ходу поменялся... Что один, что второй: два сапога - пара...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.05.2019, 08:56

Вычислить среднеарифметическое 10 чисел
помогите пожалуйста!Написать программу которая генерирует 10 случайных чисел в диапазоне от 1 до...

Найти среднеарифметическое значение
Есть у меня задачка: в одномерном массиве A(N) действительных чисел определить среднеарифметическое...

Найти среднеарифметическое значение выражений
Найти среднеарифметическое значение следующих выражений: a=tg(2x+z*z) b=sum(i=0, N) (4x+1)^2 ...

Найти среднеарифметическое значение элементов массива
Сформировать массив А из 24 целых чисел, используя генератор случайных чисел. Диапазон изменения ....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru