Larik / Array

Array merupakan tipe data bentukan yang terdiri dari berbagai kumpulan tipe data lain yang diwakili oleh 1 nama variabel. Dalam satu nama variabel ini dapat menampung banyak nilai/value dengan tipe dan panjang datanya yang sama.

Silakan simak contoh contoh program array pascal dibawah berikut .

Contoh pertama untuk array silakan kalian buat program sederhana berikut tanpa array :
KALIAN BISA MENCOBANYA DISINI

Program tanpa_array; 
Uses Crt; 
Var    
nilai1, nilai2, nilai3, nilai4 : Integer; 
Begin   
Clrscr;    
nilai1 := 17;   
nilai2 := 12;    
nilai3 := 5;    
nilai4 := 40;       
Writeln ('nilai1: ', nilai1);    
Writeln ('nilai2: ', nilai2);    
Writeln ('nilai3: ', nilai3);    
Writeln ('nilai4: ', nilai4);       
End. 

hasil coding

Tipe data nilai pada Program diatas mari kita ubah kedalam bentuk Array. Pengisian dan menampilkan data dapat dilakukan secara acak, tetapi harus disesuaikan dengan batasan dan ketetapan yang ada seperti coding berikut :

Program tipe_array; 
Uses Crt; Var    
Nilai  : Array [1..4] Of Integer; 
Begin    
Clrscr;    
Nilai [3] := 17;    
Nilai [4] := 12;    
Nilai [2] := 5;    
Nilai [1] := 40;       
Writeln ('nilai1: ', nilai [3]);   
Writeln ('nilai2: ', nilai [4]);    
Writeln ('nilai3: ', nilai [2]);    
Writeln ('nilai4: ', nilai [1]); 

Writeln ('nilai1: ', nilai [1]);    
Writeln ('nilai2: ', nilai [2]);    
Writeln ('nilai3: ', nilai [3]);    
Writeln ('nilai4: ', nilai [4]);       
End. 

hasil coding

Seluruh tipe data dapat digunakan pada Array dan jumlah indek perArraynya harus sesuai dengan kemampuan memory setiap komputer. Secara standar biasanya komputer hanya mampu menampung 255 buah indek yang dimulai dari 0. 

Hal yang perlu dideklarasikan adalah nama variabel, indeks variabel dan tipe data variabel. Deklarasi ini berfungsi untuk memesanan tempat/memori dari setiap variabel ARRAY tersebut. 

Contoh selanjutnya adalah program pascal menghitung rata rata menggunakan array :

Program memasukkan_data_ke_array;
Uses crt;
Var A : array  [ 1..3] of integer;
 N,i    : integer;
 jum   : integer;
 rta : real;
Begin
 Clrscr; 
 n := 0;
For i  :=1 to 3 do
Begin
  Write   ('masukan nilai ke',i,'= ');
  Readln  (A [i] );
  jum  := jum + A [i];
  rta  := jum / i;
End;
 writeln ('jumlah= ',jum);
 writeln ('rata-rata= ',rta : 0 : 0);
 end.

hasil coding 

Data Array juga dapat meampung data lebih dari satu indek. Indek ini disebut dengan dimensi. Berikut ini adalah contoh penggunaan Aray 2 dimensi :

Program tipe_array; 
Uses Crt; 
var    
nilai : Array [0..1,0..2] Of Integer; 
Begin    
Clrscr;       
nilai [0,0] := 1;    
nilai [0,1] := 2;    
nilai [0,2] := 3;     
nilai [1,0] := 4;    
nilai [1,1] := 5;    
nilai [1,2] := 6;       
Writeln ('nilai 0,0: ',nilai [0,0]);    
Writeln ('nilai 0,1: ',nilai [0,1]);    
Writeln ('nilai 0,2: ',nilai [0,2]);    
Writeln ('nilai 1,0: ',nilai [1,0]);    
Writeln ('nilai 1,1: ',nilai [1,1]);    
Writeln ('nilai 1,2: ',nilai [1,2]);       
End. 

hasil coding

Contoh program array pascal 3 dimensi :

Program tipe_array; 
Uses Crt; 
Var    
nilai : Array [0..1,0..2,0..3] Of Integer; 
Begin    
Clrscr;       
nilai [0,0,2] := 2;    
Writeln (nilai[0,0,2]);       
nilai [1,2,3] := 999;    
Writeln (nilai[1,2,3]);       
End. 

hasil coding

Yang perlu diperhatikan adalah: Setiap variabel yang dinyatakan sebagai ARRAY harus dideklarasikan pada blok VAR Jika ada pertanyaan silakan berkomentar :)

MATERI PASCAL

Jika kalian baru dalam pembelajaran pemrograman Pascal, Silakan belajar dari materi pertama :

Materi Ke-1 : Perintah Output
Materi Ke-2 : Perintah Input
Materi Ke-3 : Looping / Perulangan
Materi Ke-4 : Nested Loop
Materi Ke-5 : Percabangan (IF ELSE)
Materi Ke-6 : Perintah Loncat (GoTo)
Materi Ke-7 : Array
Materi Ke-8 : Array Lanjutan
Materi Ke-9 : Procedure
Materi Ke-10 : Function
Materi Ke-11 : Rekursif
Materi Ke-12 : Pemantapan Contoh Contoh Program Pascal