Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ задача с факториалом

Автор: -гость- 15.05.2006 3:48

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

Автор: avrillover 15.05.2006 4:07

задача http://up.li.ru/?id=180585;pascal.rar

Автор: volvo 15.05.2006 4:12

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

Автор: avrillover 15.05.2006 4:15

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

Автор: APAL 15.05.2006 4:31

Цитата(avrillover @ 15.05.2006 1:15) *

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



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


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

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

Автор: volvo 15.05.2006 4:48

Ну, так при чем факториал? Это же
http://forum.pascal.net.ru/index.php?s=&showtopic=4535&view=findpost&p=44175

Автор: APAL 15.05.2006 5:12

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

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 15.05.2006 20:51

Цитата(volvo @ 15.05.2006 0:48) *

Ну, так при чем факториал? Это же
http://forum.pascal.net.ru/index.php?s=&showtopic=4535&view=findpost&p=44175



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