Procedure dan Function
Dalam sebuah program, akan lebih mudah diatur dan dikelompokkan dalam modul atau bagian. Dengan pembagian yang sesuai maka pembuat program (programmer) tidak perlu menulis ulang bagian program yang sama berkali-kali. Dengan demikian maka proses pembuatan program lebih efisien.
Untuk membagi program pascal ada dua macam cara pengelompokan yaitu Procedure dan Function.
Procedure
adalah bagian program yang terdiri dari gabungan beberapa statement untuk melakukan tugas tertentu tanpa memiliki nilai kembalian.
Procedure dalam pascal memiliki ciri-ciri:
- Dipanggil dengan nama procedurnya
- Tidak memiliki tipe
- Nilai kembalian ditampung pada variabel
Function
adalah bagian program yang terdiri dari gabungan beberapa statemen untuk melakukan tugas tertentu dan memiliki nilai kembalian (return value) yang dapat diolah kembali oleh bagian program yang lain.
Function dalam pascal memiliki ciri-ciri:
- Memiliki tipe data
- Nilai kembalian diberikan dalam nama function
- Cara memanggilnya diletakkan disebelah kanan Assigment
Langsung saja ini Contoh Programnya:
uses crt;
var
i,pangkat : integer;
hasil, dasar : real;
procedure beep;
begin
sound(1200);delay(40);
sound(2400);delay(40);
sound(3600);delay(40);
sound(4800);delay(40);
sound(3600);delay(40);
sound(2400);delay(40);
sound(1200);delay(40);
sound(4800);delay(40);
end;
function power(base:real;exp:integer):real;
var
hasil : real;
ind : integer;
begin
hasil:=1;
for ind:=1 to abs(exp) do
hasil:=hasil*base;
if exp<0 then
hasil:=1/hasil;
power:=hasil;
end;
BEGIN
clrscr;
write('Masukkan Bilangan dasar :');readln(dasar);
write('Masukkan Pangkatnya :');readln(pangkat);
hasil:=power(dasar,pangkat);
beep;
writeln;
write(dasar:5:0,' dipangkatkan ',pangkat,' hasilnya adalah :',hasil:5:0);
readln;
END.
Tampilan dari program diatas kurang lebih seperti ini:
Hasil .exe dari program diatas dapat anda unduh disini
Posting Komentar