Diagonale ausrechnen

[Bowler]

war da nicht was mit einem Pythagoras? Ich meine mich dunkel zu erinnern:

c²=a²+b²

demnach müsstest du Länge und Breite jeweils quadrieren, dann addieren, und aus dem Ergebnis die Wurzel ziehen. Oder vertue ich mich da?

Delphi-Quellcode:

var
  qu_hoehe:integer;
  qu_breite:integer;
  ergebnis:integer;

begin
  qu_hoehe:=hoehe*hoehe;
  qu_breite:=breite*breite;

  ergebnis:=qu_hoehe+qu_breite;
  ergebnis:=sqrt(ergebnis);  // <-- ich weiss nicht, ob der Befehl für die Wurzel wirklich sqrt heisst.
end;

Das ganze kann man in der Berechnung natürlich noch etwas zusammenfassen, damit nicht soviel Code entsteht.

Gruß
Christian