Курсовая работа: Особые свойства Гамма-функции Эйлера

A=x+1.0;

Fc=1.0/x;

}

While (a>=2)

{

A=a-1.0;

Fc=fc*a;

}

A=a-1.0;

If(a==0) return fc;

B=a*a;

S=0;

For (i=0;i<5;i++)

{

S=s+b*dze[i]/(i+2.0);

B=-b*a;

}

Nb=exp((i.0/6.0)*(7.0*log(a)-log(42/0)-log(eps)))+I;

For (n=1;n<=nb;n++)

{

B=a/n;

Si=0;

For(j=0; j<5; j++)

{

Si=si+b/(j+1.0);

B=-b*a/n;

}

S=s+si-log(1.0+a/n);

}