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

Label4: TLabel;

Edit_B: TEdit;

SS: TStringGrid;

Edit_Int: TEdit;

Label3: TLabel;

Image1: TImage;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label5: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Button1: TButton;

procedure Button_ItogoClick(Sender: TObject);

procedure Label5Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit_help,Unit_h;

{$R *.dfm}