Selbstdefinierte Typen

Selbstdefinierte Typen

Werden mit ARRAY und RECORD zusammengesetzte Typen mehrfach benutzt, so empfiehlt es sich, zunächst einen neuen Typ zu deklarieren und in der Variablendeklaration den Namen des neuen Typs zu benutzen.

Typdeklaration:

Die Typdeklaration muß vor der Variablendeklaration erfolgen.

Verwendung von Typdeklarationen

    PROGRAM beispiel(input, output); 
    TYPE
       ganzezahl = integer; 
       vektor    = ARRAY[1..3] OF real; 
       matrix    = ARRAY[1..3] OF vektor; 
       tabelle   = ARRAY[1..100] OF RECORD
          stadt: PACKED ARRAY[1..10] OF char; 
          strasse: PACKED ARRAY[1..20] OF char; 
          plz: ganzezahl 
       END;
    VAR
       a,b: matrix; 
       x:   vektor; 
       r:   vektor; 
       symbole: tabelle; 
       i,j: ganzezahl; 
    BEGIN
       a:=b;    (* Komplette Matrix zuweisen *) 
       FOR i:=1 TO 3 DO BEGIN
          x[i]:=0;
          FOR j:=1 TO 3 DO BEGIN
             x[i]:=x[i]+a[i,j]*r[j] 
          END
       END; 
       symbole[15].stadt:='Frankfurt '; 
       symbole[15].strasse:='Graefstrasse 47     '; 
       symbole[15].plz:=60486
    END.