Pascal - Prosedur.txt - Notepad.pdf

ƒ Procedure
procedure adalah suatu program yang terpisah dalam block
tersendiri yang berfungsi sebagai subprogram (program bagian).
Penggunaan prosedur diawali dengan kata cadangan procedure di
dalam bagian deklarasi procedure. Pemanggilan procedure dengan
menggunakan judul procedure.
Pada program terstruktur banyak menggunakan procedure karena :
- Sebagai penerapan program yang modular yaitu memecah program
yang rumit menjadi program- program bagian yang lebih sederhana
dalam bentuk procedure.
- Untuk beberapa perintah yang sering digunakan berulang, cukup
dituliskan sekali dalam procedure dan dapat dipanggil sewaktu-
waktu.
contoh Procedure tanpa parameter,
ex :
procedure garis;
begin
writeln('-------------');
end;
procedure Judul;
begin
writeln('pascal');
end;
{modul utama}
begin
garis;
judul;
garis;
end.
hasil :
------------
pascal
------------
„ I. Parameter dalam procedure
Nilai di dalam suatu procedure sifatnya adalah local, berarti
hanya dapat digunakan oleh procedure tersebut saja dan tidak
dapat digunakan oleh procedure yang lain.
ex :
procedure hitung;
var

a,b,c : integer;
begin
write('Nilai a =');readln(a);
write('Nilai b =');readln(b);
c:=a+b;
writeln('hasilpenjumlahan=',c:5);
readln;
end;
{ modul utama } akan salah jika pada modul utama :
begin begin
hitung; hitung;
end. writeln('nilai a=',a); -> a tdk dikenal
end.
Pada kasus diatas dapat diselesaikan dengan menggunakan deklarasi
secara global, sehingga semua procedure dibawah deklarasi global
dapat menggunakannya.
ex. penggunaan deklarasi global :
uses crt;
procedure kali;
var
a,b,c : integer; { deklarasi secara local utk proc. kali saja}
begin
write('A =');readln(a);
write('b =');readln(b);
c:=a*b;
writeln('hasil c =',c:5);
end;
var
d,e,f : integer; {deklarasi secara global hingga dikenal
oleh}
procedure jumlah; {proc.jumlah&procedure dibawahnya }
begin
write('nilai d =');readln(d);
write('nilai e =');readln(e);
f:=d+e;
writeln('nilai f =',f:5);
end;
procedure kurang; {procedure ini menggunakan varibel global}
begin { yang terletak diatas procedure jumlah}
write('Nilai d =');readln(d);
write('nilai e =');readln(e);
f:= d-e;
writeln('Nilai f=',f:5);
end;
{ modul utama}
begin
clrscr;

kali;
jumlah;
kurang;
readln
end.
„ II. Pengiriman parameter secara Nilai.
pada pengiriman parameter secara nilai (by value), parameter
formal akan berisi nilai yang dikirimkan dari parameter nyata dan
nilai parameter tersebut akan local diprocedure yang dikirim.
sifat dari pengiriman nilai ini adalah satu arah, sehingga peru
bahan nilai dari parameter formal tidak akan mempengaruhi nilai
parameter nyata.
ex. :
program pengiriman_parameter_secara_nilai;
procedure kali(a,b : integer); {parameter formal}
var
hasil : integer; {local variabel}
begin
hasil :=a*b;
writeln('hasil =',hasil:6);
end;
{modul Utama}
var
bil1,bil2 : integer;
begin
write('bilangan 1 =');readln(bil1);
write('bilangan 2 =');readln(bil2);
kali(bil1,bil2); {parameter nyata}
readln;
end.
Di bawah ini merupakan contoh bahwa perubahan pada parameter
formal tidak akan mempengaruhi nilai parameter nyata, karena
sifatnya adalah
satu arah.
Procedure kali(a,b : integer);
kali(bil1,bil2);
ex :
program parameter_nilai_tdk_mempengaruhi_parameter_nyata;
uses crt;
procedure test_hitung(a,b,hasil : integer);
begin
hasil := a*b;
writeln('A =',a:4,' B=',b:4,' Hasil=',hasil:6);
end;
{modul utama}
var

