Помогите пожалуйста вычислить сумму чисел 1-1/3+1/5-1/7+1/9 с точностью до п/4 есть...

Question

Помогите пожалуйста вычислить сумму чисел 1-1/3+1/5-1/7+1/9 с точностью до п/4
есть начало программы
BEGIN
S:=0;
N:=1;
WHILE S<=PI/4 DO<br> BEGIN
S:=1/(2*N-1)+S
INC(N); срочно нужно

Answer 1

Так как написано, программа будет работать бесконечно.  Задавайте в программе точность вычислений, например, 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  writeln('сумма:  ',s);
  writeln('точное значение:  ',pi/4);
end.

Comments

Можно, а смысл какой? s:=0; sg:=1; i:=1; delta:=1; while delta>eps do begin delta:=1/(2*i-1); s:=s+(1/(2*i-1))*sg; sg:=-sg; i:=i+1; end; writeln('сумма: ',s);