Programmiersprache Pascal

Untypisierte Parameter

Untypisierte Parameter gestatten es, Unterprogramme zu schreiben, die mit Parametern beliebigen Typs operieren können.

Vorteil:
Es können Unterprogramme realisiert werden, die sehr flexibel einsetzbar sind.
Nachteil:
Die Kontrolle über den korrekten Einsatz derartiger Unterprogramme geht verloren.

Untypisierte Parameter entsprechen nicht den ursprünglichen Entwurfszielen von Pascal und sind weder in Standard Pascal noch in Extended Pascal vorgesehen.

Turbo Pascal

Untypisierte Parameter sind möglich.

Beispiel:
Kopieren von beliebigen Daten im Hauptspeicher

  PROCEDURE kopieren(VAR quelle, ziel; n: INTEGER);
  { quelle wird byteweise nach ziel kopiert, und zwar n Bytes }
  CONST max = 1;
  TYPE bytes = ARRAY[1..max] OF Byte;
  VAR i : Integer;
  BEGIN
    FOR i:= 1 TO n DO
      bytes(ziel)[i] := bytes(quelle)[i];
  END;

Voraussetzung: Es muß die Compiler-Option $R- verwendet werden (Standard).

Test der obigen Prozedur:

  CONST n = 10;

  VAR b : ARRAY[1..n] OF BYTE;
      c : ARRAY[1..n] OF CHAR;
      i : INTEGER;

  BEGIN
    FOR i:=1 TO n DO
      b[i] := i + 64;        { 65 66 67 68 69 70 71 72 73 74 }

    kopieren(b, c, n);

    FOR i:=1 TO n DO
      Write(c[i]);           { liefert  ABCDEFGHIJ  }
  END

P. Böhme, 27.08.1996