Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Misha_Beginner
5 / 5 / 12
Регистрация: 12.09.2013
Сообщений: 156
#1

Вычислить значение выражения - Turbo Pascal

27.10.2013, 22:14. Просмотров 351. Ответов 1
Метки нет (Все метки)

Для заданого двумерного массива найти среднее арифметическое(я нашел его), среднее квадратное отклонение Б(это дельта) за формулами. + массив на картинке
Вот формулы:
http://www.cyberforum.ru/cgi-bin/latex.cgi?\bar{x} = \frac{1}{mn}\sum_{i=1}^{n}\sum_{j=1}^{n}{x}_{i,j} ;    \delta = \sqrt{\frac{1}{mn-1}\sum_{i=1}^{n}\sum_{i=1}^{n}}(x_{i,j}-\bar{x})^2
Так вот дополните пожалуйста код . я не знаю как искать среднее среднее квадратное отклонение!! Пожалуйста!
Вот код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var i,j:integer
a;array[1..2,1..4] of real;
sum,av:real;
for i:=1 to 2 do begin
for J:=1 to 4 do begin
write('a[',i,',',j, ]=');
read(a[i,j])
end;
end;
sum:=0
for i:=1 to 2 do begin
for j:=1 to 4 do
begin
sum:sum+a[i,j];
end;
end;
av:=sum(2*4);
writeln('average = ' , av)'
End.

http://www.cyberforum.ru/turbo-pascal/thread1194744.html
0
Миниатюры
Вычислить значение выражения  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.10.2013, 22:14
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить значение выражения (Turbo Pascal):

Вычислить значение выражения
Приветствую. Нужна помощь по Паскалю. По теме условные операторы Помогите...

Вычислить значение выражения
программа есть..нужна рекуррентная формула..пожалуйста напишите на листочке и...

Вычислить значение выражения
Написал, но что-т не фурычит Program Danilova; Var X,Y,Z,R,U:Integer;...

Вычислить значение выражения ((x-2)(x-4)...(x-2n))/(x-1)(x-3)...(x-2n-1)
Помогите, пожалуйсто, никак правильно не получается, задача: x -...

Вычислить значение выражения
спасайте:))

1
Basill
40 / 40 / 34
Регистрация: 16.02.2013
Сообщений: 197
27.10.2013, 22:20 #2
Используй это, правда это для одномерного ну там додумаешь сам
Pascal
1
2
3
4
5
6
7
8
9
10
for i := 1 to N do
aver := aver + X[ i ];
aver := aver / N; 
 
for i := 1 to N do
sigma := sigma + sqr(X[ i ] - aver);
sigma := sqrt(sigma / N);
 
Writeln('среднее арифметическое - ',aver);
Writeln('отклонение - ',sigma);
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.10.2013, 22:20
Привет! Вот еще темы с решениями:

Вычислить значение выражения
Кому не сложно. Помогите с задачей. Заранее спасибо. Вычислить и напечатать ...

Вычислить значение выражения
Составить блок-схему и программу вычисления функции У при заданных значениях a,...

Вычислить значение выражения
Составить программу к данному примеру и построить блок схему. Заранее...

Вычислить значение выражения


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

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

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