avrillover, а что, условие ЗДЕСЬ напечатать не судьба? Ты же все равно ЯВНО заархивировал DOC-файл (качать и проверять я не буду, ибо заразу всякую можно подхватить), а DOC-и запрещены правилами...
avrillover
15.05.2006 4:15
не судьба...там редактор формул нужен...
APAL
15.05.2006 4:31
Цитата(avrillover @ 15.05.2006 1:15)
не судьба...там редактор формул нужен...
Направда, можно и текстом!
Цитата
Вычислите значение суммы членов бесконечного ряда с заданной точностью E=10^-4. На печать вывести значение суммы и число членов ряда, вошедших в сумму.
Если это какой-то частный случай с факториалами, то вот мое решение:
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.