Menganalisa Source Code Contoh Program dengan Array pada Pascal (3 - Final)

Keyword :
Pascal,
Source Code,
Array,
Struktur Data,
Algoritma,
Bagian : 3 dari 3 (Final)

uses crt;
const awal=1;
akhir=5;
var nama: array[awal..akhir] of string;
nim: array[awal..akhir] of string;
n: integer;
begin
clrscr;
writeln (’Isi NIM dan Nama dengan Array’);
For n:=1 to 5 do
begin
write (’NIM -’,n,’:'); readln(nim[n]);
write (’Nama -’,n,’:'); readln(nama[n]);
writeln;
end;
writeln;
writeln (’Hasil dari inputan adalah:’);
for n:=1 to 5 do
begin
writeln (’NIM -’,n,’:',nim[n]);
writeln (’Nama -’,n,’:',nama[n]);
writeln;
end;
readln;
end.

Source code yang ketiga ini adalah sedikit pengembangan dari source code yang kedua. Yang membedakan pada source code yang yang ketiga ini adalah terdapat 2 buah variable bertipe array of string dan terdapat perulangan atau rekursif pada pengisian data. Dengan adanya rekursi ini, program menjadi lebih efisien.
Pada awal program terjadi pendeklarasian konstanta awal dan akhir yang masing-masing bernilai 1 dan 5. Setelah itu juga pendeklarasian nama dan nim yang bertipe array[awal..akhir] of string yang berarti array nama dan nim ini masing-masing memiliki 5 ruang.
Pada program utama, terbagi menjadi 2 bagian, yaitu bagian input data data dan bagian output data. Bagian input datanya :

writeln (’Isi NIM dan Nama dengan Array’);
For n:=1 to 5 do
begin
write (’NIM -’,n,’:'); readln(nim[n]);
write (’Nama -’,n,’:'); readln(nama[n]);
writeln;
end;

Pada bagian input data, proses masukan dilakukan secara rekursif. Terjadi looping sebanyak 5 kali, yaitu dari n=1 hingga n=5. Pada tiap-tiap perulangan, terjadi input data readln nim[n] dan nama[n], yang nilai n sejalan dengan loopingnya. Ini berarti, saat n=1, maka terjadi input masukan nim[1] dan nama[1] dan disimpan untuk keluaran selanjutnya.
Setelah nim[1] dan nama[1] didapat, perulangan masih berlanjut untuk hingga n=5. Ini berarti, jika perulangan telah selesai, nilai nim[1] dan nama[1] hingga nim[5] dan nim[5] telah didapatkan dan selanjutnya akan digunakan pada proses output data.

writeln (’Hasil dari inputan adalah:’);
for n:=1 to 5 do
begin
writeln (’NIM -’,n,’:',nim[n]);
writeln (’Nama -’,n,’:',nama[n]);
writeln;
end;

Pada bagian output data, hampir sama dengan bagian input data, hanya saja pada bagian ini proses perulangan dari n=1 sampai 5 digunakan untuk menampilkan nim[1] dan nama[1] hingga nim[5] dan nama[5].