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

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

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

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

Для начала продумаем наше решение. Оно ну очень простое. Введем числа, потом просто подставим их в формулу среднего арифметического и среднего геометрического и всё)

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

  • Переменные num1 и num2 — для наших двух чисел
  • Переменная sredA — для среднего арифметического
  • Переменная sredG — для среднего геометрического
  • Начнем мы с каркаса нашей программы

    uses
    crt;
    var

    num1 , num2, sredA, sredG :
    real
    ;
    begin

    write
    (
    'Введите 1-ое число : '
    );readln(num1);

    write
    (
    'Введите 2-ое число : '
    );readln(num2);
    end
    .

    Тут мы объявили переменные и попросили пользователя ввести значения. Теперь стоит сказать как находятся среднее арифметическое и геометрическое.

    1. Среднее арифм. — это сумма всех чисел деленная на кол-во чисел, т.е. в нашем случае два числа, значит будет (num1+num2)/2

    2. Среднее геометр. — это корень из произведения всех чисел, т.е. надо умножить все числа и извлечь корень.

    И так сначала давайте для среднего арифметического :

    sredA := (num1+num2) /
    2
    ;

    Тут всё просто. Дальше для среднего геометрического, в условии сказано что там модуль чисел, поэтому :

    sredG := Sqrt(
    abs
    (num1)*
    abs
    (num2));

    Вот и всё. Осталось только вывести результаты.

    Всё решение задачи Pascal

    uses
    crt;
    // если используете программу Delphi удалите эту строку.
    var

    num1 , num2, sredA, sredG :
    real
    ;
    begin

    clrscr;
    // очищаем экран. если используете программу Delphi удалите эту строку.

    write
    (
    'Введите 1-ое число : '
    );readln(num1);
    // вводим

    write
    (
    'Введите 2-ое число : '
    );readln(num2);
    // значения

    sredA := (num1+num2) /
    2
    ;
    // ищем среднее арифметическое

    sredG := Sqrt(
    abs
    (num1)*
    abs
    (num2));
    // ищем среднее геометрическое

    writeln
    (
    'Среднее арифметическое : '
    , sredA:
    2
    :
    2
    );
    // выводим

    writeln
    (
    'Среднее геометрическое : '
    , sredB:
    2
    :
    2
    );
    // результат

    readln;
    // чтобы программа не закрывалась
    end
    .
    Предыдущая
    ПрограммированиеЗадачи по Pascal. Вычислить дробную часть среднего геометрического трех заданных положительных чисел.
    Следующая
    ПрограммированиеЗадачи по Pascal. Заменить элемент A[k] средним арифметическим K-первых элементов.
    Помогли? Поставьте оценку, пожалуйста.
    Плохо
    0
    Хорошо
    0
    Супер
    0
    Спринт-Олимпик.ру