Условие задачи : Вычислить дробную часть среднего геометрического трех заданных положительных чисел (Язык Pascal)
Сложность : легкая .
Решение задачи :
Для начала продумаем наше решение. Тут ваще всё просто. Мы вводим три числа, потом ищем среднее геометрическое и с помощи функции frac ищем дробную часть.
Как нам найти среднее геометрическое? Очень просто, нам нужно просто умножить все числа и потом извлечь из того что получилось корень.
Для решения задачи нам понадобятся следующее переменные :
- Переменные num1, num2, num3 — для чисел
- Переменная sredA — для среднего геометрического
- Переменная drob — для дробной части
Начнем мы с каркаса нашей программы :
var num1, num2, num3, sredA, drob : real; begin write('Введите первое число : '); readln(num1); write('Введите второе число : '); readln(num2); write('Введите третье число : '); readln(num3); end.
Тут мы объявили переменные и попросили пользователя ввести значения.
Теперь давайте найдем среднее геометрическое и выведем его, надо же нам убедится в правильности результата :
sredA := sqrt(num1*num2*num3); writeln('Сред. геометр. = ', sredA:2:2);
Ну а теперь нам осталось найти дробную часть, как я и сказал делать мы это будем с помощью функции frac :
drob := Frac(sredA); writeln('Дробная часть = ', drob:2:2);
Вот и всё. Осталось только вывести результат.
Всё решение задачи Pascal :
var num1, num2, num3, sredA, drob : real;// объявляем переменные begin write('Введите первое число : '); readln(num1); // вводим значение write('Введите второе число : '); readln(num2); // вводим значение write('Введите третье число : '); readln(num3); // вводим значение sredA := sqrt(num1*num2*num3); // считаем сред.геометрич. writeln('Сред. геометр. = ', sredA:2:2); // выводим считаем сред.геометрич. drob := Frac(sredA); // находим дробную часть writeln('Дробная часть = ', drob:2:2); // выводим дробную часть readln; // чтобы программа не закрывалась end.