Замечание. В текстах модулей во всем учебном пособии описания и операторы, генерируемые самой системой, выделены курсивом

В текстах модулей во всем учебном пособии описания и операторы, генерируемые самой системой, выделены курсивом.

В следующих темах в задачах приведены не все инструкции, генерируемые системой. Бездумное удаление инструкций, генерируемых самой системой, приводит к возникновению ошибок в проекте.

Текст модуля

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label5: TLabel;

Label6: TLabel;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

a,b,c,V,S: real;

{a, b, c — стороны бака; V — объем бака;

S — площадь поверхности}

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

// ввод из полей формы значений сторон бака

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

c:=StrToFloat(Edit3.Text);

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

// вычисление объема

V:=a*b*c;

// вывод значения объема на форму

Label5.Caption:=FloatToStrF(V,Fffixed,8,2)+' куб. м'

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

// вычисление площади поверхности бака

S:=2*(a*b+b*c+c*a);

// вывод значения поверхности бака на форму

Label6.Caption:=FloatToStrF(S,Fffixed,9,2)+'кв. мì'

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

// закрытие формы

Form1.Close

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

// очистка полей формы для ввода новых данных

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Label5.Caption:=' ';

Label6.Caption:=' ';

end;

end.

Результаты работы программы