Wikipedia meint:
Zitat:
Pascal unterstützt in seiner Urform keine Anweisungen, mit denen Prozeduren
oder Schleifen hart verlassen werden können. Als strukturerhöhendes goto
werden Sprünge ans Ende von Prozeduren oder unmittelbar hinter Schleifenenden
akzeptiert, sofern sich dadurch umfangreiche Konstruktionen schlecht
lesbarer if-Anweisungen oder undurchschaubarer boolescher Ausdrucke
vermeiden lassen. Viele Pascal-Compiler erlauben keine goto, die zu instabilen
Systemzuständen führen, z. B. der Sprung in den Anweisungsblock einer Schleife
oder eines if.
Dieses Beispiel habe ich im Handbuch von
TP 5.5 gefunden. Passt wunderbar zum Thema
Lösung quadratischer Gleichungen mit der Hochzeitsformel, wenn a 0 ist.
Delphi-Quellcode:
VAR A,B,C : Integer;
Label : Ende;
Begin
Anweisungen ...
Readln(A);
If (A=0) Then Goto Ende;
Anweisungen ...
Ende: {Hier ist das Label Ende}
Writeln('Hier ist wirklich Schluß');
End.
Dann löst das 'mal komplizierter ...