Курсовая работа: Программирование на Delphi с алгоритмами и кодами

Button4: TButton;

procedure Button4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit4, Unit7;

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);

begin

Form1.Close; // закрывает главную форму и приложение

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.showmodal; // показывает форму задания № 1

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form4.showmodal; // показывает форму задания №2

end;

procedure TForm1.Button3Click(Sender: TObject);

begin