Условие задачи : Вычислить дробную часть среднего геометрического трех заданных положительных чисел (Язык 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.
