Gleichschenkliges Trapez [Klausur]

var a,b,c,h,u,f:real;               //Seiten,Höhe,Umfang,Flächeninhalt
begin
  //Werte aus Eingabefeldern einlesen
  a:=StrToFloat(ed_a.text);
  c:=StrToFloat(ed_c.text);
  h:=StrToFloat(ed_h.text);

  //Berechnungen
  f:=0.5*(a+c)*h;
  b:=sqrt( sqr( 0.5*(c-a) ) + sqr(h) );   //Pythagoras :)
  u:=a+c+2*b;

  //Ausgabe
  out_a.caption:=concat('A: ',FloatToStr(f));
  out_b.caption:=concat('b: ',FloatToStr(b));
  out_d.caption:=concat('d: ',FloatToStr(b));
  out_u.caption:=concat('u: ',FloatToStr(u));
end;