Diagonalen beim Rechteck

[Marcy]

Hallo,

wir sollen für die Schule ein Programm schreiben, dass die Diagonalen beim Rechteck berechnet.

Hab den Code geschrieben, keine Fehlermeldungen, Zahlen eingeben ect funktioniert auch prima es kommt auch ein Ergebnis raus, leider ist dieses immer falsch

Code:

procedure TDiagonalenRechteck.RechnenButtonClick(Sender: TObject);
var laenge, breite :integer; diagonale: real;

begin
     laenge:= strToInt(laengeEdit.text);
     breite:= strToInt(laengeEdit.text);
     laenge:=laenge*laenge;
     breite:=breite*breite;
     diagonale:= laenge+breite;
     diagonale:=sqrt(diagonale);
     ErgebnisLabel.Caption:=floatTostr(diagonale);
end;

ich würde mich echt freuen wenn ihr mir helfen könnt

alles liebe

Marcy

[Bummi]

ein kleiner Copy&Paste Fehler

Delphi-Quellcode:

     laenge:= strToInt(laengeEdit.text);
     breite:= strToInt(laengeEdit.text); // <<<<< hier

[mkinzler]

Was heisst falsch?

[Marcy]

ahh ganz lieben dank für die Hilfe!!!

[Jonas Shinaniganz]

Man könnte auch fragen: "Ist das Ergebnis immernoch falsch, wenn du für Länge und Breite den gleichen Wert eingibst?"

In deinem Code ist nur eine Zeile "zum Teil" falsch.


Okay hat sich erledigt.

Grüße

[grenni999]

Länge und Breite werden vom Inhalt des Länge-Editfeldes befüllt - es wird immer die Diagonale eines Quadrates mit der Seitenlänge der Länge des Rechteckes.
Wenn Breite mit dem Wert des Breite-Editfeldes befüllt wird, sollte es schon klappen....

Hat sich wohl erledigt...

[Uwe Raabe]

Nur mal zur Info: in der Unit Math.pas gibt es eine Funktion Hypot, die dir genau dies ausrechnet.

[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;