Array adalah struktur data yang terdiri dari banyak variabel dengan tipe data yang sama dan tersusun secara linear. Setiap elemen array memiliki indeks dan mampu menyimpan satu jenis data. Array dapat berbentuk satu atau dua dimensi.
2. Definisi
sebuah struktur data yang terdiri atas
banyak variabel dengan tipe data
sama dan tersusun secara linear.
3. Masing-masing elemen variabel mempunyai
sebuah nilai indeks
Setiap elemen array mampu untuk
menyimpan satu jenis data (yaitu: variabel).
Suatu array dinyatakan dengan type,
sehingga variabel yang bekerja akan
dinyatakan dengan:
contoh:
Type Angka = array [1..10] of integer;
Var A:Angka;
A[1], A[2], A[3], A[4], A[5], A[6], A[7], A[8],
A[9], A[10
4. Sifat Array
Array merupakan struktur data yang
statis, yaitu jumlah elemen yang ada
harus ditentukan terlebih dahulu dan
tak bisa di ubah saat program
berjalan.
5. Sintaks array 1 Dimensi
Type
nama_array = ARRAY[bawah..atas]
of tipe_data;
Var variabel_array : nama_array;
6. Contoh array statis
Program c_array;
uses wincrt;
type mhs=array[1..5]of string;
var m:mhs;
begin
m[1]:='armadyah';
m[2]:='aditya';
m[3]:='hendra gauthama';
m[4]:='arma tyas';
m[5]:='guntur mahendra';
writeln('data dalam array range 1-3=',' ',m[1],' ',m[2],' ',m[3]);
writeln('data dalam array range 4-5=',' ',m[4],' ',m[5]);
readln;
end.
7. Contoh array dinamis
Program c_array1;
uses wincrt;
type mhs=array[1..7]of string;
var m:mhs; i:integer;
begin
for i:=1 to 7 do
begin
writeln('masukkan nama mahasiswa ke',' ',i,'=');
readln(m[i]);
end;
writeln('===============================');
for i:=1 to 7 do
writeln('mahasiswa ke',' ',i,' ',m[i]);
readln;
end.
8. Sintaks Array 2 Dimensi
Type
nama_array=array[baris,kolom]of
typedata;
Var Variable_array:nama_array;
9. Contoh
Type nilai=array[1..3,1..2]of integer;
Var n:nilai;
Begin
n[1,1]:=’70’;
n[1,2]:=’80’;
n[2,1]:=’80’;
n[2,2]:=’65’;
n[3,1]:=’75’;
n[3,2]:=’82’;
End.
10. Program c_array2;
uses wincrt;
type nilai=array[1..3,1..3] of integer;
var n:nilai;
i,j:integer;
begin
for i:=1 to 3 do {perulangan baris}
begin
for j:=1 to 2 do {perulangan kolom}
begin
writeln('masukkan nilai mahasiswa ke',' ',i,'=');
readln(n[i,j]);
end;
end;
n[1,3]:=n[1,1]+n[1,2];
n[2,3]:=n[2,1]+n[2,2];
n[3,3]:=n[3,1]+n[3,2];
writeln;
writeln('============================');
writeln('nilai aditya=',' ',n[1,3]);
writeln('nilai andi=',' ',n[2,3]);
writeln('nilai hanif=',' ',n[3,3]);
end.