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