Array Bag VII (Array sebagai parameter) #73

andrypein.net : kali ini adalah menggunakan array sebagai parameter, dalam kasus-kasus pemrograman tertentu kita juga dituntut untuk menggunakan array sebagai parameter sebuah prosedur atau fungsi.

Hal ini akan kita jumpai pada saat kita akan melakukan pencarian data maupun pengurutan sekumpulan data, (materi mengenai prosedur dan fungsi akan ada bahasannya, disini hanya menyinggung sedikit).

Berikut adalah contoh penggunaan array sebagai parameter :

type
 Bilangan = array[1..100] of integer;
procedure InputArray(A: Bilangan; N:integer);
var
 i:integer;
begin
 for i:=1 to N do
  write('Masukan elemen array ke- ',i);readln(A[i]);
end;

Pada contoh kode di atas kita telah membuat prosedur yang memiliki paramater betipe array. Prosedur tersebut akan digunakan untuk melakukan pengisisan elemen array sebanyak N,dimana 1<=N<=100 .

Perlu sekali untuk diperhatikan bahwa array yang dilewatkan sebagai parameter ini harus dideklarasikan terlebih dahulu. Berikut adalah penggunaan array yang tidak diijinkan oleh kompiler pascal.

procedure InputArray(A:array[1..100]of integer; N); {SALAH}

Sebagai gantinya,apabila kita memang tidak ingin mendeklarasikannya terlebih dahulu,maka kita harus menggunakan array terbuka. Array terbuka adalah array yang tidak memiliki batas.yang kita pelajari disini array terbuka hanya dapat digunakan sebagai parameter.

Artinya kita tidak dapat menggunakannya untuk pendeklarasian variable biasa, nah kode ngaco diatas perbaikannya seperti ini:

procedure InputArray(A:array of integer; N); {BENAR}

Untuk memahaminya,nah ini merupakan contoh program pascalnya,bahasan mengenai procedure akan ada ko,jadi tenang saja.

program paramArray
uses
 wincrt;
const 
 max = 100;
type
 Bilangan = array [1..max] of integer;

procedure InputArray(A:Bilangan; N:integer);
var
 i:integer;
begin
 writeln('Masukan data: ');
 for i:=1 to N do
  write('Masukan nilai A[',i,'] : ');readln(A[i]);
emd;

procedure OutputArray(A:Bilangan; N:integer);
var
 i:integer;
begin
 writeln('Menampilkan data: ');
 for i:=1 to N do
  write('A[',i,'] = ',A[i]);
end;

var 
 Arr:Bilangan;
 count:integer;
begin
 clrscr;
 write('Masukana banyaknya elemen array :');readln(count);
 writeln;
 {memamggil prosedur input array}
 InputArray(Arr, count);
 writeln;
 {memanggil prosedur output array}
 OutputArray(Arr, count);
 readln;

end.

contoh hasilnya dari program diatas akan seperti ini:

Masukan banyaknya elemen array : 3

Memasukan data :
masukan nilai A[1] : 10
masukan nilai A[2] : 20
masukan nilai A[3] : 30

Menampilkan data :
A[1] = 10
A[2] = 20
A[3] = 30

sekian artikel array sebagai parameter semoga bermanfaat gan

*AFK