Konsep Array

ARRAY

Suatu array adalah kumpulan variabel yang mempunyai tipe data sama dan
tersusun secara linear. Masing-masing elemen variabel mempunyai sebuah
nilai indeks. Setiap elemen array mampu untuk menyimpan satu jenis data
(yaitu: variabel).

• Sifat Array

Array merupakan struktur data yang statis, yaitu jumlah elemen yang
ada harus ditentukan terlebih dahulu dan tak bisa di ubah saat program
berjalan. Untuk menyatakan array dalam PASCAL harus terlebih dahulu
mendefinisikan jumlah elemen array, mendefinisikan tipe data dari elemen
array.

Contoh:
Mhs=array[1..10] of string; { hanya berisi 10 variabel}

• Array satu dimensi

Pernyataan di atas merupakan penjelasan tentang array dengan satu
dimensi. Pendefinisian array secara umum adalah sebagai berikut: jika kita
ingin membuat beberapa array dengan tipe/jenis yang sama, kita lebih baik
jika mendeklarasikan dengan type selanjutnya dengan deklarasi variabel. Array
1 demensi artinya ada satu baris array dengan terdiri atas banyak kolom.
Sintak.

Type
nama_array = ARRAY[bawah..atas] of tipe_data;
var
variabel_array : nama_array

atau dengan menggunakan statemen var :

var
variabel_array : ARRAY[bawah..atas] of tipe_data;

Penjelasan: Bawah dan Atas menyatakan batas untuk array. tipe_data adalah
merupakan tipe variabel yang dipunyai array (mis. Integer, char, real, dan
sebagainya.
Cara mengakses variable nilai adalah nama variable [ no indeks ].

Contoh:
Type mhs=array[1..10]of string;
Var M:mhs;
Begin
M[1]:=’armadyah’;
M[2]:=’aditya’;
M[3]:=’hendra gauthama’;
M[4]:=’armatyas’;
M[5]:=’guntur mahendra’;
End.

Program diatas adalah contoh memasukkan suatu nilai dalam suatu variable
array yang bersifat statis. Armadyah dimasukkan dalam suatu variable array
untuk indeks ke satu.

Contoh 1:
Program c_array;
uses wincrt;
type mhs=array[1..5]of string;
var m:mhs;
begin
m[1]:='armadyah';
m[2]:='aditya';
m[3]:='hendra gauthama';
m[4]:='arma tyas';
m[5]:='guntur mahendra';
 writeln('data dalam array range 1-3=',' ',m[1],'
',m[2],' ',m[3]);
writeln('data dalam array range 4-5=',' ',m[4],'
',m[5]);
readln;
end.

Output: 



Jika jumlah variable dalam suatu array banyak, maka tidak bisa dilakukan
pengisian secara statis. Karena itu pengisian harus bersifat dinamis dan
penggunakan suatu perulangan.


Contoh 2:
Program c_array1;
uses wincrt;
type mhs=array[1..7]of string;
var m:mhs; i:integer;
begin
for i:=1 to 7 do
begin
writeln('masukkan nama mahasiswa ke',' ',i,'=');
readln(m[i]);
end;
writeln('===============================');
 for i:=1 to 7 do
writeln('mahasiswa ke',' ',i,' ',m[i]);
readln;
end.

Output. 

Contoh 3:

Cari jumlah data dalam array, rata-rata dan nilai terbesar.

program jml_rata_terbesar;
uses wincrt;
const maks=10;
type matrik=array[1..maks] of byte;
var m:matrik;
i,jml,besar:integer;
rata:real;
begin
jml:=0;
for i:=1 to maks do
begin
write('masukkan nilai=');readln(m[i]);
jml:=jml+m[i];
rata:=jml/maks;
end;
writeln('jumlah data dalam array=',jml);
writeln('rata-rata dalam array=',rata:5:2);
besar:=m[1];
for i:=1 to maks do
begin
if m[i] > m[i+1] then besar:=m[i];
end;
writeln('nilai terbesar=',besar);
end.

Output:

 

• Array dua dimensi

Dalam array dua dimensi terdiri atas baris (row) dan kolom (column).
Indeks pertama adalah baris, dan indeks kedua adalah kolom.

 Sintak:
Type
nama_array=array[baris,kolom]of typedata;
Var
Variable_array:nama_array;

Atau dengan statement var
Sintak:
Var
Variable_array:array[baris,kolom]of tipedata;

Cara mengakses nilai variable adalah nama variable [ no indeks baris, no
indeks kolom ].

 Contoh:
Type nilai=array[1..3,1..2]of integer;
Var n:nilai;
Begin
n[1,1]:=’70’;
n[1,2]:=’80’;
n[2,1]:=’80’;
n[2,2]:=’65’;
n[3,1]:=’75’;
n[3,2]:=’82’;
End.

Insap Santosa P., Dasar-dasar Pemrograman Pascal: Teori dan Program,
     Andi Offset, 1991.

Jogiyanto, H.M., Teori dan Aplikasi Program Komputer Bahasa Pascal
    Jilid I, Andi Offset, 1995.

Mamdyh M. Hanafi, Pemrograman Terstruktur dengan Bahasa Pascal,
    BPFE, 1995.

http://ft.uns.ac.id/ts/kul_ol/pascal/pascal3.html

http://sipil.uns.ac.id/kulol/Bahasa_Komputer/pascal1.html

http://id.wikipedia.org/wiki/Pascal_(bahasa_pemrograman