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

[-гость-]

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

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

[avrillover]

задача тут!!!

[volvo]

avrillover, а что, условие ЗДЕСЬ напечатать не судьба? Ты же все равно ЯВНО заархивировал DOC-файл (качать и проверять я не буду, ибо заразу всякую можно подхватить), а DOC-и запрещены правилами...

[avrillover]

не судьба...там редактор формул нужен...

[APAL]

не судьба...там редактор формул нужен...

Направда, можно и текстом!

Вычислите значение суммы членов бесконечного ряда с заданной точностью E=10^-4. На печать вывести значение суммы и число членов ряда, вошедших в сумму.

S=cos(Pi/6) {примерно равно} 1-((Pi/6)^2)/2!+((Pi/6)^4)/4!-.....+((-1)^n)*((Pi/6)^2n)/2n!+...

[volvo]

Ну, так при чем факториал? Это же
Общие вопросы по математике -> Как разложить функцию cos(z) в ряд?

[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.

[avrillover]

Ну, так при чем факториал? Это же
Общие вопросы по математике -> Как разложить функцию cos(z) в ряд?

скорее всего так оно и есть, вот только как это будет выглядеть с моей задачей