Frage zu SQRT in einer Konsolenanwendung

[DevilsCamp]

Zitat von Rayzen:

Huhu
wäre über eure Hilfe dankbar,
denn ich soll eine Konsolenanwendung schreiben und zwar sieht meine bisher folgendermaßen aus.

Delphi-Quellcode:

program rechteckuad;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var  a,b,f,u,h:integer;
    qh,qb,la,lb:real;
begin
writeln ('Rechteckseiten eingeben');
writeln ('a='); Readln ( a );
writeln ('b='); Readln ( b );
f:=a*b;
Writeln ('Flächeninhalt f=', f);
readln;
writeln ('Seitenlängen eingeben für Umfang');
writeln ('Seite a='); Readln (u);
writeln ('Seite b='); Readln (b);
h:=2*u+2*b;
Writeln ('Umfang U=', h);
readln;
[pre]writeln ('Berechnung der Diagonale, bitte Breite und Höhe eingeben');
writeln ('Höhe'); Readln ( qh );
qh:=2*qh;
writeln ('Breite'); Readln ( qb );
qb:=2*qb;
writeln ('Ergebnis: '); Readln (la);
la:=qh+qb;
writeln ('Ergebnis2: '); Readln (la);
la:=sqrt
end.

Die Fehlermeldung ist:

Zitat:

[Fehler] rechteckuad.dpr(32): E2250 Es gibt keine überladene Version von 'Sqrt', die man mit diesen Argumenten aufrufen kann

Es klappt alles bis auf die Diagonalen Berechnung.
Nun weiß ich leider nicht wie ich das ändern bzw ausbessern könnte.

Mit freundlichen Grüßen
Rayzen

Deine Berechnung der Diagonalen ist ersten Falsch und zweitens an der falschen stelle.

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: '); Readln (la);