Array

Suatu array adalah sebuah struktur data yang terdiri atas banyak variabel dengan
tipe data sama, dimana masing-masing elemen variabel mempunyai nilai indeks.
Setiap elemen array mampu untuk menyimpan satu jenis data (yaitu:variabel).

contoh :

type
    A = array [1..6] of integer;
        [1][2][3][4][5][6]

Secara logika pendefinisian array di atas merupakan sekumpulan kotak , dimana tiap
kotak mempunyai nilai indeks integer 1, 2, 3, ...,6 tiap elemen array ditandai dengan:
A[1], A[2], A[3], A[4], A[5], A[6] untuk mengisi elemen array misal A[1]:=4;

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 kita harus terlebih dahulu: Mendefinisikan jumlah elemen array
Contoh; const N=10;

type
    A= array [1..N] of integer;

Array 1 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 var.
Berikut source code contoh Program menggunakan Array 1 Dimensi :

program coba;
uses wincrt;

var

bilangan : array[1..3] of string;
    i,n:byte;
begin
  clrscr;
  write ('Masukkan jumlah data = ');readln(n);
  writeln;
  for i := 1 to n do

begin
     write ('Nilai ke-',i,' = '); readln(bilangan[i]);
    end;
end.
{by solehkm@gmail.com}
Silahkan untuk dicoba.

Array 2 Dimensi atau Multidimensi
Dalam array multidimensi terdiri atas baris (row) dan kolom (column). Index pertama
adalah baris dan yang kedua adalah kolom. Seperti halnya dalam sebuah perhitungan Matrix, dimana terdiri dari n kolom dan n baris.



Berikut adalah source kode Program Matrik menggunakan Array 2 Dimensi

program matrix;
uses wincrt;
var matrik : array[1..10,1..10] of integer;
    b,k : integer;
    m,n:byte;

begin
  clrscr;
  writeln ('Program Matrik dengan ARRAY di PASCAL');
  writeln ('--------------------------------------');
  write   ('Masukkan jumlah Baris    = '); readln(b);
  write   ('Masukkan banyaknya Kolom = ');readln(k);
  writeln; 

  for m := 1 to b do
   for n := 1 to k do
      begin
       write('baris ',m,' kolom ',n,' : ');
       readln(matrik[m,n]);
      end;

  writeln;
  writeln ('Matriknya adalah : ');
  for m := 1 to b do
   begin
     for n := 1 to k do
      begin
       write(matrik[m,n],' ');
       write(' ');
      end;
     writeln;
   end;
end.
{by solehkm@gmail.com}
Silahkan untuk dicoba.

Posted in: