.


           

,




, () .

( ) , .

, n-

,
, n -.

a x. :
a > 0.

Function

Extent_real(a, x : real) : real;

begin

Extent_real := exp(x*ln(a))

end;

-.

Function G(x, eps : real) : real;

var

n : longint;

g1, gg : real;

begin

n := 1; gg := Extent_real((n + 1)/n, x)/(x*(x + n));

repeat

n := n + 1;

gg := gg*n*Extent_real((n + 1)/n, x)/(x + n);

n := n + 1;

g1 := gg*n*Extent_real((n + 1)/n, x)/(x + n)

until abs(g1 - gg) < eps;

G := gg

end;







Program

Gamma_function;

uses WinCrt;

var

x, eps : real;

{----------------------------------------------------------------------------------------}

{ - }

Function t(eps : real) : integer;

var

k : integer;

begin

k := -1;

repeat

eps := eps*10;

k := k + 1

until eps > 1;

t := k

end;

{----------------------------------------------------------------------------------------}

Function Extent_real(a, x : real) : real;