сумма ряда

@necro · Регистрация: 26.09.2009

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

задача в документе, помогите решить плз

@mamedovvms · 01.10.2009, 14:52

Pascal

uses crt;
const al=0.001;
var k,n:integer;
    sum:real;
begin
k:=1;
n:=1;
sum:=k/(sqr(2*n)*(2*n));
while k/(sqr(2*n)*(2*n))-k/(sqr(2*(n+1))*(2*(n+1))) >al do
 begin
  k:=-k;
  n:=n+1;
  sum:=sum+k/(sqr(2*n)*(2*n));
 end;
writeln(sum);
readln;
end.

Вроде так

@MadMag · 01.10.2009, 16:20

Нет, немного не так:

Pascal

uses crt;
const al=0.001;
var k,n:integer;
    sum:real;
begin
k:=1;
n:=1;
sum:=0.125;
while k/(sqr(2*n)*(2*n))>al do
 begin
  k:=-k;
  n:=n+1;
  sum:=sum+k/(sqr(2*n)*(2*n));
 end;
writeln(sum);
readln;
end.

@necro · 02.10.2009, 02:11 **[ТС]**

спасибо большое за помощь

@necro 36 / 36 / 3 Регистрация: 26.09.2009 Сообщений: 298
	02.10.2009, 02:11 [ТС]	4
	спасибо большое за помощь 0