Delphi, Цикл с неизвестным числом повторений

[Orlangur]

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

даны действительные x,e (x<>0, e>0). вычислить с точностью до e (сумма ряда):
k от 1 до бесконечности, ((-1)^k*x^k)/k;

вот код:

procedure TForm1.Button1Click(Sender: TObject);
var k:Integer;
x,e,u,S:Real;
begin
x:=StrTofloat(Edit1.Text);
e:=StrTofloat(Edit2.Text);
S:=0;
k:=0;
while (u>e) do
  begin
    S:=S+u;
    k:=k+1;
    u:=(power(-1,k)*power(x,k))/k;
  end;
  Edit3.Text:=FloatToStr(u);
end;

end.

[ByAlex]

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

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

даны действительные x,e (x<>0, e>0). вычислить с точностью до e (сумма ряда):
k от 1 до бесконечности, ((-1)^k*x^k)/k;

вот код:

procedure TForm1.Button1Click(Sender: TObject);
var k:Integer;
x,e,u,S:Real;
begin
x:=StrTofloat(Edit1.Text);
e:=StrTofloat(Edit2.Text);
S:=0;
k:=0;
while (u>e) do
  begin
    S:=S+u;
    k:=k+1;
    u:=(power(-1,k)*power(x,k))/k;
  end;
  Edit3.Text:=FloatToStr(u);
end;

end.

А где ошибка то?

[Orlangur]

Программа запускается, но работает не верно: при любых X и e он выдает постоянно одно и то же число: 7,29... и т.д.

я могу скинуть весь проект, если вам будет так удобнее...

[ByAlex]

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

Программа запускается, но работает не верно: при любых X и e он выдает постоянно одно и то же число: 7,29... и т.д.

я могу скинуть весь проект, если вам будет так удобнее...

Давай, отправляй!

[viron]

Программа запускается, но работает не верно: при любых X и e он выдает постоянно одно и то же число: 7,29... и т.д.

begin
x:=StrTofloat(Edit1.Text);
e:=StrTofloat(Edit2.Text);
S:=0;
k:=0;
while (u>e) do  // Чему равна u здесь?
...

procedure TForm1.Button1Click(Sender: TObject);
var k:Integer;
x,e,u,S:Real;
begin
x:=StrTofloat(Edit1.Text);
e:=StrTofloat(Edit2.Text);
S:=0;
k:=1;
u:=(power(-1,k)*power(x,k))/k;

while (u>e) do
  begin
    S:=S+u;
    k:=k+1;
    u:=(power(-1,k)*power(x,k))/k;
  end;
  Edit3.Text:=FloatToStr(u);
end;

end.

[Orlangur]

VIRON

все-равно не пашет...
вот кое какие наработки)

procedure TForm1.Button1Click(Sender: TObject);
var k:Integer;
x,e,u,S:Real;
begin
x:=StrTofloat(Edit1.Text);
e:=StrTofloat(Edit2.Text);
S:=0;
k:=1;
u:=1;

while (u>e) do
  begin
    S:=S+u;
    k:=k+1;
    u:=u*(power(-1,k)*power(x,k))/k;
  end;
  Edit3.Text:=FloatToStr(S);
end;

end.

в Edit3 все же сумму нужно вывести

[ByAlex]

Учти - для входа в цикл, u должно быть больше e!

[viron]

Несколько раз проверил эту программу. Она ни при каких x и e не
заходит даже в цикл while Все таки u нужно считать по
формуле u:=(power(-1,k)*power(x,k))/k;. То есть u до входа в цикл получаеться отрицательным а e положительное.

Может в самой формуле ошибка?

Если x положительное то цикл пропускаеться а если отрицательное то в цикл заходим, но из него уже не выходим никогда.

[viron]

Вроде так

  x:= StrToFloat(Edit1.Text);
  e:= StrToFloat(Edit2.Text);
  k:= 1;
  u:= ( Power(-1,k)  * Power(x,k) ) / k;
  s:= u;

  if x > 0 then
  while (u > e) do
    begin
      k:= k + 1;
      u:= ( Power(-1,k)  * Power(x,k) ) / k;
      s:= s + u;
    end
  else
  while (u < e) do
    begin
      k:= k + 1;
      u:= ( Power(-1,k)  * Power(x,k) ) / k;
      s:= s + u;
    end;

[Orlangur]

все-равно не работает...
не знаю уже, что делать