Mengenali Pemrograman Array

ARRAY

Array atau larik merupakan istilah yang digunakan dalam program pascal untuk menyimpan data bertipe sama dalam sebuah urutan indeks akses. Array diibaratkan sebagai deret kotak yang berukuran dimensi yang sama dan disusun sejajar.

Contoh : 23 | 45 | 56 | 1 | 7 |

Indeks :    1      2      3     4    5

Indeks 1 bernilai 23, indeks 2 bernilai 45, indeks 3 bernilai 56, indek 4 bernilai 1 indeks 5 bernilai 7, jika elemen array adalah x, setiap elemen array ditulis dengan notasi sebagai berikut :

Bilangan di dalam kurung siku menunjukkan indeks elemen array, jadi ilustrasi array pada gamabar di atas di identifikasikan sebagai berikut :

X

23

45

56

1

7

1.  Format deklarasi array

Dalam pendeklarasian array hal yang harus diperhatikan :

a.  Banyaknya elemen dalam array

b.  Tipe data tiap elemen array

Var

Nama array : [indeksAwal..indeksAkhir] of TipeData;

Dalam pendeklarasian array, ada 3 bentuk fomat :

A.  Array sebagai nilai perubah

contoh :

var

Namamhsc: array [1..50] of string;

B.  Penulisan array dengan tipe data baru

Contoh :

Type larikmana = array [1..20] of string;

Var data : lariknama;

C.  Penulisan array elemen konstanta

Contoh :

Const max : lariknama;

2.  Inisialisasi dan akses indeks elemen array

Contoh : menyatakan nilai ke dalam array

Program akses_array;

Uses crt;

Var i: array [1..10] of string;

Begin

Clrscr;

i [1] : = ‘Asman Sofyan’;

i [2] : = ‘Anton Basuki’;

i [3] : = ‘Asep Nurohman’;

i [4] : = ‘Agus Samsudin’;

readln

end.

3.  Menentukan isi elemen array

Beberapa jenis metode yang dapat dilakukan dalam menentukan isi elem array adalah sebagai berikut :

a.  Secara manual

b.  Dengan nilai maksimal elemen yang sudah ditentukan dari awal

Untuk memasukkan nilai data pada tiap elemen array, dapat memanfaatkan struktur perulangan for...do dengan perulangan ForDo jumlah maksimal indeks elemen array dapat ditentukan

Contoh : menyipan data ke dalam array dengan For...Do

Program simpan_For_Do;

Uses crt;

Var

X : array [1..20] of integer;

Y : integer;

Begin

Clrscr;

For Y := 1 to 20 do;

Begin

X [Y] := Y ; {memasukkan nilai y ke dalam array x dengan indeks y}

End;

Readln;

End.