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

Задачи по Pascal

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

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

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

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

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

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

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