Mengenali Pemrograman Array

ARRAY
Array atau larik merupakan istilah yang dipakai dalam jadwal 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, kalau elemen array yakni x, setiap elemen array ditulis dengan notasi sebagai berikut :

Bilangan di dalam kurung siku menawarkan 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 saluran 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 sanggup dilakukan dalam memilih isi elem array yakni sebagai berikut :
a.  Secara manual
b.  Dengan nilai maksimal elemen yang sudah ditentukan dari awal
Untuk memasukkan nilai data pada tiap elemen array, sanggup memanfaatkan struktur perulangan for...do dengan perulangan ForDo jumlah maksimal indeks elemen array sanggup 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.