ВВЕРХ
ВНИЗ

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

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

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

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

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

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
var
  a, b: real;

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

Begin9. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, т. е. квадратный корень из их произведения: (a·b)^(1/2)

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

Блок схема. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, т. е. квадратный корень из их произведения: (a·b)^(1/2)

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
var
  a, b: real;

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


Яндекс.Метрика