Ok, das sieht so aus, als wolltest du auch im Programm entscheiden, welche Seite fehlt, und diese dann berechnen wollen. Die fehlende Seite soll anscheinend durch Eingabe von "0" (oder kleiner) eingegeben werden. Kann man machen, wenn man das dem User erklärt.
Da gibt es dann ein Problem bei dieser Abfrage:
Delphi-Quelltext
1:
2:
| if (a>c) or (b>c) then
writeln ('falscheEingabe'); |
Denn wenn c berechnet werden soll (und deswegen als 0 angegeben wird), dann kommt immer eine "falsche Eingabe". An der Stelle müsstest du also als zusätzliche Bedingung einbauen, dass (c >= 0) ist, denn nur dann kann es zu Problemen führen, wenn a oder b noch größer sind.
Als nächstes muss in Pascal jeder Befehl mit einem Semikolon abgeschlossen werden - es sei denn, es folgt direkt ein
else. D.h. bei dieser Zeile (z.B.)
Delphi-Quelltext
1:
| c:= sqrt(sqr(a)+sqr(b)) |
muss entweder ein
; ans Ende, oder ein
else. Das geht hier beides - überleg mal, was das dann jeweils für den Programmablauf bedeutet.
Und als letztes: Zähl mal die
begin und
end. Das passt aktuell nicht.
Th69