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

Question

Информатика

Лера

29 марта, 15:01

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

+1

Ответы (1)

Знаешь ответ?

Апраксин · Answer 1

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