Array

Array adalah variabel yang dapat menyimpan lebih dari satu nilai sejenis. Terdapat dua bagian penting yaitu elemen array yang merupakan nilai dan endeks array yang merupakan nilai urut untuk mengakses nilai pada array.

Berikut ini contoh array A dengan 10 buah elemen tiap elemen memiliki nilai antara 10 hingga 100.

A[1] A[2] A[3] A[4] A[5] A[6] A[7] A[8] A[9] A[10]
1 2 3 4 5 6 7 8 9 10
10 20 30 40 50 60 70 80 90 100

Bentuk umum dari array adalah:
NamaArray : aray[IndeksAwal..IndeksAkhir] of tipe_data;

1. Array Satu Dimensi

          Array satu dimensi adalah kumpulan elemen-elemen yang identik, yang tersusun dalam satu baris. Elemen tersebut memiliki tipe data yang sama, tetapi isi dari elemen tersebut bisa berbeda.Bentuk Umum:

Var nama_variabel : Array[ index ] Of Tipe_Data;
contoh:

 

Pada contoh Array dengan nama "Bilangan" telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 10 elemen, nilai dari elemen array tersebut diatas harus bertipe integer. Array tidak hanya dapat berupa suatu varibel yang dideklarasikan di bagian deklarasi variabel, tetapi dapat juga berupa konstanta (const).

contoh program:

program hitung;
uses crt;
var
   bilangan : array [1..10] of integer;
   a,b, jmlh: integer;
   begin
        clrscr;
        write('masukkan bilangan : ');readln(b);
        for a:=1 to b do
        begin
             write('masukkan bilangan ke ',a,'= ');readln(bilangan[a]);
             jmlh:= jmlh+bilangan[a];
             end;
             write('jumlah bilangan yang diinput ',jmlh);
             write('bilangan yang di masukkan adalah : ');
             for a:=1 to b do
             write(bilangan [a]:4);
             end.

2. Array Dua Dimensi

         Di dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak (Multidimensional array), disini akan dibahas array 2 dimensi saja. Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau matrik.Bentuk umum :

Var <NamaVarArray>: Array [indeksbaris,indekskolom] of TipeData; 

Contoh
Array2D:array[1..3,1..4]ofinteger;

contoh program:
program array_dua_dimensi;

uses crt;

var matrik : array[1..3,1..2] of shortint;

i, j : byte;

begin

writeln('Contoh Matrik : ');

matrik[1,1] := 2;

matrik[1,2] := 3;

matrik[2,1] := 3;

matrik[2,2] := 4;

matrik[3,1] := 8;

matrik[3,2] := 10;

for i:= 1 to 3 do

begin

for j:=1 to 2 do

write (matrik[i,j]:5);

writeln;

end;

- See more at: http://blues-indo.blogspot.com/2014/04/contoh-array-2-dimensi-pada-pascal.html#sthash.bdgtzSyF.dpuf

program array_dua_dimensi;

uses crt;

var matrik : array[1..3,1..2] of shortint;

i, j : byte;

begin

writeln('Contoh Matrik : ');

matrik[1,1] := 2;

matrik[1,2] := 3;

matrik[2,1] := 3;

matrik[2,2] := 4;

matrik[3,1] := 8;

matrik[3,2] := 10;

for i:= 1 to 3 do

begin

for j:=1 to 2 do

write (matrik[i,j]:5);

writeln;

end;

- See more at: http://blues-indo.blogspot.com/2014/04/contoh-array-2-dimensi-pada-pascal.html#sthash.bdgtzSyF.dpuf

program array_dua_dimensi;
uses crt;
var matrik : array[1..3,1..2] of shortint;
i, j : byte;
begin
writeln('Contoh Matrik : ');
    matrik[1,1] := 2;
    matrik[1,2] := 3;
    matrik[2,1] := 3;
    matrik[2,2] := 4;
    matrik[3,1] := 8;
    matrik[3,2] := 10;
    for i:= 1 to 3 do
        begin
        for j:=1 to 2 do
        write (matrik[i,j]:5);
    writeln;
    end.

3. Array Tiga Dimensi (Dimensi Banyak)

          Array ini jarang digunakan, namun hal ini bukan berarti Pascal tidak menyediakan untuk dipakai bagi yang membutuhkan. Array tiga dimensi adalah kumpulan elemen-elemen yang terdiri lebih dari satu baris, seperti array yang memiliki array didalamnya.

BentukUmum:Var <NamaVarArray>: Array

[Indeks1,Indeks2,..,IndeksN] of TipeData;

Program Data_mahasiswa;
uses crt;
var
   nama :array[1..10]of string[20];
   NPM:array[1..10]of string[20];
   alamat:array[1..20]of string[30];
   i,j :integer;

begin
clrscr;
       write('Masukkan Jumlah Data Mahasiswa :'); readln(j);
   for i:=1 to j do

begin
       writeln('Data ke-',i);
       write('Nama Mahasiswa :'); readln(nama[i]);
       write('Masukkan NPM :'); readln(NPM[i]);
       write('Alamat :'); readln(alamat[i]);
end;

clrscr;
       writeln;
       writeln('No.|     Nama Mahasiswa      |     NPM     |    Alamat    |');
        writeln;

   for i:= 1 to j do
begin
       writeln(i:1, nama[i]:20, NPM[i]:25, alamat[i]:25);
end;
readln;
end.