Вычислить сумму ряда с заданной точностью с использованием оператора While и Repeat

@Skulduve · Регистрация: 13.01.2020

Author24 — интернет-сервис помощи студентам

Вычислить сумму ряда с точностью $https://www.cyberforum.ru/cgi-bin/latex.cgi?\alpha = 0.0001$ с использованием оператора While и Repeat

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{n=1}^{\infty }\frac{(-1)^n}{(2n+1)}<br />$

@Puporev · 13.01.2020, 08:02

Pascal

var n:integer;
    a,z,s:real;
begin
a:=0.0001;
n:=1;
z:=-1;
s:=-1/3;
while abs(z)/(2*n+1)>a do
 begin
  n:=n+1;
  z:=-z;
  s:=s+z/(2*n+1);
 end;
write('S=',s:0:4);
end.

@Cyborg Drone · 14.01.2020, 13:38

Вариант с циклом repeat:

Pascal

var n:integer;
    a,z,s:real;
begin
a:=0.0001;
n:=1;
z:=-1;
s:=-1/3;
repeat
 n:=n+1;
 z:=-z;
 s:=s+z/(2*n+1);
until 1/(2*n+1)<=a;
write('S=',s:0:4);
end.

На всякий случай, вариант с циклом for:

Pascal

var n:integer;
    a,z,s:real;
begin
a:=0.0001;
a:=(1/a-1)/2;
if frac(a)>0 then a:=a+1;
z:=-1;
for n:=1 to trunc(a) do
 begin
  s:=s+z/(2*n+1);
  z:=-z;
 end;
write('S=',s:0:4)
end.

Точная сума ряда:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{n=1}^{\infty }\frac{(-1)^n}{(2n+1)}=\frac{\pi }{4}-1<br />$

@Skulduve 0 / 0 / 0 Регистрация: 13.01.2020 Сообщений: 1
		1
	Вычислить сумму ряда с заданной точностью с использованием оператора While и Repeat 13.01.2020, 02:29. Показов 412. Ответов 2 Метки нет (Все метки) Вычислить сумму ряда с точностью $https://www.cyberforum.ru/cgi-bin/latex.cgi?\alpha = 0.0001$ с использованием оператора While и Repeat $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{n=1}^{\infty }\frac{(-1)^n}{(2n+1)}<br />$ 0

	14.01.2020, 13:38