Помогите разобраться в коде

[perekatipole]

у меня есть код,строящий график функций

procedure TForm2.GrClick(Sender: TObject);
function f(x:real): real;
Var
  c : real;
Begin
    c :=(2*x-1)/(sqr(x-1));
    f:=c;
end;
Var
  a,b,x : real;
  x0,y0,i : integer;
  flag:boolean;
Begin
  flag:=true;
  x0 := line1.Width div 2;
  y0 := line1.Height div 2;
  With line1.Canvas do
    Begin
      Pen.Color:=clBlack;
      MoveTo(x0,0);
      LineTo(x0,line1.ClientHeight);
      MoveTo(0,y0);
      LineTo(line1.ClientWidth,y0);
      MoveTo(0,y0);
      Pen.Color := clBlue;
      a :=-line1.ClientHeight div 5;
      b :=-line1.ClientWidth div 15;
      x :=-10;
      For i:=-100 to 100 do
        Begin
          x:=x+0.1;
          if (not((x<-0.99) and (x>-1.01))) then begin
            if(flag=true) then begin
              MoveTo(Trunc(x0+x*b),Trunc(y0+f(-x)*a));
              flag:=false;
            end;
            LineTo(Trunc(x0+x*b),Trunc(y0+f(-x)*a));
          end;
        End;
    End;
End;
 
 
 
procedure TForm2.line1Click(Sender: TObject);
begin
 
end;
 
procedure TForm2.ExitClick(Sender: TObject);
begin
  close;
end;
 
end.

помогите понять почему вместо

(not((x<-0.99) and (x>-1.01)))

я не могу поставить просто -1(он крашится при -1 и работает при диапазоне)?

[Аватар]

А что хотел? На ноль делить нельзя, даже в программе ))

[perekatipole]

Сообщение от Аватар

А что хотел? На ноль делить нельзя, даже в программе ))

я знаю что на 0 делить нельзя,но почему именно диапазон берем ,а не просто -1?

[perekatipole]

можно по другому написать как-нибудь код чтобы на 0 не делил?

[type_Oleg]

А почему вас волнует минус 1, ведь sqr(x-1)=0 при x=плюс 1.

в цикле:

if x<>1 then ...

или

if x=1 then Continue;

[perekatipole]

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

А почему вас волнует минус 1, ведь sqr(x-1)=0 при x=плюс 1.

он меняет значения на противоположные,волнует потому что я не могу сдать эту задачу учителю из-за того,что не могу ответить на этот вопрос

[type_Oleg]

uses Math;

function f(x:real): real;
Var
  c : real;
Begin
 c:=x-1;
 if c<=0 
  then f:=NaN 
  else f:=(2*x-1)/(sqr(c));
end;

Потом еще надо в цикле проверять isNaN

[perekatipole]

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

uses Math;

function f(x:real): real;
Var
  c : real;
Begin
 c:=x-1;
 if c<=0 
  then f:=NaN 
  else f:=(2*x-1)/(sqr(c));
end;

Потом еще надо в цикле проверять isNaN

не,мне не надо никакие цифры подставлять,он просто должен построить заданый график

[type_Oleg]

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

не надо никакие цифры подставлять,он просто должен построить заданый график

Да, пожалуйста, стройте график .. без цифр.

[perekatipole]

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

Да, пожалуйста, стройте график .. без цифр.

что вместо NaN подставить?