Помогите пожалуйста вычислить сумму чисел 1-1/3+1/5-1/7+1/9 с точностью до п/4 есть начал
Помогите пожалуйста вычислить сумму чисел 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); срочно нужно
Гость
Ответ(ы) на вопрос:
Гость Так как написано, программа будет работать бесконечно. Задавайте в программе точность вычислений, например, 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.
Не нашли ответ?
Похожие вопросы