Tutorial Pascal - Array Pascal
Array didefinisikan sebagai suatu kumpulan dimana elemen-elemennya berjenis data sama (homogen) ), Suatu array sanggup dibedakan atas 2 (dua) bagian, yaitu :
a. Array berdimensi satu.
Array berdimensi satu sanggup dikatakan sebagai suatu daftar yang linier atau sebuah kolom.
Bentuk deklarasi dari array jenis ini dalam bahasa Pascal ialah :
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 ialah array dimensi dua. Array dimensi dua ini sanggup 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 ialah integer
(i = 1,2,3 ; j = 1,2,3,4)
Array sanggup bertipe data sederhana ibarat 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. kegiatan 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.
