Array (Larik) Dalam Pascal

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.

Tweet

Subscribe to receive free email updates: