Array

Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen

yang mempunyai tipe sama. Komponen-komponen tersebut disebut sebagai komponen

type larik mempunyai jumlah komponen yang jumlahnya tetap. Banyaknya

komponen dalam larik ditunjukkan oleh suatu index, dimana tiap komponen di array

dapat diakses dengan menunjukkan nilai indexnya. Array dapat bertipe data

sederhana seperti byte, word, integer, real, bolean, char, string dan tipe data scalar

atau subrange. Tipe larik mengartikan isi dari larik atau komponen- komponenya

mempunyai nilai dengan tipe data tersebut.

Penjelasan tentang array

var

X : array [1..10] of integer;

Pendeklarasian larik di atas adalah pendeklarasian larik dengan nama larik adalah

X, jumlah elemen maksimumnya sebanyak 10 elemen dan tipe datanya adalah

integer.

Contoh penggunaan array adalah sebagai berikut:

Contoh1

uses wincrt;

Var

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

I,J,Total: Integer;

Begin

ClrScr;

Write ('Berapa Banyak Bilangan yg di input ( Maks 10): ');

Readln (I);

For J := 1 to I do

Begin

write ('Bilangan ke ',J,' '); readln (Bilangan[I]);

Total := Total + Bilangan [I];

End;

Write ('Jumlah Bilangan yang di input adalah ',total);

End.

Contoh 2:

uses wincrt;

Var

NPM : array[1..999] of string[10];

Nama : array[1..999] of string[25];

banyak,i : integer;

Begin

ClrScr;

Write('Berapa banyak data mahasiswa: ');Readln(banyak);

For i := 1 to banyak Do

Begin

writeln ('Data ke ',' ',i);

writeln ('');

Write('NPM =');Readln(NPM[i]);

Write('Nama =');readln(Nama[i]);

End;

For i:= 1 to banyak Do

Begin

Writeln('Data ke ',i,' ',Npm[i],Nama[i]:15);

End;

End. 

¢Array dimensi banyak

Penjelasan sebelumnya adalah tentang array 1 dimensi. Di dalam pascal Array

dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak

(Multidimensional array), disini akan dibahas array 2 dimensi saja. Array 2

dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama

menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau

matrik.

Contoh Pendeklarasian array 2 dimesi

Var

Tabel : Array[1..3,1..2] of integer;

Penjelasan:

Perbedaan terdapat pada jumlah elemen yang di bagi 2, 1..3 adalah dimensi

pertama dari array, sedangkan 1..2 adalah dimensi kedua dari array.

Contoh programnya adalah:

uses wincrt;

Var

Tabel: Array[1..3,1..2] of Integer;

I,J,X : Integer;

Procedure Input_data (var X : Integer ; I,J:integer);

Begin

ClrScr;

For I := 1 to 3 Do

Begin

For J:= 1 to 2 Do

Begin

Write('Nilai Baris ke ',I,' Kolom ke ',J,' '); Readln (Tabel[I,J]);

End;

writeln;

End;

End;

Procedure Tampil_data (var X : Integer ; I,J:integer);

Begin

ClrScr;

For I := 1 to 3 Do

Begin

For J:= 1 to 2 Do

Begin

Write(Tabel [I,J],' ');

End;

writeln;

End;

End;

Begin

Input_data(X,I,J);

Tampil_data (X,I,J);

End.