Desember 19, 2010
Materi Kuliah, 17 Desember 2010
Review dan Penerapan Procedure dan Function dalam Pascal
Tentu, kita semua masih ingat bahwa pascal adalah bahasa pemrograman yang terstruktur. Untuk itu, algoritma dari program yang akan dibuat dengan bahasa pascal harus jelas proses dan tujuannya. Jadi, program dalam pascal itu haruslah terstruktur dan teratur.
Untuk itu, dalam beberapa jenis progrma yang ditujukan untuk problem solving dari suatu kasus yang rumit, sangat diperlukan untuk memecah program utama kita menjadi sub-sub program dengan menggunakan procedure dan function.
Procedure dan function merupakan sub-program yang memiliki bagian deklarasi dan (begin-end;) tersendiri layaknya suatu program pascal.
Tujuan pemakaian procedure maupun function adalah untuk memecah program kita menjadi
kesatuan logika yang lebih kecil (sub-sub program).
Selain itu, untuk menghindari perulangan pengetikan dan memudahkan pembacaan.
Salah satu contohnya berikut ini dalam menghitung Luas persegi dengan procedure dan Function.
Program dengan Procedure :
program Square;
uses wincrt;
var s,L:integer;
procedure luas;
begin
L:=s*s;
end;
begin
write(‘masukkan sisi = ‘);
readln(s);
luas;
write(‘luasnya =’,L);
end.
Program dengan Function :
program Square;
uses wincrt;
var L,s,sisi:integer;
function luas(s:integer) : real;
begin
luas:=s*s;
end;
begin
write(‘masukkan sisi = ‘);
readln(sisi);
write(‘luasnya =’,luas(sisi):0:3);
end.
Contoh Aplikasi lain yakni untuk meghitung nilai faktorial. Misalnya 5!=5 x 4 x 3 x 2 x 1
Program untuk menghitung nilai faktorial dengan procedure dan function adalah sebagai berikut :
program fact;
uses wincrt;
var hasil,x:integer;
{prosedur}
procedure faktorial;
var i:integer;
begin
hasil:=1;
for i:=x downto 1 do
hasil:=hasil*i;
end;
{program utama}
begin
write(‘Enter the value = ‘);
readln(x);
faktorial;
writeln(x,’! is =’,hasil);
end.
Slide 7
program fact;
uses wincrt;
function factorial(n : integer):longint;
Var i : integer; result : longint;
begin
result:=1;
for i:=n downto 1 do
result:=result*i;
factorial:=result;
end;
var
x : integer;
begin
writeln(‘Enter a value : ‘); readln(x);
writeln(x,’! is ‘,factorial(x));
end.
Selamat mencoba, dan silahkan dipahami tiap langkah dalam program-program di atas. Jika dianggap butuh bimbingan silahkan menghubungi pihak yang berwajib,, hehe.. Boleh lah untuk memberi komentar atau saling berdiskusi.
ya ya,, kurang lengkap tanpa link download..
silahkan jika ingin mengunduh alias men-download file nya di :
http://www.4shared.com/document/juEh7uoi/Presentation_Pascal_Procedure_.html
Salam…
