Предмет: Информатика,
автор: Valera291
Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.
Помагите плииз)!!
Ответы
Автор ответа:
0
var
a, b: real;
begin
Write('Введите два числа через пробел ');
Readln(a, b);
Writeln('Среднее арифметическое кубов равно ', (a * sqr(a) + b * sqr(b)) / 2);
Writeln('Среднее геометрическое модулей равно ', sqrt(abs(a * b)))
end.
Тестовое решение:
Введите два числа через пробел -13.5 17.43
Среднее арифметическое кубов равно 1417.4722035
Среднее геометрическое модулей равно 15.3396544941534
**********************
Замечание: вместо произведения модулей при вычислении среднего геометрического достаточно взять модуль произведения - в любом случае получится требуемое положительное число.
a, b: real;
begin
Write('Введите два числа через пробел ');
Readln(a, b);
Writeln('Среднее арифметическое кубов равно ', (a * sqr(a) + b * sqr(b)) / 2);
Writeln('Среднее геометрическое модулей равно ', sqrt(abs(a * b)))
end.
Тестовое решение:
Введите два числа через пробел -13.5 17.43
Среднее арифметическое кубов равно 1417.4722035
Среднее геометрическое модулей равно 15.3396544941534
**********************
Замечание: вместо произведения модулей при вычислении среднего геометрического достаточно взять модуль произведения - в любом случае получится требуемое положительное число.
Похожие вопросы
Предмет: Математика,
автор: sofiyaprokudina08
Предмет: Русский язык,
автор: kuanshovazina
Предмет: История,
автор: zlatilius2010
Предмет: Химия,
автор: Malfatto