Цитата:
Сообщение от boston1839
помогите написать код для вычисления выражения
|
Да пожалуйста... Правда, Вы не снизошли до указания, нужно ли суммировать определенное число членов ряда или же добиться некоей точности, а посему я поступил по своему разумению.
Код:
Const
Eps=0.0001;
Var
S,a,x:Real;
k:Integer;
Begin
Write('x = ');
Readln(x);
a:=1;
S:=a;
k:=0;
Repeat
Inc(k,2);
a:=-a*x*x/(k-1)/k;
S:=S+a;
Until Abs(a)<Eps;
Writeln('Result: ',S:0:5,', n = ',k);
Writeln('Accurate value: ',Cos(x):0:5);
Readln
End.