Курсовая работа: Разработка и реализация программы расчета платежа за электроэнергию

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Button3: TButton; //КнопкаБланк//

Button4: TButton;//Кнопкаскрыть//

//описание процедур//

//процедурыКНОПКАНАЖАТЬ//

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

//Описание процедуры НАЖАТЬ НОПКА 1 (РАСЧИТАТЬ)//

procedure TForm1.Button1Click(Sender: TObject);

//Описание переменных//

var

a: Real48;

b: Real48;

c: Real48;

d: Real48;

rez:Real48;