Цитата:
Сообщение от Linka
М, собственно вопрос, как вычислить значение аргумента x, функции cos^2 x с шагом
Ссылка удалена ?
Расчеты производить по этой формуле
Ссылка удалена
по разложению в ряд.
Если у кого есть свободные 6 минут, помогите с кодом, пожалуйста =)
|
Пожалуйста (если, конечно, Вас устроит Паскаль - язык Вы не указали):
Код:
VAR
X:REAL;
i:INTEGER;
Function SUM(Xs:REAL):REAL;
VAR
a:REAL;
n:INTEGER;
Begin
a:=-SQR(2*Xs)/2;
SUM:=1+0.5*a;
n:=1;
Repeat
Inc(n);
a:=-a*SQR(2*Xs)/(2*n-1)/(2*n);
SUM:=SUM+0.5*a;
Until Abs(a)<1E-7;
End;
BEGIN
For i:=0 TO 45 DO
Begin
X:=Pi*i/90;
WriteLn(i:2,'*Pi/90', SUM(X):10:5, SQR(Cos(X)):10:5);
End;
ReadLn;
END.