Написать программу на паскале для определения числа членов ряда, вошедших в сумму. Исходные данные 0.62, точность вычисления 10^-4.

Const eps=1e-4;

var n, z:integer; x, sx, an, s:real;

begin

x:=0.62;

sx:=sin (x) ;

n:=1; z:=-1;

an:=1; s:=0;

while abs (an) >eps do

begin

z:=-z;

n:=n+1;

an:=z*sx / (n * (n*n-1)) ;

s:=s+an;

end;

writeln ('k = ', n-1,' s = ', s) ;

end.

Результат:

k = 17 s = 7.92376332816429E-002