Задачи по 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. Вычислить среднее арифметическое кубов двух чисел и среднее геометрическое их модулей.
    Помогли? Поставьте оценку, пожалуйста.
    Плохо
    0
    Хорошо
    0
    Супер
    0
    Спринт-Олимпик.ру