задача с факториалом, помогите, плиз! Опции

[-гость-]

люди добрые выручайте!!! задача тут Вырезано!

Сообщение отредактировано: APAL - 15.05.2006 4:03

[APAL]

Если это какой-то частный случай с факториалами, то вот мое решение:

Var
 s,s_old  : Extended;
 n        : Word;
  
Function Fact(k : Word) : LongInt;
Begin
 Fact:=k;
 If (k>1) and (k<14) then Fact:=k*Fact(k-1)
End;
  
Function Sqrn(a : Extended; nn : Integer) : Extended;
Var ii     : Integer;
    Result : Extended;
Begin
  Result:=a;
  If nn>1 then
    For ii:=2 to nn do
      Result:=Result*a;
  Sqrn:=Result;
End;
  
Begin
  s:=1; n:=1;
  Repeat
    s_old:=s;
    s:=s+(sqrn(-1,n)*sqrn((Pi/6),2*n))/Fact(2*n);
{
    Write(n,' ',s:8 :8);
    Readln;
}
    inc(n);
  Until abs(s-s_old) <= 0.0001;
  Writeln(s,' ',n-1);
End.