Delphi-Quellcode:
Procedure TForm1.Pq;
//Eingabe und Abfrage von P, Q
begin
.
.
.
//Berechnung von "minus P halbe" und zuweisung von X1, X2
.
.
.
//Berechnung der Diskriminanten
.
//If Abfrage zum verhindern von Abstürzen ( D < 0)
If D < 0
THEN
begin
end
ELSE
//Ausrechnen von X1, X2
begin
end;
//Benutzen einer Marker Variabel für Antwortsatz
IF D < 0
THEN
.
ELSE
begin
IF D = 0 THEN
.
ELSE
.
end;
//Case M of für Antwortsatz
Case M of
.
.
.
end;
end;
Wenn ich mich nicht vertippt hab, sollte die Struktur so in der Richtung aussehen. mir is grade auch aufgefallen, dass vor dem Case wirklich ein end zuviel war.
Man liest sich, Stanlay
