Задачи по Pascal. Вычислить дробную часть среднего геометрического трех заданных положительных чисел.

Задачи по Pascal

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

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

Решение задачи :

Для начала продумаем наше решение. Тут ваще всё просто. Мы вводим три числа, потом ищем среднее геометрическое и с помощи функции frac ищем дробную часть.

Как нам найти среднее геометрическое? Очень просто, нам нужно просто умножить все числа и потом извлечь из того что получилось корень.

Для решения задачи нам понадобятся следующее переменные :

  1. Переменные num1, num2, num3 — для чисел
  2. Переменная sredA — для среднего геометрического
  3. Переменная 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.

cyber
Оцените автора
CyberLesson | Быстро освоить программирование Pascal и C++. Решение задач Pascal и C++
Добавить комментарий