ARRAY

ARRAY

Tipe data array (larik) merupakan tipe data yang hampir selalu hadir di dalam setiap bahasa pemrograman. Array adalah suatu tipe terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. Komponen-komponen ini disebut sebagai tipe komponen. Banyaknya komponen dalam suatu larik jumlahnya tetap. Tipe data array merupakan tipe data yang hampir selalu hadir di dalam setiap bahasa pemrograman. Tipe data array adalah tipe data bentukan yang terdiri dari kumpulan tipe data lain. Daripada membuat 10 variabel yang terdiri dari nama1, nama2, nama3, dst, akan lebih efisien jika variabel nama ini disimpan ke dalam array. Larik dapat bertipe data sederhana byte, word, integer, real, boolean, char, atau string dan dapat juga bertipe skalar atau subrange.

1. Array Berdimensi Satu adalah kumpulan elemen yang tersusun dalam satu baris.
Contoh :
        

Program Dimensi_1 ;

Uses wincrt ;

Var data : array [1..10] of integer ;

    a,b,i : integer ;

Begin

Write ('Banyaknya Jumlah Data :'); readln (b);

For i:= 1 to b do

    Begin

Write ('Data ke-', i,'='); readln (data[i]) ;

    end;

Write ('Ingin melihat data ke:') ; readln (a) ;

Write ('Data ke-', a,'=', data [a]) ;

                      End.
Output :  

2. Array Berdimensi Dua sebuah perluasan dari sebuah array berdimensi satu. Jika pada array satu dimensi hanya terdiri dari sebuah baris dengan beberapa kolom elemen maka pada array dua dimensi terdiri dari beberapa baris dan beberapa kolom elemen yang bertype sama.

Contoh :

Program Matriks_Dimensi2 ;

Uses Wincrt ;

Var X:array [1..5, 1..5] of integer ;

      i,a,b,c,d,e : integer ;

Begin

Writeln ('Program input matriks X') ;

Writeln ('=======================') ;

Write ('banyaknya baris') ; readln (b) ;

Write ('banyaknya kolom') ; readln (c) ;

For i:=1 to b do

    Begin

    For a:=1 to c do

               Begin

               write ('X [',i,',',a,'] :') ; readln (X[i,a]);

               end;

    Writeln;

    end;

Writeln ('Melihat Elemen Matriks X') ;

Write ('Baris ke-') ; readln (d) ;

Write ('Kolom ke-') ; readln (e) ;

Write ('Elemen Matriks X baris ke-',d,'kolom ke-',e,'=',X[d,e]);

End.

Output :