×

Array (Larik) Dalam Pascal

Share this article with your friends

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"

Post a Comment