Trieple-Six

ARRAY
Tujuan:

• Mengetahui dan memahami struktur data statis
• Memahami operasi-operasi array

Array adalah sekumpulan memori untuk suatu nama yang memiliki elemenelemen
data yang sejenis. Sifat-sifat array adalah sebagai berikut :

1. Mengacu sekumpulan elemen melalui indeks.
2. Elemen bertipe sama.
3. Disimpan secara berurutan di memori.
4. Ukuran tetap, harus dipesan terlebih dahulu.

Pendeklarasian array di Pascal :

- Untuk array 1 dimensi :
Const
          IdxAwal = 1;
          IdxAkhir = 100;
     {Pendeklarasian pada bagian type}
Type
         TipeInfo = …;
         TabInfo = Array [IdxAwal .. IdxAkhir] of TipeInfo;
    {Pendeklarasian pada bagian variabel}
Var
        <identifikasi_variabel> : TabInfo;

Kategori operasi-operasi dasar terhadap tabel array :
1. Traversal
2. Searching
3. Sorting

 Operasi Traversal terhadap tabel array :

Tabel integer didefinisikan seperti dibawah ini :

Const
             IdxMin = 1; {batas bawah}
             IdxMax = 10; {batas atas}
Type
             TipeElm = Integer; {type terdefinisi,misal integer}
             TabInt = Array [IdxMin .. IdxMax] of TipeElm;
Var
             TInt = TabInt; {tabel integer}

Skema traversal :
             Pemrosesan traversal yaitu mengolah seluruh elemen tabel secara
sistematik.
Skema :
Procedure ProsesTraversal (Var TI:TabInt);
Var
            i:integer;
Begin
            Inisialisasi; {prosedur persiapan sebelum pemrosesan}
            For i:=IdxMin to IdxMax do
            Begin
                        Proses ( TI [ i ] ); {proses terhadap elemen saat itu}
            End;
            Terminasi; {prosedur aksi setelah pemrosesan selesai}
End;

Contoh penggunaan skema :

- Prosedur memasukkan nilai seluruh elemen tabel.

Procedure InputTabInt (Var TI : TabInt);
Var
             i : Integer;
Begin
             For i := IdxMin to IdxMax do
             Begin
                         Write (‘Elemen ke-‘,i);
                         Readln ( TI[ i ] );
                  End;
           End;





- Prosedur menuliskan seluruh nilai elemen tabel ke layar.
Procedure OutputTabInt ( TI : TabInt);

Var
             i: Integer;
Begin
             For i := IdxMin to IdxMax do
             Begin
                          Write (‘Elemen ke-‘,i,’ = ‘);
                          Writeln ( TI [ i ] );
             End;



Sumber dari : http://www.yudasy.web.id