Технический форум - Паскаль. Вычислить выражение.

Цитата:

Сообщение от boston1839 (Сообщение 1117910)

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

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

Код:

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.