Контрольная работа: События клавиатуры

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c,p,s:real;

begin

label4.Caption:=('');

if (((edit1.Text='')or (edit2.Text='')) or (edit3.Text='')) then

label4.Caption:=('Введите все 3 величины сторон треугольника')

else begin

a:=strtofloat(edit1.Text);

b:=strtofloat(edit2.Text);

c:=strtofloat(edit3.Text);

if (((a=0) or (b=0)) or (c=0)) then

label4.Caption:=('Треугольника с такими величинами сторон не существует')

else

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

if s=0 then

label4.Caption:=('Треугольника с такими величинами сторон не существует')

else

label4.Caption:=('Площадь треугольника = '+floattostr(s));