Menggunakan Array dengan Pascal

Kembali lagi ke Pemrograman Pascal setelah lama kita tidak bermain dengan Pemrograman Pascal. Ok,

Array sudah pernah disinggung dalam pemrograman matriks sebelumnya sehingga aku gak akan menjelaskan pengertian dari array lagi disini.

Untuk membuat array di pascal kita hanya harus mendefinisikan array tersebut pada bagian variable. Cara mendefinisikannya adalah sebagai berikut:

Array 1 Dimensi
--> hanya mempunyai 1 tempat penyimpanan untuk indexnya.

uses crt;
var
a: array [1..3] of integer;

ini berarti bahwa a adalah sebuah array yang memiliki 3 index atau array a memiliki 3 data didalamnya. Data dalam array a dapat disesuaikan sebagaimana kebutuhan kita.

Array 2 Dimensi
--> mempunyai 2 tempat penyimpanan untuk indexnya

uses crt;
var
a : array [1..3,1..3] of integer;

ini berarti bahwa array a memiliki 9 index yaitu 1.1, 1.2, 1.3 ... 3.2, 3.3. Bentuk array seperti ini kerap kita jumpai pada pemrograman matriks baik itu penjumlahan, ataupun perkalian.

Ok, untuk penggunaan array secara real pada program adalah sebagai berikut:

uses crt;
var
a:array [1..3] of integer;
k,l:integer;
begin
clrscr;
for k:=1 to 3 do
begin
writeln('Masukkan Angka:'); readln (a[k]);
end;
for k:= 1 to 3 do
begin
l:= l + a[k];
end;
writeln('Jumlah dari Semua Angka: ',l);
readln;
end.

Program diatas akan menjumlahkan seluruh index dari array a yang kemudian dinilai sebagai l.


NB:
- Input akan dilakukan secara berulang sebanyak 3 kali dan disimpan sebagai array a dengan index 1,2,3
- Nilai dari array a akan dikeluarkan satu per satu dan dijumlahkan dengan l dan dicatat sebagai l sehingga nilai l akan terus naik