Posted by bibil23 on Oktober 16, 2015 in TurboPascal | No comments

Contoh Program Array Pada Pascal

Array adalah struktur data yang menyimpan kumpulan element yang bertipe sama dan setiap elemennya di akses langsung melalui indeksnya.

• Keunggulan dari Array

1. Sangat cocok untuk pengaksesan acak atau random.
2. Jika berada di suatu lokasi element, sangat mudah menelusuri ke element tetangga, baik element pendahulu maupun element penerus.
3. Jika element array adalah nilai-nilai independen dan seluruhnya harus terjaga.

• Kelemahan dari Array

1. Bersifat Homogen.
2. Kebanyakan bahasa pemograman meng-implementasikan array static yang sulit di ubah ukurannya di waktu eksekusi.

• Jenis-Jenis Array

1. One Dimensional Array ( Dimensi 1)

Deklarasi Array Dimensi 1

var nama_array : array [batas bawah indeks..batas atas indeks] of type_data; 

2. Two Dimensional Array ( Dimensi 2)

Deklarasi Array Dimensi 2

var nama_array : array [batas bawah indeks baris..batas atas indeks baris, batas bawah indeks kolom..batas atas indeks kolom] of type_data;

3. Multi Dimensional Array ( Dimensi Banyak)

Berikut adalah contoh source kode array dalam program turbo pascal.

  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;

       writeln('*******************************************************************************');
readln;
end.
  

Dari syntax tersebut jika di RUN akan menghasilkan Input sebagai berikut :

Dan Outputnya adalah :