Tujuan procodure yang lain adalah untuk membuat kita sebagai programmer untuk fokus pada proses program secara keseluruhan, jadi untuk proses yang membutuhkan detail perhitungan bisa kita selesaikan secara khusus.
Sebagai contoh penggunaan procedure adalah proses pembuatan tampilan untuk sistem informasi mahasiswa.
untuk lebih jelasnya bagaimana tampilan program tersebut dieksekusi maka berikut adalah tampilan kode programnya
uses wincrt;
var pilih:integer;masuk:string;
procedure tampilan;
begin
writeln('==================================================================');
writeln('********************SISTEM INFORMASI MAHASISWA********************');
writeln('==================================================================');
writeln;
end;
begin
clrscr;
tampilan;
writeln(' 1. Masuk ');
writeln(' 2. Keluar ');
write('masukkan angka yang anda pilih : ');readln(pilih);
if pilih=1 then
begin
clrscr;
tampilan;
write('apakah anda akan masuk? ');readln(masuk);
if masuk='ya' then
begin
clrscr;
tampilan;
writeln('masuk')
end else
begin
clrscr;
tampilan;
writeln('keluar');
end;
end else
begin
clrscr;
tampilan;
writeln('keluar');
end;
end.
bisa dilihat bahwa penggunaan tampilan akan berlangsung terus menerus saat akan memasuki menu, coba jika pembuatan program tidak menggunakan procedure, tentu kita akan terus mengetik program yang di dalam procedure tersebut tiap kali kita akan memasuki sebuah menu, tentu akan lebih membingungkan untuk pembuatan sebuah program.
Tidak ada komentar:
Posting Komentar