Error 207: Invalid floating point operation

[Apricus]

Написала программу для нахождения приближенного решения нелинейной системы уравнений методом Ньютона.

Uses crt;
label 1;
type r=real; int=integer;
 Var xx,yy,D,x1,y1,E:r; m,i:int;

  function Fxy(x,y:r):r;   {F(x,y)}
  begin
  Fxy:=x-y-6*(ln(x)/ln(10))-1;
  end;

  function Qxy(x,y:r):r;  {Q(x,y)}
  begin
  Qxy:=x-3*y-6*(ln(x)/ln(10))+2;
  end;

  function fdx(x:r):r; {F'x(x)}
  begin
  fdx:=1-6/(ln(10)*x);
  end;

  function fdy(x:r):r; {F'y(x)}
  begin
  fdy:=-1;
  end;

  function Qdx(x:r):r; {Q'x(x)}
  begin
  Qdx:=1-6/(ln(10))*x;
  end;

  function Qdy(y:r):r;  {Q'y(y)}
  begin
  Qdy:=-3;
  end;
BEGIN clrscr;
writeln('vvedite x0 i y0');
readln(xx,yy);
writeln('vvedite tochnost e');
readln(E);
 1:
 D:=fdx(xx)*Qdy(yy)-Qdx(xx)*fdy(yy);
 Writeln('Yakobian=', D:4:3);
  Writeln;
   IF D=0 then begin writeln('Ne shoditsya'); exit; end
  else
 x1:=xx-1/D*(Fxy(xx,yy)*Qdy(yy)-Qxy(xx,yy)*Fdy(yy));
 y1:=yy-1/D*(Fdx(xx)*Qxy(xx,yy)-Qdx(xx)*Fxy(xx,yy));
IF  (abs(x1-xx)>E) and (abs(y1-yy)>E) then begin
  xx:=x1; yy:=y1;
  goto 1; end
       else
 writeln('Priblijennoe znachenie kornya X',x1:4:2);
 writeln('Priblijennoe znachenie kornya Y',y1:4:2);
 readkey;
 end.

Выдает эту ошибку (207) в строке
y1:=yy-1/D*(Fdx(xx)*Qxy(xx,yy)-Qdx(xx)*Fxy(xx,yy));

под ln(x) нулевые значения не попадают, деления на ноль тоже нет, с типами данных все нормально...

[Прик]

Где же здесь ошибка?

[Apricus]

мне еще даны значения, которые нужно вводить
х=0,4 y=0.3 и точность е=0,1
При моих параметрах выводится ошибка
И как ее исправить, я ума не приложу

[Прик]

Те же параметры. Опять ошибки нет.

[Apricus]

как это у вас получается... Вот вы хоть убейте, у меня появляется после компиляции эта ошибка...

[Mad_Cat]

Подтверждаю все работает

vvedite x0 i y0
0.4 // разделитель должен быть .
0.3 // разделитель должен быть .
vvedite tochnost e
0.1 // разделитель должен быть .
Yakobian=16.501

Priblijennoe znachenie kornya X0.43
Priblijennoe znachenie kornya Y1.60

[Прик]

Мистика, полтергейст. Ни единого символа в исходном тексте не исправлено. Взято как есть.
---
А мы об одном и том же компиляторе? TP7?
Или может библиотека не та.
У меня torbo.tpl - 48432 byte - 01.10.92

[Apricus]

об одном и том же... У меня знакомая преподавательница есть, у нее спрошу, как такое вообще возможно... что у меня не работает, а у других людей мой же код работает.
Спасибо за вывод результата, я хотя бы увидела, что мои ручные вычисления сходятся с теми, что программа выдает.