Задачи по Pascal. Вычислить дробную часть среднего геометрического трех заданных положительных чисел. - Помощник для школьников Спринт-Олимпик.ру

Условие задачи: Вычислить дробную часть среднего геометрического трех заданных положительных чисел (Язык Pascal)

Сложность: легкая.

Содержание

Решение задачи
Начнем мы с каркаса нашей программы
Всё решение задачи 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
.

ПрограммированиеЗадачи по Pascal. Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса.

ПрограммированиеЗадачи по Pascal. Вычислить среднее арифметическое кубов двух чисел и среднее геометрическое их модулей.