Friday, December 14, 2018

Larik atau Array PASCAL

Array PASCAL

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. 

Array PASCAL
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. 

Array PASCAL
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.

array pascal
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. 

Array PASCAL
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. 

 Array PASCAL
hasil coding


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


Reviewer: FajarYusuf.Com
ItemReviewed: Larik atau Array PASCAL

Seseorang yang ingin membagi pengalaman dan ilmu yang berguna untuk para pembaca FajarYusuf.Com :)

TENTANG SITUS

SITUS INI ADALAH SITUS PEMBELAJARAN PEMROGRAMAN DAN JUGA PEMAHAMAN TERHADAP TEKNOLOGI KOMPUTER. KALIAN BISA MENGIKUTI PEMBELAJARAN PEMROGRAMAN DENGAN BERTAHAP PADA MATERI YANG SUDAH SAYA SEDIAKAN, JIKA ADA MATERI YANG MEMBINGUNGKAN SILAKAN LAKUKAN KOMENTAR PADA MATERI YANG ANDA TANYAKAN ATAU KALIAN BISA MENGHUBUNGI SAYA DIHALAMAN KONTAK.