Вычислить приближенное значение бесконечной суммы

@Annet Smith · Регистрация: 27.10.2010

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

Вычислить приближенное значение бесконечной суммы (справа от суммы дается ее точное значение, с которым можно сравнить полученный ответ):
Нужное приближение считается полученным, если вычислена сумма нескольких первых слагаемых, и очередное слагаемое оказалось по модулю меньше данного положительного числа .

@Puporev · 09.11.2010, 20:24

Pascal

uses crt;
var n,k:longint;
    p,t,e:real;
begin
clrscr;
repeat
write('e>0 e=');
readln(e);
until e>0;
if e>=1 then write('S=1')
else
 begin
  p:=0;
  n:=0;
  t:=1;
  k:=-1;
  while abs(t)>e do
   begin
    n:=n+1;
    k:=-k;
    t:=k/(2*n-1);
    p:=p+t;
   end;
  writeln('Значение числа pi/4 с точностью ',e:0:5,'=',p:0:5);
  write('Аналитически=',pi/4:0:5);
 end;
readln
end.

@Annet Smith 1 / 1 / 0 Регистрация: 27.10.2010 Сообщений: 35
		1
	Вычислить приближенное значение бесконечной суммы 09.11.2010, 20:09. Показов 3338. Ответов 1 Метки нет (Все метки) Вычислить приближенное значение бесконечной суммы (справа от суммы дается ее точное значение, с которым можно сравнить полученный ответ): Нужное приближение считается полученным, если вычислена сумма нескольких первых слагаемых, и очередное слагаемое оказалось по модулю меньше данного положительного числа . Миниатюры 0

	09.11.2010, 20:24

Вычислить приближенное значение бесконечной суммы

Решение