Programmiersprache Pascal

Reihenfolge von Anweisungen

Pascal-Programme besitzen eine Block-Struktur:
In Standard Pascal besteht ein Programm aus einer Menge von ineinander geschachtelten Blöcken:

Es gibt genau einen Programm-Block.
Es gibt beliebig viele Unterprogramm-Blöcke.
Ein Unterprogramm-Block ist entweder direkt in den Programm-Block eingebettet oder in einen anderen Unterprogramm-Block.

Programm- und Unterprogramm-Blöcke sind wie folgt aufgebaut:

Kopf
Deklarationen
BEGIN
ausführbare Anweisungen
Ende

Die angebene Reihenfolge ist strikt einzuhalten.

Kopf

Der Kopf besteht aus genau einer Anweisung:

PROGRAM name(parameterliste);
Programm-Kopf
PROCEDURE name(parameterliste);
FUNCTION name(parameterliste) : typ;
Unterprogramm-Kopf für Prozedur bzw. Funktion

Deklarationen

Standard Pascal schreibt bei Deklarationen folgende Reihenfolge vor:

LABEL
CONST
TYPE
VAR
PROCEDURE, FUNCTION

Moderne Pascal-Systeme erlauben meist Abweichungen von dieser starren Reihenfolge.
Auch Extended Pascal schreibt die Reihenfolge der Deklarationsanweisungen nicht vor.

Grundsätzlich gilt jedoch:
Es kann nur auf zuvor deklarierte Größen Bezug genommen werden.
Die einzige Ausnahme gibt es bei der Deklaration von rekursiven Datentyoen.

Ausführbare Anweisungen

Ausführbare Anweisungen können beliebig angeordnet werden.

Ende

END.
Ende des Programm-Blocks
END;
Ende aller anderen Blöcke

Extended Pascal läßt auch einfache Blöcke zu.
Einfache Blöcke unterscheiden sich von Programm- und Unterprogramm-Blöcken durch das Fehlen der Kopf-Anweisung.
Außerdem ist ein einfacher Block nicht durch Aufruf nachnutzbar wie Programm- oder Unterprogrammblöcke.

Beispiele

Programmblock

  PROGRAM name(INPUT, OUTPUT);
    deklarationen
  BEGIN
    ausführbare Anweisungen
  END.

Unterprogrammblock

  PROCEDURE name(parameter);
    deklarationen
  BEGIN
    ausführbare Anweisungen
  END;

einfacher Block
Extended Pascal

  BEGIN
    deklarationen
    BEGIN
      ausführbare Anweisungen
    END;
  END;

Gnu Pascal in Anlehnung an die C-Syntax, entspricht nicht dem Standard

  BEGIN
    deklarationen
    ausführbare Anweisungen
  END;

Programmblock, nicht in Standard Pascal

  PROGRAM name(INPUT, OUTPUT);
    deklarationen
  BEGIN
    ausführbare Anweisungen
    BEGIN
      deklarationen
      ausführbare Anweisungen
    END;
    ausführbare Anweisungen
  END.

P. Böhme, 06.09.1996