bil1,bil2,bil3 : integer;
begin
bil1:=3;bil2:=4;bil3:=0;
test_hitung(bil1,bil2,bil3);
writeln('bil1=',bil1:4,' bil2=',bil2:4,' bil3=',bil3);
readln;
end.
„ III. Pengiriman parameter secara acuan (by reference)
Sifat dari pengiriman parameter secara acuan adalah dua arah
artinya perubahan dari parameter formal akan mempengaruhi nilai
dari parameter nyata. Cara deklarasi di procedure dengan kata
cadangan Var seperti berikut :
procedure kali(Var a,b,c : integer); -> parameter formal
kali(x,y,z); -> parameter nyata
ex. Program :
program pengiriman_parameter_secara acuan;
uses crt;
procedure kali(var a,b,c : integer); {parameter formal acuan}
begin
c:=a*b;
end;
{modul utama}
var
x,y,z : integer;
begin
write('nilai x=');readln(x);
write('nilai y=');readln(y);
kali(x,y,z); {mengirimkan parameter secara acuan}
writeln('Nilai z =',z:5);
end.
ex. penggunaan parameter secara acuan untuk perhitungan faktorial:
program Contoh_penggunaan_parameter_acuan;
uses crt;
procedure faktor(var banyak,hasil : integer);
var
i : integer;
begin
hasil := 1;
for i := 1 to banyak do
begin
hasil := hasil*I;
end;
end;

{modul utama}
var
n,jumlah : integer;
begin
write('Berapa faktorial =');readln(n);
faktor(n,jumlah);
writeln(n:5,' faktorial adalah =',jumlah:6);
readln;
end.
contoh Program dengan penggunaan procedure dgn parameter secara
acuan pada perhitungn pangkat lebih besar dari 2 :
program pangkat;
uses crt;
procedure pangkat(var bil,hasil:real;pang:integer);
var
i : integer;
begin
hasil :=1;
for i:= 1 to pang do
begin
hasil:=hasil*bil;
end;
end;
{modul utama}
var
angka,hasil : real;
pang : integer;
begin
clrscr;
write('bilangan yang dipangkat =');readln(angka);
write('dipangkatkan =');readln(pang);
pangkat(angka,hasil,pang);
write('hasil =',hasil:5:2);
readln;
end.
„ IV. Procedure memanggil procedure yang lain.
Di dalam pascal diperkenankan procedure memanggil procedure yang
lain seperti contoh berikut :
program procedure_memanggil_procedure_yang_lain;
uses crt;
procedure satu(a1: integer);
begin
writeln(' nilai a =',a1:2,' ada diprocedure satu');
end;
procedure dua(a2: integer);
begin
writeln(' nilai a =',a2:2,' ada diprocedure dua');

satu(a2);
end;
procedure tiga(a3: integer);
begin
writeln(' nilai a =',a3:2,' ada diprocedure tiga');
dua(a3);
end;
procedure empat(a4: integer);
begin
writeln(' nilai a =',a4:2,' ada diprocedure empat');
tiga(a4)
end;
{modul Utama}
var
a : integer;
begin
clrscr;
write('nilai a=');readln(a);
empat(a);
readln;
end.
„ V. Procedure Tersarang
Procedure tersarang adalah procedure yang terdapat di dalam
procedure yang lain dan dipanggil oleh procedure diluarnya.
program contoh_procedure_tersarang;
uses crt;
procedure satu; {deklarasi procedure satu}
procedure dua;
begin {awal procedure dua}
writeln('procedure dua ada di procedure satu');
end; {akhir procedure dua}
procedure tiga;
begin {awal procedure tiga}
writeln('procedure tiga ada di procedure satu');
end; {akhir procedure tiga}
begin {awal procedure satu}
writeln(' procedure satu');
dua; {memanggil procedure dua}
tiga; {memanggil procedure tiga}
end; {akhir procedure satu}
{modul utama}
begin
clrscr;
writeln(' modul utama');
satu; {memanggil procedure satu}

readln;
end.
„ VI. Procedure memanggil dirinya sendiri (rekursi).
Di dalam pascal diperkenankan memanggil procedurenya sendiri.
istilah ini disebut sebagai recursion. Dalam penggunaanya membu
tuhkan memory yang besar. Karena pada setiap pemanggilan sejumlah
memory tambahan dibutuhkan.
ex.:
program procedure_memanggil_dirinya_sendiri;
uses crt;
var
I : integer;
procedure rekursi;
begin
writeln('pemangilan procedure ke-',i:5);
i:=i+1;
if i < 5 then rekursi;
end;
{modul utama}
begin
clrscr;
i:=1;
rekursi;
readln;
end.

Pascal - Prosedur.txt - Notepad.pdf

More Related Content

Similar to Pascal - Prosedur.txt - Notepad.pdf (20)

More from Jurnal IT (20)

Recently uploaded (20)

Pascal - Prosedur.txt - Notepad.pdf