Курсовая работа: Метод наискорейшего спуска

hx:=hx*2;

hy:=hy*2;

end;

end;

Label1.Caption:=FloatToStr(f1);

refresh;

end;

procedure TForm1.Edit3Change(Sender: TObject);

var

c : real;

begin

try

c:=StrToFloat(Edit3.text);

except

Edit3.text:='0,05';

end;

end;

procedure TForm1.Edit1Change(Sender: TObject);

var

c : integer;

begin

try

c:=StrToInt(Edit1.text);

except

Edit1.text:='-1';

end;

end;

procedure TForm1.Edit2Change(Sender: TObject);

var