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:

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. :-D

[Sharky]

Zitat:

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. :stupid:

[Bowler]

Ist mir auch gerade aufgefallen. :-D 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:

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.)