devinisi tentang array dan pendeklarasian array!

1. Jelaskan devinisi tentang array dan pendeklarasian array!
2. Sebutkan macam-macam array dan sebutkan bentuk umumnya!
3. Buatlah program sederhana dengan menggunakan array!
Jawab:
1.Array adalah variable berindeks, dimana setiap index tersebut memiliki nili masing-masing.

Array berbeda dengan variable biasa, variable biasa hanya memiliki sati tempat, sedangkan array bisa memiliki beberapa tempat, tergantung dari pendeklarasiaanya. Array dideklarasikan setelah reserved word var, karena array juga termasuk variable.
contoh pendeklarasian array:
var nama array : array () of ;

2. Berikut adalah macam-macam array, dan bentuk umunya:

-Array type index:
Var nama array : array () of ;

-Array dengan jangkauan byte:
Var : array (byte) oh\f ;
Jangkauan byte adalah dari 0 sampai dengan 225. Jadi, deklarasi diatas sama saja dengan:
Var : array (0…225) of ;

-Array dengan jangkauan Boolean:
Var : array (Boolean) of ;
Deklarasi diatas hanya memiliki 2 buah nilai array saja, yaitu true dan false.

-Array dengan jangkauan karakter:
Var : array () of ;
Karakter, di dalam memory, memiliki nilai masing-masing.

-Array dengan jangkauan index scalar (enumerated):
Var : array () of ;

Contoh:
Var hari : array (sen, sel, rab, kam, jum, sab, ming) of integer;
Selain itu, pendeklarasian diatas juga dapat ditulis:
Type nmhr = (sen, sel, rab, kam, jum, sab, ming);
Var hari : array (nmhr) of integer;

3. Kode programnya:
Program pengurutan;
Uses crt;
Var a,b,c,d,ejml, jml2slh,pjg : integer;
C : real;
Angks : array (1..100) of string;
Agkr : array (1..100) of real;
Pjgkm : array (1..100) of integer;
Krt,hal : string;
Procedure judul;
Begin
Window(1,1,80,50);
Textbackground(white);
Textcolor(black);
Clrscr;
gotoXY(25,2); write (‘P E N G U R U T A N A N G K A’);
gotoXY (23,3); write (‘------------------------------‘);
end;
procedure input;
begin
gotoXY(19,5); write (‘berapa angka yang akan anda masukkan?’);
readln(jmlh);
for a :=1 to jmlh do
begin
gotoXY(30,7); write (‘angka ke-‘,a,’:’); readln (agks[a])
var(agks[a],agkr[a],slh); pjg: length (agks[a]);
for b :=1 to pjg do
begin
krt := copy(agks[a],b,1);
if (krt=’,’) of (krt=’,’) then
begin
pjgkm[a] := pjg-b;
end;
end;
gotoXY(1,7); clrscr; writeln; writeln;
end;
end;
procedure urut;
begin
jml2:=jml;
while jml2 <> 0 do
begin
jml2:=jml2-1;
for e := 1 to jml2 do
begin
if agkr [e];
begin
c :=agkr [e]; d:[jgkm[e];
agkr e :=agkr [e+1] pjgkm[e]:= pjgkm [e+1];
agkr[e+1]:=c; pjgkm[e+1]:=d;
end;
end;
end;
end;
procedure tulis;
begin
for a := 1 to 80 do write (‘=’);
for a := 1 to jml do
begin
str(agkr a :1:pjgkm[a], hal);
write (hsl:18,’I’);
if (a mod 4) = 0 then
begin
for b := 1 to 80 do write (‘=’);
end;
end;
if (jml mod 4)><0 then
begin
writeln;
for a :=1 to (jml mod 4) * 20 do write (‘=’);
end;
end;
begin
clrscr;
judul; input; urut; tulis;
gotoXY(30,((jml div 4)+1)*2+1); write (‘T E K A N E N T E R’);
readln;
end;