Описать процедуру Mean (X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean =...

Question

Описать процедуру Mean (X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean = (X+Y)/2 и среднее геометрическое двух положительных чисел X и Y (X и Y — входные, AMean и GMean — выходные параметры вещественного типа). С помощью этой процедуры найти среднее арифметическое и среднее геометрическое для пар (A, B), (A, C), (A, D), если даны A, B, C, D

Answer 1

Procedure Mean(X,Y:real; Var AMean,GMean:real);
Begin
AMean:=(X+Y)/2;
GMean:=Sqrt(X*Y);
End;
Var
   A,B,C,D,S:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
Write('D = ');ReadLn(D);
WriteLn;
Mean(A,B,S,B);
WriteLn('AMean(A,B) = ',S);
WriteLn('GMean(A,B) = ',B);
WriteLn;
Mean(A,C,S,C);
WriteLn('AMean(A,C) = ',S);
WriteLn('GMean(A,C) = ',C);
WriteLn;
Mean(A,D,S,D);
WriteLn('AMean(A,D) = ',S);
WriteLn('GMean(A,D) = ',D);
End.



A = 1
B = 2
C = 3
D = 4

AMean(A,B) = 1.5
GMean(A,B) = 1.4142135623731

AMean(A,C) = 2
GMean(A,C) = 1.73205080756888

AMean(A,D) = 2.5
GMean(A,D) = 2