ARRAY (LARIK)
Array (Larik) adalah tipe terstruktur yang mempunyai komponen dalam jumlah yang tetap dan setiap komponen mempunyai tipe data yang sama. Posisi masing-masing dalam larik dinyatakan sebagai index.
Bentuk umum dari deklarasi tipe larik adalah :
var pengenal = array [tipe_index] of tipe;
Keterangan : pengenal : nama variabel.
tipe_index : jumlah larik.
tipe : tipe data.
Parameter tipe_index menentukan banyaknya komponen larik tersebut. Parameter ini boleh berupa sembarang tipe ordinal kecuali longint dan subjangkauan longint.
Contoh :
Var larik1 = array[1..5] of char;
larik2 = array[1..5,1..5] of string;
larik3 = array[1..5,1..5,1..5] of integer;
Dari contoh diatas ditampilkan beberapa cara pendeklarasian larik (array). Variabel larik1 adalah larik dengan satu dimensi, larik2 adalah larik dengan dua dimensi atau dimensi banyak, demikian juga dengan larik3
Latihan-latihan :
nil : array[1..3] of integer;
Begin
nil[1] := 105;
nil[2] := 202;
nil[3] := 727;
writeln (nil[1]);
writeln (nil[2]);
writeln (nil[3]);
End.
nama : array[1..3] of string;
Begin
nama[1] := ‘BUDI’;
nama[2] := ‘IWAN’;
nama[3] := ‘TUTY’;
writeln (‘Nama 1 : ’,nama[1]);
writeln (‘Nama 2 : ’,nama[2]);
writeln (‘Nama 3 : ’,nama[3]);
End.
akhir = 5;
Var
nim : array[awal..akhir] of string;
nama : array[awal..akhir] of string;
n : integer;
Begin
Writeln (‘Isi NIM dan Nama dengan Array’);
For n := 1 to 5 do
Begin
Write (‘NIM - ’,n,’ : ‘); readln(nim[n]);
Write (‘Nama - ’,n,’ : ‘); readln(nama[n]);
Writeln;
End;
Writeln;
Writeln (‘Hasil dari inputan adalah :’);
For n := 1 to 5 do
Begin
Writeln (‘NIM - ’,n,’ : ‘,nim[n]);
Writeln (‘Nama - ’,n,’ : ‘,nama[n]);
Writeln;
End;
End.
Jm, rata : real;
Begin
Writeln (‘Menghitung rata-rata 5 buah nilai’);
Write (‘nilai1 = ‘); readln(nilai[1]);
Write (‘nilai2 = ‘); readln(nilai[2]);
Write (‘nilai3 = ‘); readln(nilai[3]);
Write (‘nilai4 = ‘); readln(nilai[4]);
Write (‘nilai5 = ‘); readln(nilai[5]);
Jm := nilai[1]+nilai[2]+nilai[3]+nilai[4]+nilai[5];
Rata := jm / 5;
Writeln;
Writeln (‘Jumlah = ‘,jm:9:2);
Writeln (‘Rata-rata = ‘,rata:9:2);
End.
Var Dim1 : array[1..3] of integer;
Dim2 : array[1..3,1..3] of integer;
Dim3 : array[1..3,1..3,1..3] of integer;
i,j,k : integer;
Begin
{input elemen array}
For i := 1 to 3 do
Dim1[i] := 2 * i – 1;
For i := 1 to 3 do
Begin
For j := 1 to 3 do
Dim2[i,j] := 4 * i – j;
End;
For i := 1 to 3 do
Begin
For j := 1 to 3 do
Begin
For k := 1 to 3 do
Dim3[i,j,k] := j * k – i;
End;
End;
{cetak elemen array}
for i := 1 to 3 do
Begin
Writeln;
Writeln (‘1 dimensi[‘,i,’] = ’,dim1[i]);
For j := 1 to 3 do
Begin
Writeln (‘2 dimensi[‘,i,’,’,j,’] = ’,dim2[I,j]);
For k := 1 to 3 do
Writeln (‘3 dimensi[‘,i,’,’,j,’,’,k,’]=’,dim2[i,j,k]);
End;
End; End.
