Среднее арифметическое и среднее геометрическое

На этой странице дано решение примеров Begin8 - Begin9 из задачника Абрамяна. Здесь рассматривается средние арифметическое и геометрическое двух чисел.

Begin8. Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2

Одна из самых элементарных задач по программированию: находим сумму и делим на 2.

var
  a, b: real;

begin
  writeln('Введите два числа:');
  readln(a, b); { <-- Вводим два числа и нажимаем Enter }
  { Выводим результат: }
  writeln('Среднее арифметическое чисел ', a, ' и ', b, 
          ' равно ', (a + b) / 2);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ Begin9. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, т. е. квадратный корень из их произведения: (a·b)^^(1/2)

Для вычисления корня квадратного используем функцию sqrt(x), а потом по условию - находим корень из произведения a и b.

var
  a, b: real;

begin
  writeln('Введите два неотрицательных числа:');
  readln(a, b); { <-- Вводим два числа и нажимаем Enter }
  { Результат с точностью 3 знака: }
  writeln('Среднее геометрическое ', a, ' и ', b, 
    ' равно ', sqrt(a * b):0:3);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸ **function** Sqrt(x: real): real;: Возвращает квадратный корень числа x.