ошибка массива

@slayerkltn · Регистрация: 01.03.2014

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

Delphi

procedure TForm3.Button1Click(Sender: TObject);
var x,y,k:real; var t:integer;
begin
if (x>0) and (x<1)then
t:=1;
while x<k do
begin
y:=fuk(t+1);
k:=(((t*ln(-1))*(2*sqr(t)-((2*t-1)*ln(x)))))/y;   t:=t+1;   //указывает ошибку
 Edit2.Text:=floatToStr(k);end;
//else Edit2.Text:='0<x<1';
end;
function TForm3.fuk(n: integer): integer;
var i:Integer;
begin
 if n = 0 then result := 0
  else result := 1;
  if n > 1 then for i:=2 to n do result := result*i;
end;
 
end.

подскажите почему пишет ошибку invalid floating point operation ругается на строку с формулой

@mutex · 01.03.2014, 01:20

ln(-1) - по определению логарифма такого быть не может. Если конечно речь не идёт о комплексных числах. ln(-1) =
3.14159265 i

@Puporev · 01.03.2014, 08:02

Показали бы свое задание,там наверняка написано (-1)^n*....
а это просто смена знака, например

Delphi

n:=1;
t:=1;
while abs(t)>e do
 begin
   n:=n+1;
   t:=-t*x/n;//смена знака на каждой итерации
   s:=s+t
 end;

И вообще чувствую что вся программа написана неверно.

@slayerkltn · 01.03.2014, 10:51 **[ТС]**

там (-1)^t вот и написал

Добавлено через 1 минуту
я писал ночью и голова уже плохо варила, я думаю полностью заново её переписать, пока что не знаю с чего начать(

@Puporev · 01.03.2014, 10:54

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

пока что не знаю с чего начать(

Приведи условие задачи...

@mutex 37 / 35 / 7 Регистрация: 18.04.2009 Сообщений: 376
	01.03.2014, 01:20	2
	ln(-1) - по определению логарифма такого быть не может. Если конечно речь не идёт о комплексных числах. ln(-1) = 3.14159265 i 0

@slayerkltn 0 / 0 / 0 Регистрация: 01.03.2014 Сообщений: 6
	01.03.2014, 10:51 [ТС]	4
	там (-1)^t вот и написал Добавлено через 1 минуту я писал ночью и голова уже плохо варила, я думаю полностью заново её переписать, пока что не знаю с чего начать( 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	01.03.2014, 10:54	5
	Сообщение от slayerkltn пока что не знаю с чего начать( Приведи условие задачи... 0