Sabtu, 14 Maret 2009

Tipe Data Array
Array adalah Sekumpulan nilai2 yang sederhana.Untuk Sebuah Contoh:Katakanlah anda mempunyai Array dari Integer yang mempunyai 5 nilai,Deklarasi dalam Delphi
Var
MyArray:Array[0..4]of integer;
Dalam kasus ini,Compiler mengalokasikan memory dari Array karena 1 nilai Integer mempunyai memory 4 byte,jadi Array tersebut mempunyai nilai 20byte di memory.Pengisian indeks dalam array tidak terikat(bebas)asal pengisian data masih dalam jangkauannya contoh:a:array[0..4] of integer; dan b:array [10..14] of integer;
Pengisian nilai element Array dalam Delphi:
MyArray[0]:=100;
MyArray[1]:=99;
MyArray[2]:=50;
MyArray[3]:=500;
MyArray[4]:=300;
Pengaksesan nilai element dalam Array:
X:=MyArray[0]*MyArray[3]; {hasilnya adalah 5000}
Multidimensional Array
Array bisa menjadi multidimensional Array.untuk membuat 2 dimensi Array dari Integer,menggunakan code seperti ini:
var
MyArray : array[0..2,0..2] of Integer;
Pengisian nilai element dalam Array 2 dimensi:

MyArray[0][0]:=20;
MyArray[0][1]:=10;
MyArray[0][2]:=30;
MyArray[1][0]:=40;
MyArray[1][1]:=60;
MyArray[1][2]:=50;
MyArray[2][0]:=70;
MyArray[2][1]:=80;
MyArray[2][2]:=90;

Pengaksesan nilai dalam Array multidimensional:

X:=MyArray[0][0]*MyArray[0][1]; {hasilnya200}

Fungsi LOW & HIGH
Kita dapat mendapatkan nilai terendah(LOW) dari Array dan juga nilai tertinggi(HIGH) dari Array.Untuk sebuah contoh:
Tambahkan komponent Button dan Memo ke dalam Form,double klik component Button,ketikan kode berikut:

procedure TForm1.Button1Click(Sender: TObject);
Var
X,I,Lower,Upper:Integer;
MyArray:Array[10..14]of Integer;
Begin
MyArray[10]:=20;
MyArray[11]:=-20;
MyArray[10]:=40;
MyArray[10]:=-20;
MyArray[10]:=10;
X:=0;
For I:=lower to Upper do
Begin
X:=X+MyArray[I];
Memo1.Lines.add(IntToStr(X));
End;
End;
Jalankan program anda/tekan F9.
Demikian sedikit penegtahuan saya tentang Array,,semoga bermanfaat.

1 comments:

Posting Komentar

Katakan Sesuatu