Pascal - Array Pascal

Array didefinisikan sebagai suatu kumpulan dimana elemen-elemennya berjenis data sama (homogen) ), Suatu array dapat dibedakan atas 2 (dua) bagian, yaitu :

a. Array berdimensi satu.

Array berdimensi satu dapat dikatakan sebagai suatu daftar yang linier atau sebuah kolom.

Bentuk deklarasi dari array jenis ini dalam bahasa Pascal adalah :

VAR nama_array : ARRAY [index] OF jenis_elemen;

Contoh :

VAR x : ARRAY [1..10] OF integer;

b. Array Multi Dimensi

Contoh untuk array jenis ini adalah array  dimensi dua. Array dimensi dua ini dapat dianggap sebagai sebuah matriks yang jumlah  kolomnya lebih dari satu.

Bentuk deklarasi :

VAR nama_array : ARRAY [indeks_baris,indeks_kolom] OF jenis;

Contoh :

VAR A : ARRAY [1..3,1..4] OF integer;

Array A di atas terdiri atas 12 elemen, yaitu :

A[1,1] A[1,2] A[1,3] A[1,4]

A[2,1] A[2,2] A[2,3] A[2,4]

A[3,1] A[3,2] A[3,3] A[3,4]

Masing-masing A[i,j] diatas adalah integer

(i = 1,2,3 ; j = 1,2,3,4)

Array dapat bertipe data sederhana seperti byte, word, integer, real, bolean, char,  string dan tipe data scalar atau subrange.

Contoh :

Misal terdapat 10 bilangan integer positif  yang berbeda disimpan di dalam suatu  array B. Tentukan integer yang terbesar  diantara 10 integer tersebut dengan suatu  program Pascal.

1. PROGRAM MAKS ;

VAR B : ARRAY [1..10] OF integer;

I,J,MAX : integer;

Begin

FOR I := 1 TO 10 DO READ(B[I});

MAX := B[1];

FOR J := 2 TO 10 DO

IF MAX <= B[J] THEN MAX := B[I];

WRITE (MAX);

End.

2. program yang menghitung rata-rata dari 10 bilangan tersebut

PROGRAM RATA_RATA;

TYPE INDEKS = 1..10;

VAR A : ARRAY [INDEKS] OF INTEGER;

I : INTEGER;

TOTAL : INTEGER;

RATA2 : REAL;

BEGIN

Total := 0;

FOR I := 1 TO 10 DO

BEGIN

READ (A[I]);

TOTAL := TOTAL + A[I];

END;

RATA2 := TOTAL / 10;

WRITE (RATA2);

END.

3.  program contoh_array_input;

uses crt;

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]);

readln;

end.

Share this post