Курсовая работа: Объектно-ориентированная разработка программ

begin

Form1.Show;

end;

procedure TForm2.Button1Click(Sender: TObject);

var a,b,c,max,min,srd:integer; //переменные для сторон прямоугольника и вычислений

begin

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

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

c:=StrToInt(Edit3.Text);

//Находим максимальную по длине стророну

max:=a;

if b>max then max:=b;

if c>max then max:=c;

// Находим минимальную по длине сторону

min:=a;

if b<min then min:=b;

if c<min then min:=c;

// Находим среднию по длине сторону

srd:=a+b+c-min-max;

if (sqr(max)=sqr(srd)+sqr(min)) then //Проверяем теорему Пифагора a2 + b2 = c2

Showmessage('Это прямоугольный треугольник!'

+' Стороны в порядке возрастания их длины: '

+IntToStr(min)+' '

+IntToStr(srd)+' '

+IntToStr(max))

else ShowMessage('Это не может быть прямоугольный треугольник!');

end;

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: char);