Deklarasi Type Indeks Skalar

Deklarasi Type Indeks Skalar

Indeks dari larik dapat berupa tipe skalar.

Contoh. :
Program Deklarasi_Indeks_Array_Skalar;
Uses Crt;
Var
         Jum : Array[(jan,feb,mar,apr,mei)] of Integer;
         Begin
           Jum[jan]:=25;
           Jum[feb]:=45;
           Jum[mar]:=21;
           Jum[apr]:=23;
            Jum[mei]:=50;
         Writeln('Jumlah nilai bulan maret =',Jum[mar]);
         Readln;
         End.

dapat juga ditulis :

type
      Bln = (jan,feb,mar,apr,mei);
Var
      Jum : Array[bln] of Integer;

atau :

type
       Bln =(jan,feb,mar,apr,mei);
Var
       Jum : Array[jan..mei] of Integer;