Deklarasi Konstanta Array

Deklarasi Konstanta Array

Array tidak hanya dapat berupa suatu varibel yang dideklarasikan di bagian deklarasi
variabel, tetapi dapat juga berupa konstanta (const).

Contoh Program :

Program Contoh_Deklarasi_Array_Konstan;
Uses Crt;
Const
            Tetap : Array[1..4] of Integer=(7,10,21,20);
Var
            i     : Integer;
          Begin
               For i:= 1 to 4 Do
               Writeln('Nilai Konstan array ke ',i:2,' =',Tetap[i]);
               Readln;
          End.

konstanta array dapat juga berupa ketetapan dalam bentuk karakter seperti berikut.

Contoh Program :

Program Contoh_Konstan_Array_Char_;
Uses Crt;
Const
            Huruf : Array[0..5] of Char=('A','B','C','D','E','F');
Var
            i     : Integer;
           Begin
                For i:= 0 to 5 Do
                Writeln('Nilai konstan array ke',i:2,' = ',Huruf[i]);
                Readln;
           End.

Konstanta array dapat juga berupa string seperti berikut ini.

Contoh Program :

Program Constanta_Array_String;
Uses Crt;
Type
             A     = Array [1..5] of String;
Const
             Nama : A = ('basic','pascal','cobol','paradox','dbase');
Var
             i : Integer;
Begin
             For i:= 1 to 5 Do
             Writeln('Nilai Array ke-',i:2,'= ',Nama[i]);
               readln;
           end.