ups. Da habe den Fehler ja komplett übersehen:
Delphi-Quellcode:
writeln ('Berechnung der Diagonale, bitte Breite und Höhe eingeben');
writeln ('Höhe'); Readln ( qh );
// Es ist nicht ZWEIMAL qh sondern qh-MAL qh
qh:=qh*qh;
writeln ('Breite'); Readln ( qb );
// Ebenso bei der Breite
qb:=qb*qb;
// nun die Diagonale:
la:=sqrt(qb+qh);
writeln ('Ergebnis: ');
// ----> das ist der Fehler: Readln (la);
// Es muss heißen:
writeln(la);
Du lässt la nicht berechnen sondern vom Benutzer eingeben. Darum zeigt der dir kein Ergebnis an