IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Линейные алгоритмы (Проверка), Вопрос
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 27
Пол: Мужской
Реальное имя: Стас

Репутация: -  0  +


Всем привет.
Условие: Заданы 4 числа. Вычислить среднее арифметическое и среднее геометрическое модулей. Исходные данные a,b,c,d.

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

Program zad1;
Uses crt;
Var a,b,c,d:longint;
begin
a:=abs (a);
b:=abs (b);
c:=abs ©;
d:=abs (d);
writeln ('vvedite 4 4isla');
readln (a,b,c,d);
writeln ('srednee arifmetich=', (0.5*(a+b+c+d)):8:3);
writeln ('srednee geometri4 modulei=', (sqrt(a*b*c*d)):8:3);
writeln ('nagmi enter');
readln;
end.


Сообщение отредактировано: Stas86 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


Среднее геометрическое считается неправильно.
Надо брать корень 4 степени, а не второй.


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата
все ли в ней правильно
Нет, не все... Среднее арифметическое N элементов - это их сумма, деленная на N (а не на 2). Точно так же и среднее геометрическое - это не квадратный корень, а корень степени N... В твоем случае - четвертой степени...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


Упс, накладочка с сообщениями...

Сообщение отредактировано: TarasBer -


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 27
Пол: Мужской
Реальное имя: Стас

Репутация: -  0  +


Получилось вот так, но ошибка лезет, в формуле среднего геометрического. Поправьте меня.

writeln ('srednee arifmetich=', ((a+b+c+d)/4):8:3);
writeln ('srednee geometri4 modulei=', ((a*b*c*d)^(1/4):8:3);
readln;
end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Ошибка - потому что в Паскале нет операции возведения в степень "^". Это тебе не Бейсик. Сделай sqrt(sqrt(abs(a*b*c*d)))...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 27
Пол: Мужской
Реальное имя: Стас

Репутация: -  0  +


Спасибо, работает.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.10.2020 19:32
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name