Найти среднее арифметическое значение X и среднее квадратное отклонение σ: |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Найти среднее арифметическое значение X и среднее квадратное отклонение σ: |
natali_cortocova |
5.06.2012 18:27
Сообщение
#1
|
Группа: Пользователи Сообщений: 4 Пол: Женский Репутация: 0 |
Мальчики помогите.
Дан массив X(N). Найти среднее арифметическое значение X и среднее квадратное отклонение σ. |
IUnknown |
5.06.2012 18:43
Сообщение
#2
|
a.k.a. volvo877 Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: 627 |
Цитата и среднее квадратное отклонение σ. Среднеквадратическое отклонение (оно же корень квадратный из дисперсии)for i := 1 to N doВсё просто. Сообщение отредактировано: IUnknown - 5.06.2012 18:44 |
natali_cortocova |
5.06.2012 19:06
Сообщение
#3
|
Группа: Пользователи Сообщений: 4 Пол: Женский Репутация: 0 |
Среднеквадратическое отклонение (оно же корень квадратный из дисперсии) for i := 1 to N doВсё просто. Спасибочки а как с "Найти среднее арифметическое значение X"? |
Krjuger |
5.06.2012 19:32
Сообщение
#4
|
Профи Группа: Пользователи Сообщений: 652 Пол: Мужской Реальное имя: Алексей Репутация: 20 |
Сложить все числа и разделить на количество.
|
IUnknown |
5.06.2012 19:50
Сообщение
#5
|
a.k.a. volvo877 Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: 627 |
Среднее арифметическое X находится в моем коде в переменной aver, если что. Без среднего арифметического посчитать сигму... Хм... как бы это сказать... Несколько затруднительно, поэтому мы сначала ищем среднее арифметическое элементов, а потом с его помощью - отклонение.
|
natali_cortocova |
5.06.2012 20:39
Сообщение
#6
|
Группа: Пользователи Сообщений: 4 Пол: Женский Репутация: 0 |
Среднее арифметическое X находится в моем коде в переменной aver, если что. Без среднего арифметического посчитать сигму... Хм... как бы это сказать... Несколько затруднительно, поэтому мы сначала ищем среднее арифметическое элементов, а потом с его помощью - отклонение. Что я сделала не так? Пишет что "нельзя преобразовать тип real к integer". Const n=10; Var X:array [1..n] of integer; i,aver:integer; begin Write('Введите массив: '); For i:=1 to n do Read(X[i]); Readln; 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); Readln; end. |
Krjuger |
5.06.2012 20:46
Сообщение
#7
|
Профи Группа: Пользователи Сообщений: 652 Пол: Мужской Реальное имя: Алексей Репутация: 20 |
Потому что среднее арифметическое это вещественное число,а у вас оно обьявлено, как целое. Надо обьявить его, как вещественное и все.
|
IUnknown |
5.06.2012 20:52
Сообщение
#8
|
a.k.a. volvo877 Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: 627 |
Цитата и все. Ну, не всё Сигма вон вообще не объявлена. Она, кстати, тоже вещественная. И это, не забывай обнулять переменные перед суммированием. Я этого не сделал - потому что набросок, а в программе лучше обнулять... |
Krjuger |
5.06.2012 20:59
Сообщение
#9
|
Профи Группа: Пользователи Сообщений: 652 Пол: Мужской Реальное имя: Алексей Репутация: 20 |
А я,как турбо паскаль,до первой ошибки
|
natali_cortocova |
5.06.2012 21:34
Сообщение
#10
|
Группа: Пользователи Сообщений: 4 Пол: Женский Репутация: 0 |
Я плохо знаю что такое отклонение правильно ли оно выводится?
Const nn=10; Var X:array [1..nn] of integer; i, n :integer; aver, sigma :real; begin Write('Количество элементов? '); Readln(n); For i:=1 to n do Read(X[i]); Readln; 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); end. |
TarasBer |
7.06.2012 9:07
Сообщение
#11
|
Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
Без среднего арифметического посчитать сигму... Хм... как бы это сказать... Это правильнее, когда данные идут одно за другим (например, в результате многократного повторения эксперимента), а отдельно хранить их нельзя. Надо всего лишь отдельно считать сумму квадратов и применить одну формулу. -------------------- |
Текстовая версия | 28.04.2024 11:41 |