Почему цикл считается только один раз?

@SergStLv · Регистрация: 25.10.2009

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

Вводится точность e. Вычислить сумму ряда http://e.tsi.lv/file.php/33/La... 4_ris5.JPG Вычисления продолжать до тех пор, пока очередное слагаемое не станет меньше e. Вывести рядом и сравнить с полученной суммой.

Delphi

var
    e,i,sum,k,a,b,c:extended;
begin
 e:=StrToFloat(Edit1.Text);
 sum:=1;//
 k:=-1; //
 a:=3;  //
 b:=3;  //
 i:=1;  //
  while i>e do
   begin
    i:=(1/(a*b))*k;//
    sum:=sum+i;    //
    a:=a+2;        //
    b:=b*3;        //
    k:=-k;         //
   end;
 c:=3.14/(2*sqrt(3));
 Label4.Caption:=FloatToStr(sum);
 Label5.Caption:=FloatToStr(c);
end;

Кто может подсказать, почему цикл считается только один раз?

@Monte-Cristo · 07.11.2009, 19:48

SergStLv, потому что после первого прохода, у тебя i будет меньше эпсилы. ты же на k домножаешь (а k у нас -1). Тебе надо в цикле while брать модуль i в сравнении с эпсилой.

@Inadequate · 07.11.2009, 19:51

Сообщение от SergStLv

i:=(1/(a*b))*k;

потому что k=-1 и при умножении i становится меньше 0 а значит меньше eps поэтому он и работает 1 раз

Добавлено через 50 секунд
Граф, сорри чуть опаздал...

@SergStLv · 07.11.2009, 19:53 **[ТС]**

Блин,

. Об этом не подумал, второй день голову ломаю. Всем спасибо.

@Monte-Cristo 2816 / 1407 / 107 Регистрация: 07.03.2009 Сообщений: 4,446
	07.11.2009, 19:48	2
	SergStLv, потому что после первого прохода, у тебя i будет меньше эпсилы. ты же на k домножаешь (а k у нас -1). Тебе надо в цикле while брать модуль i в сравнении с эпсилой. 1

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	07.11.2009, 19:51	3
	Сообщение от SergStLv i:=(1/(ab))k; потому что k=-1 и при умножении i становится меньше 0 а значит меньше eps поэтому он и работает 1 раз Добавлено через 50 секунд Граф, сорри чуть опаздал... 1

@SergStLv 0 / 0 / 0 Регистрация: 25.10.2009 Сообщений: 44
	07.11.2009, 19:53 [ТС]	4
	Блин, . Об этом не подумал, второй день голову ломаю. Всем спасибо. 0