Senin, 01 Mei 2017

Mengenali Pemrograman Array

| Senin, 01 Mei 2017
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.

Related Posts

Tidak ada komentar: