[ASSYS]

Код:

procedure TForm1.N2Click(Sender: TObject);
  Var x,y,h,a,b:real;
    Cod      :integer;
    str1,str2:string;
  begin
    Memo1.Lines.Add('   X      F(X)');
    Val(Edit1.Text, a, cod);
    Val(Edit2.Text, b, cod);
    Val(Edit3.Text, h, cod);
    x:=a;
  while x<=b+h/2 do
    begin
      {Str2:=Edit4.Text;  }
      y:=(x/(x+6))+(sqrt(x-4));
      Str(x:8:2,str1);
      Str(x:8:3,str2);
    if CheckBox1.Checked then
      Memo1.Lines.Add(Str1+str2);
      x:=x+h;
    end
  end;

Project Project1.EXE raised exception class EInvalidOp with message 'Invalid floating point operation'.

Process stopped. Use Step or Run to continue.

Выделяет эту формулу:
y:=(x/(x+6))+(sqrt(x-4));