Курсовая работа: Метод Золотого сечения на Delphi

Fb:=Fb+StrtoFloat(SS.Cells[1,i+1]);

i:=i+2;

end;

Until i>=z-1;

//Вычислениезначения F(x)

Fx:=(h/3)*(StrToFloat(SS.Cells[1,0])+(4*Fb)+(2*Fa));

//Выводрезультата

Label3.Caption:= FloatToStr(h)+'/3 * ('+SS.Cells[1,0]+

' * 4*('+FloattoStr(Fb)+')+ 2*('+FloattoStr(Fa)+') = ';

Label13.Caption:=FloatToStr(Fx);

end;

procedure TForm1.Label5Click(Sender: TObject);

begin

Form2.showmodal;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form_help.ShowModal;

end;

end.