Einzelnen Beitrag anzeigen

Marcy

Registriert seit: 2. Okt 2012
3 Beiträge
 
#1

Diagonalen beim Rechteck

  Alt 2. Okt 2012, 14:30
Delphi-Version: 5
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
  Mit Zitat antworten Zitat