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

z:=0.0;

m:=1.0;

a:=0.0;

b:=0.0;

c:=0.0;

xmaus:= 0;

ymaus:=0 ;

masht:=0;

rt:= 0 ;

verx:= 0;

StringGrid1.Cells[0,0]:='1';

tringGrid1.Cells[0,1]:='0';

tringGrid1.Cells[0,2]:='0';

tringGrid1.Cells[0,3]:='0';

end;

procedure TForm1.Button1Click(Sender: TObject);

var

hx,hy,x0,y0,f0,gx,gy,e,f1: real;

i : integer;

begin

StringGrid1.ColCount:=1;

hx:=0.001;

hy:=0.002;

e:=0.002;

x0:=StrToInt(Edit1.Text);

y0:=StrToInt(Edit2.Text);

if(ComboBox1.ItemIndex=0) then begin

f0:=(exp(x0)+exp(y0))/(exp(x0*x0)+exp(y0*y0));

gx:=exp(x0)/(exp(x0*x0)+exp(y0*y0))-exp(x0*x0)*x0*(2*(exp(x0)+exp(y0))/((exp(x0*x0)+exp(y0*y0))*(exp(x0*x0)+exp(y0*y0))));