Materi X TKJ : Deklarasi tipe indeks skalar

Indeks dari array dapat berupa tipe skalar atau enumerated.

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.

Bila program dijalankan akan didapatkan output:

            Jumlah nilai bulan maret = 21

Deklarasi dari array ini juga dapat ditulis:

            Type

           Bulan = (Jan,Feb,Mar,Apr,Mei);

     Var

           Jumlah : array[Bulan] of Integer;

Deklarasi ini dapat juga dituliskan sebagi berikut:

            Type

           Bulan = (Jan,Feb,Mar,Apr,Mei);

     Var

           Jumlah : array[Jan..Mei] of Integer;