Diagonale ausrechnen

[bixi400]

Hi!

Ich weiß von einem Rechteck Länge und Breite,
wie rechne ich aus diesen Angaben eine Diagonale
des Rechtecks aus?

[Sharky]

Zitat von bixi400:

Hi!

Ich weiß von einem Rechteck Länge und Breite,
wie rechne ich aus diesen Angaben eine Diagonale
des Rechtecks aus?

Ähm.... Satz des Pytagoras!

c^2 = a^2 + b^2

c = Diagonale
a = Breite
b = Höhe.

Also ist c = die Wurzel aus a^2 + b^2

[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

[Bowler]

Hui, da habe ich für das Schreiben aber lange gebraucht.

[Sharky]

Zitat von Bowler:

...

Delphi-Quellcode:

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

...

Beim sqrt wird es mit dem Variablentyp Integer in die Hose gehen fürchte ich.

[Bowler]

Ist mir auch gerade aufgefallen. Habe gerade nachgeguckt, ob die Funktion wirklich so heisst, da ist mir aufgefallen, dass in der Funktionsbeschreibdung der Datentyp Extended verwendet wird. Ist auch sinnvoller, bei "Kommazahlen"

[edit=Sharky]Doppelposting auf Wunsch gelöscht Mfg, Sharky[/edit]

[bixi400]

Danke!

[Sharky]

Hai,

ich habe den Thread, damit es übersichtlich bleibt, einmal aufgeteilt und an diese Stelle verschoben.

[3_of_8]

Gibt es dafür nicht auch die Funktion "hypot"?

[BlackJack]

Zitat von 3_of_8:

Gibt es dafür nicht auch die Funktion "hypot"?

das ist doch bestimmt wieder eine dieser überflüssigen Funktionen aus der Math-Unit. (fast genauso überflüssig wie DegToRad etc.)