Array

Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen dalam jumlah tetap yang mempunyai tipe sama.

Banyaknya komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array dapat diakses dengan menunjukkan nilai indexnya atau subskript.

Tipe larik mengartikan isi dari larik atau komponen- komponenya mempunyai nilai dengan tipe data tersebut.

Contoh:

Var Untai : array[1..50] of Integer; 

Pada contoh Array dengan nama untai telah dideklarasikan dengan tipe integer, dengan jumlah elemen maksimum 50 elemen, nilai dari elemen array tersebut diatas harus bertipe integer.

Contoh Program :

Program Contoh_Array_Input; 

Uses WinCrt;

Var  

Bilangan : array[1..50] of Integer;

Begin  

ClrScr;  

Bilangan[1]:=3;

Bilangan[2]:=29;

Bilangan[3]:=30;

Bilangan[4]:=31;

Bilangan[5]:=23;  

Writeln('nilai varibel bilangan ke 3 =',Bilangan[3]);

End.

Untuk deklarasi array dapat digunakan beberapa cara seperti berikut ini :

Type  

Angka = String[20];

Var  

Nama : Array [1..50] of Angka;

Begin 

.

. 

End.

Deklarasi tipe indeks subrange integer Indeks pada array dapat tipe skalar atau subrange, tetapi tidak bisa real. 

Contoh:

Var  

Nilai : Array[1..10] of Integer;

Pada contoh ini array nilai mempunyai 10 buah elemen yaitu dari elemen ke-1 sampai 10.

Array tersebut dapat dideklarasikan dengan type seperti berikut ini :

Type  

Skala = 1..10;  

Var  

Nilai : Array [skala] of Integer;

atau

atau :

Type

Y = Array[1..10] of Integer;

Var

Nilai : Y;

atau : 

Type 

Skala = 1..10;

Y = Array[skala] of Integer;

Var 

Nilai : Y;

atau :

Const

Atas =1;

Bawah = 5;

type

Y = Array[Atas..Bawah] of Integer;

Var

Nilai : Y;

Deklarasi Type Indeks Skalar

Program Deklarasi_Indeks_Array_Skalar;

Uses WinCrt; 

Var  

Jum : Array[(jan,feb,mar,apr,mei)] of Integer;

Begin

Jum[jan]:=25;  

Jum[feb]:=45;  

Jum[mar]:=21;

Jum[apr]:=23;  

Jum[mei]:=50;  

Writeln('Jumlah nilai bulan maret =',Jum[mar]); 

End.

Deklarasi Konstanta Array

Array tidak hanya dapat berupa suatu varibel yang dideklarasikan di bagian deklarasi variabel, tetapi dapat juga berupa konstanta (const).

Program Contoh_Deklarasi_Array_Konstan; 

Uses Crt;

Const  

Tetap : Array[1..4] of Integer=(7,10,21,20);

Var

i : Integer;

Begin  

For i:= 1 to 4 Do  

Writeln('Nilai Konstan array ke ',i:2,' =',Tetap[i]);

End.

Konstanta array dapat juga berupa ketetapan dalam bentuk karakter seperti berikut.

Program Contoh_Konstan_Array_Char_;

Uses 

WinCrt; 

Const  

Huruf : Array[1..6] of Char=('A','B','C','D','E','F');

Var

i : Integer;

Begin  

For i:= 1 to 6 Do  

Writeln('Nilai konstan array ke',i:2,' = ',Huruf[i]);

End.

Dalam pascal string merupakan array dari elemen- elemen karakter seperti berikut :

Program String_Adalah_Array_Tipe_Char; 

Uses WinCrt;

Var  

Nama : string; 

i : Integer; 

Begin  

Nama:='Turbo Pascal';

For i:= 1 to Length(nama) Do  

Writeln('Elemen ',i,' dari ',Nama,'= ',Nama[i]);

End