Паскаль. Вычислить выражение.

[boston1839]

Паскаль. Вычислить выражение.

помогите написать код для вычисления выражения

 

[Vladimir_S]

помогите написать код для вычисления выражения

Да пожалуйста... Правда, Вы не снизошли до указания, нужно ли суммировать определенное число членов ряда или же добиться некоей точности, а посему я поступил по своему разумению.

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.