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