Вычислить сумму чисел 1-1/3+1/5-1/7+1/9 с точностью - вопрос №52801081131517194 от лиза22110 23.09.2020 05:39

Question

Информатика: Вычислить сумму чисел 1-1/3+1/5-1/7+1/9 с точностью до п/4 есть начало программы begin s: =0; n: =1; while s =pi/4 do begin s: =1/(2*n-1)+s inc(n); нужно

лиза22110 · Answer

Так как написано, программа будет работать бесконечно. Задавайте в программе точность вычислений, например, 6 знаков после запятой, eps = 1.0e-6

var eps,s,delta: real;
i,sg: integer;
begin
write('точность вычислений eps: ');
readln(eps);
s:=0; sg:=1; i:=1;
repeat
delta:=1/(2*i-1);
s:=s+(1/(2*i-1))*sg;
sg:=-sg;
i:=i+1;
until delta<eps;
writeln('сумма: ',s);
writeln('точное значение: ',pi/4);
end.

Вычислить сумму чисел 1-1/3+1/5-1/7+1/9 с точностью до п/4 есть начало программы begin s: =0; n: =1; while s< =pi/4 do begin s: =1/(2*n-1)+s inc(n); нужно