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

begin

try

c:=StrToInt(Edit2.text);

except

Edit2.text:='-1';

end;

end;

procedure TForm1.Edit4Change(Sender: TObject);

begin

masht:=StrToFloat(Edit4.text)/10;

refresh;

end;

procedure TForm1.Edit5Change(Sender: TObject);

var

c : integer;

begin

try

c:=StrToInt(Edit5.text);

except

Edit5.text:='1';

end;

end;

procedure TForm1.Edit6Change(Sender: TObject);

var

c : real;

begin

try

c:=StrToFloat(Edit6.text);

except