Tipe Data Larik (array)

Larik (array) adalah kumpulan data yang mempunyai tipe data sejenis. Daftar nomor telpon, daftar kode mata kuliah, vektor, matrik merupakan contoh larik.

Contoh penulisan tipe larik berdimensi satu sbb :

CONST batas = 20;
    VAR telpon : ARRAY[1..3] OF STRING[7]; { larik dengan nama telpon mempunyai 3 data dengan tipe string }
        nilai : ARRAY[1..5] OF INTEGER; { larik dengan nama nilai mempunyai 5 data dengan tipe integer }
        gaji : ARRAY[1..batas] OF REAL; { larik dengan namagaji mempunyai 20 data dengan tipe real }
        

Contoh larik yang mempunyai tipe data terbilang atau subjangkauan :

TYPE batas = 0..100;
    keadaan = (baru,lama,bagus,jelek);
VAR nilai : ARRAY[1..30] OF 'A'..'B'; { larik dengan nama nilai mempunyai 30 data, dan pengisian data yang diperbolehkan hanya A, B, C, D, E }
    angka : ARRAY[1..50] OF batas; { larik dengan nama angka mempunyai 50 data, dan pengisian data yang diperbolehkan hanya 1,2,3,...,99,100 }
    baju : ARRAY[1..10] OF keadaan; { larik dengan nama angka mempunyai 10 data,dan pengisian data yang diperbolehkan baru, lama, bagus, jelek }

Contoh Program :

VAR jumlah : INTEGER;
    nilai : ARRAY[1..3] OF 'A'..'E';
    angka : ARRAY[1..3] OF INTEGER;
BEGIN
    nilai[1] := 'C';
    nilai[2] := 'B';
    nilai[3] := 'A';
    angka[1] := 75;
    angka[2] := 60;
    angka[3] := 90;
    jumlah := angka[1]+angka[2]+angka[3];
    WRITELN('NILAI = ',angka[2],' MENDAPAT ',nilai[1]);
    WRITELN('JUMLAH = ',jumlah);
END.

hasil : nilai 60 mendapat C
jumlah = 225

Contoh penulisan tipe larik berdimensi dua sbb :

VAR tabel : ARRAY[1..3,1..2] OF BYTE; { larik tabel mempunyai 3 baris dan 2 kolom dengan tipe byte }
BEGIN 
    tabel[1,1] := 5; { baris 1, kolom 1 }
    tabel[1,2] := 7;
    tabel[2,1] := 21; { baris 2, kolom 1 }
    tabel[2,2] := 18;
    tabel[3,1] := 8;
    ltabel[3,2] := 7;
    WRITELN('BARIS 1 KOLOM 2 = ',tabel[1,2]);
END.

Hasil : BARIS 1 KOLOM 2 = 7