Array adalah salah satu jenis data terstruktur yg dapat digunakan untuk menyimpan lebih dari satu data yg mempunyai indeks serta tipe data yg sama.
Array Dimensi 1
Dapat dideklarasikan :
Var namavariabel:array[indeks] of tipe data;
Keterangan :
Var,array,of : keyword /kata kunci yg harus ada
Namavariabel : nama variabel
Indeks: Batas indeks yg akan dideklarasikan pada variabel array
Tipe data :Tipe data array (integer/string/real,dll)
Contoh :
Var nilai:array [1..5] of integer;
Contoh Program Array (Dimensi 1):
program arrayku;
uses crt;
var
a :array [1..20] of integer;
b,jumlah : integer;
begin
clrscr;
jumlah :=0;
for b:= 1 to 10 do
begin
write('Masukkan Bilangan ke',b,':');
readln(a[b]);
end;
writeln('======================================');
for b:= 10 downto 1 do
begin
if a[b] mod 2= 1 then
begin
writeln (a[b]);
jumlah:= jumlah+a[b];
end;
end;
writeln('Jumlahnya Adalah :',jumlah);
readln;
end.
Array Dimensi 2
Dapat dideklarasikan :
Var namavariabel:array[indeks1,indeks2,….] of tipe data;
Keterangan : indeks1,indeks2 : Batas indeks yg dideklarasikan dimana ada lebih dari 1 indeks.
Contoh Program :
program array_dua_dimensi;
uses crt;
var
matriks : array[1..3,1..2] of integer;
f, g : byte;
begin
clrscr;
writeln('Contoh Matriks : ');
writeln(‘============’);
matriks[1,1] := 2;
matriks[1,2] := 3;
matriks[2,1] := 2;
matriks[2,2] := 7;
matriks[3,1] := 5;
matrik[3,2] := 9;
for f:= 1 to 3 do
begin
for g:=1 to 2 do
write (matriks[f,g]:5);
writeln;
end;
readln;
end.
0 Response to "Array (Larik) Dalam Pascal"