Найти сумму их периметров, определив функцию для расчета периметра равнобедренной трапеции по ее основаниям и высоте
Категория: Delphi/Pascal
2013-04-08 13:24:00
Даны основания и высоты двух равнобедренных трапеций.
code: #delphi
procedure TForm1.Button1Click(Sender: TObject); function Perimetr(a1,b1,h1,a2,b2,h2:real):real; begin Perimetr:=2*(sqrt(sqr((b1-a1)/2)+sqr(h1)))+a1+b1+ 2*(sqrt(sqr((b2-a2)/2)+sqr(h2)))+a2+b2; end; var a1,b1,h1,a2,b2,h2:real; begin a1:=StrToInt(Edit1.Text); b1:=StrToInt(Edit2.Text); h1:=StrToInt(Edit3.Text); a2:=StrToInt(Edit4.Text); b2:=StrToInt(Edit5.Text); h2:=StrToInt(Edit6.Text); Label1.Caption:='Perimtr='+FloatToStrF(Perimetr(a1,b1,h1,a2,b2,h2),ffFixed,5,2); end;
автор: Puporev
Поделиться: