Mario's Blog

Array (Larik) adalah variabel yang dapat menampung sejumlah data yang bertipe data sama.
Berikut ini adalah contoh array berdimensi satu dengan 5 buah data yang disimpan.

1	nilai 1
2	nilai 2
3	nilai 3
4	nilai 4
5	nilai 5

Cara pendefinisian array sama seperti pendefinisian variabel lainnya, kecuali kita harus menentukan jumlah elemen data yang dapat disimpan.


Contoh pendeklarasian Array

program Arrays;

var
   a: array[1..5] of Integer;

begin
end. 

Untuk setiap elemen data yang disimpan, diinisialisasikan dengan nilai indeks elemennya


Contoh pemberian nilai pada array dimensi satu

program Arrays;

var
   a: array[1..5] of Integer;

begin
   a[1] := 12;
   a[2] := 23;
   a[3] := 34;
   a[4] := 45;
   a[5] := 56;
end. 

Untuk pengaksesan nilai dalam suatu array akan lebih mudah jika menggunakan perulangan.

Contoh pembacaan sebanyak 5 nilai dalam ke array:

program Arrays;

var
   a: array[1..5] of Integer;
   i: Integer;

begin
   for i := 1 to 5 do
      Readln(a[i]);
end.

 

Pengurutan dalam Array

Seringkali dibutuhkan penyortiran nilai dalam suatu array, banyak metode yang dapat digunakan salah satunya dengan metode bubble sort. Dengan metode ini nilai terbesar akan dipindah sebagai elemen terakhir dalam array.
Dibutuhkan 2 buah perulangan. Perulangan pertama adalah untuk pembacaan setiap nilai dalam array, sedangkan perulangan berikutnya digunakan untuk membandingkan dengan nilai lainnya. Jika nilai tersebut lebih besar, maka dilakukan pengalihan elemen. Dibutuhkan adanya variabel sementara untuk menyimpan nilai yang dipertukarkan sebelumnya

Contoh program sortir dalam array

program Arrays;

var
   a: array[1..5] of Integer;
   i, j, tmp: Integer;

begin
   a[1] := 23;
   a[2] := 45;
   a[3] := 12;
   a[4] := 56;
   a[5] := 34;

   for i := 1 to 4 do
      for j := i + 1 to 5 do
         if a[i] > a[j] then
         begin
            tmp := a[i];
            a[i] := a[j];
            a[j] := tmp;
         end;

   for i := 1 to 5 do
      writeln(i,': ',a[i]);
end.

 

Array Dimensi 2

Jenis array ini dapat menampung nilai dalam baris dan kolom, hal ini seperti dalam matrik yang dikenal dalam matematika.

	1	2	3
1	1	2	3
2	4	5	6
3	7	8	9

Berikut ini adalah contoh deklarasi array 2 dimensi


program Arrays;

var
   a: array [1..3,1..3] of Integer;

begin
end.

Untuk mengakses nilai dari array 2 dimensi ini dibutuhkan  2 buah perulangan

program Arrays;

var
   r, c: Integer;
   a: array [1..3,1..3] of Integer;

begin
   for r := 1 to 3 do
      for c := 1 to 3 do
         Readln(a[r,c]);
end. 


http://www.learn-programming.za.net/programming_pascal_learn07.html