Page 137 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

 Deklarasi Tipe Index Subrange Char

Tipe Char sebenarnya adalah tipe subrange yang mempunyai nilai
sebanyak 256 buah (dari 0 sampai dengan 255) sesuai dengan

urutan kode ASCII. Indeks dari Larik dapat dideklarasikan berupa

subrange Char.
Contoh :

~ Var

X : Array[Char] Of Integer;

~ Var

X : Array[‘#’…’}’] Of Integer;

Dari deklarasi ini berarti Larik X mempunyai elemen sebanyak 91
buah elemen. Mulai dari elemen urutan ke ‘#’,’&’,’%’ dan seterusnya

sampai urutan yang terakhir adalah urutan ke ‘}’. Misalnya urutan

ketiga dari Larik X ini akan diisi dengan nilai 15, maka dapat
dilakukan :

X[‘%’] := 15;

 Deklarasi Tipe Indeks Skalar

Index dari Larik dapat berupa tipe scalar atau enumerated.

Contoh :
Var

Jumlah : Array[(Jan,Feb,Mar,Apr,Mei)] Of Integer;

Begin
Jumlah[Jan] := 125

Jumlah[Feb] := 75
Jumlah[Mar] := 67

Jumlah[Apr] := 123

Jumlah[Mei] := 200

Writeln(‘Jumlah untuk bulan Februari =’,Jumlah[Feb]);

End.