Diagonalen beim Rechteck

[DeddyH]

Auch wenn es sie nicht gäbe, sollte man IMO die Berechnung in eine eigene Funktion packen:

Delphi-Quellcode:

function Diagonale(Laenge, Breite: double): double;
begin
  Result := sqrt(sqr(Laenge) + sqr(Breite));
end;

procedure TDiagonalenRechteck.RechnenButtonClick(Sender: TObject);
var 
  laenge, breite: integer;
begin
  laenge := strToInt(laengeEdit.text);
  breite := strToInt(breiteEdit.text);     
  ErgebnisLabel.Caption := floatTostr(Diagonale(laenge, breite));
end;