ARRAY (LARIK)

 Tipe Data Terstruktur Larik

Adalah tipe terstruktur yg mempunyai komponen dlm jmlh yg tetap dan setiap komponen mempunyai tipe data yang sama.
Posisi masing-masing komponen dalam dalam larik dinyatakan sebagai nomor index.
• Array……
Perbedaan array dengan variabel adalah variabel hanya mempunyai satu tempat, sedang array bisa mempunyai beberapa tempat tergantung deklarasinya.
Variabel biasa :
nama
Array :
nama
• Array…….
Sintaks :
type pengenal=Array[tipe_index] of tipe_data
Keterangan :
Pengenal adalah nama tipe data
Tipe_index adalah tipe data untuk nomor index serta menentukan banyaknya Komponen larik tersebut
Tipe adalah tipe data komponen
 Tipe Data Terstruktur Larik
Contoh :
type nama_mhs=Array[1…100] of string;
Artinya array nama_mhs mempunyai 100 tempat dengan indeks 1 sampai 100. penunjukan setiap elemennya dapat kita nyatakan dengan :
nama_mhs[1],nama_mhs[2],…,nama_mhs[100]
Indeks array terkecil adalah 0. indeks terbesar bergantung pada kapasitas memory yang ada. Indeks array haruslah bilangan bulat.


• Array Dua Dimensi
Array bisa juga berdimensi lebih dari satu. Array berdimensi dua berguna untuk mendifinisikan matriks. Array jenis ini biasanya banyak digunakan dalam aplikasi numeris.
Deklarasi :
Nama_larik:array[1..n,1..n] of tipedata
Contoh :
matriks_A:array[1…10,1…10] of integer;
… … …
… … …
… … …

CONTOH PROGRAM array 1 dimensi

Program coba_array;
Uses wincrt;
Var
i,jum_data:integer;
nama:array [1..20] of string;
Begin
writeln('MENCETAK NAMA MAHASISWA DENGAN ARRAY');
writeln;
write('masukkan jumlah data : ');readln(jum_data);
for i:=1 to jum_data do
Begin
write('masukkan nama ke ',i,' : ');readln(nama[i]);
end;
writeln;
writeln('No Nama');
writeln('----------------------');
for i:=1 to jum_data do
writeln(i:5,nama[i]:15);
End.

Contoh program array 2 dimensi

Program coba_array2_dimensi;
Uses wincrt;
const maks=3;
Var
i,j:integer;
matriks:array [1..maks,1..maks] of integer;
Begin
writeln('MENGISI MATRIKS A');
writeln;
for i:=1 to maks do
for j:=1 to maks do begin
write('A [',i,',',j,'] : ');readln(matriks[i,j]);
end;writeln;
writeln('ISI MATRIKS A');
writeln('-------------');
for i:=1 to maks do
for j:=1 to maks do begin
if j=maks then writeln(matriks[i,j])
Else write(matriks[i,j],' ');
end;
End.