Условие задачи : Вычислить среднее арифметическое кубов двух чисел и среднее геометрическое их модулей (Язык Pascal).
Сложность : легкая .
Решение задачи :
Для начала продумаем наше решение. Оно ну очень простое. Введем числа, потом просто подставим их в формулу среднего арифметического и среднего геометрического и всё)
Для того чтобы решить задачу нам понадобятся следующее переменные :
- Переменные num1 и num2 — для наших двух чисел
- Переменная sredA — для среднего арифметического
- Переменная sredG — для среднего геометрического
Начнем мы с каркаса нашей программы :
uses crt; var num1 , num2, sredA, sredG : real; begin write('Введите 1-ое число : ');readln(num1); write('Введите 2-ое число : ');readln(num2); end.
Тут мы объявили переменные и попросили пользователя ввести значения. Теперь стоит сказать как находятся среднее арифметическое и геометрическое.
- Среднее арифм. — это сумма всех чисел деленная на кол-во чисел, т.е. в нашем случае два числа, значит будет (num1+num2)/2
- Среднее геометр. — это корень из произведения всех чисел, т.е. надо умножить все числа и извлечь корень.
И так сначала давайте для среднего арифметического :
sredA := (num1+num2) / 2;
Тут всё просто. Дальше для среднего геометрического, в условии сказано что там модуль чисел, поэтому :
sredG := Sqrt(abs(num1)*abs(num2));
Вот и всё. Осталось только вывести результаты.
Всё решение задачи Pascal :
uses crt; // если используете программу Delphi удалите эту строку. var num1 , num2, sredA, sredG : real; begin clrscr; // очищаем экран. если используете программу Delphi удалите эту строку. write('Введите 1-ое число : ');readln(num1); // вводим write('Введите 2-ое число : ');readln(num2); // значения sredA := (num1+num2) / 2; // ищем среднее арифметическое sredG := Sqrt(abs(num1)*abs(num2)); // ищем среднее геометрическое writeln('Среднее арифметическое : ', sredA:2:2); // выводим writeln('Среднее геометрическое : ', sredB:2:2); // результат readln; // чтобы программа не закрывалась end.