Технический форум - Задача в Паскаль

Цитата:

Сообщение от Gylij (Сообщение 623804)

Написать программу нахождения среднего геометрического пяти чисел. Вычисление оформить в виде функции

Слушаюсь и повинуюсь, о Великий:

Код:

Const

 N=5;

Type

 Ar=Array[1..N] of Real;

Var

 A:Ar;

 i:Byte;

 G:Real;



Function GMean(Ng:Byte;Ag:Ar):Real;

Var

 j:Byte;

 P,GM:Real;

 b:boolean;

begin

 b:=false;

 j:=0;

 Repeat

  Inc(j);

  If Ag[j]<=0 then b:=true;

 Until b or (j=Ng);

 If b then GM:=0

 else

  begin

   P:=1;

   for j:=1 to Ng do

    P:=P*Ag[j];

   GM:=Exp(Ln(P)/Ng);

  end;

 GMean:=GM;

end;



BEGIN

 For i:=1 to N do

  begin

   Write('A[',i,']= ');

   Readln(A[i]);

  End;

 Writeln;

 Writeln;

 G:=GMean(N,A);

 If G=0 then

  Writeln('The geometric mean does not exist!')

 else

  Writeln('Geometric mean is ',G:0:5);

 Readln

END.