Лабы Паскаль / лабы 2 / Uit1

unit Uit1;

interface

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

type
TForm2 = class(TForm)

Edit1: TEdit;

Panel1: TPanel;

Panel2: TPanel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
t1,t2,t3,t4,t5,t6:extended;
a,b,c,p,Per:real;
implementation

uses Un;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin

Panel1.Caption:='Периметр'+'='
+Floattostr(Per);
p:=Per/2;
Panel2.Caption:='Площадь'+'='
+Floattostr(sqrt(p*(p-a)*(p-b)*(p-c)));


end;

end.