Fungsi dan Prosedur Pada Pascal

A. PROSEDUR DALAM PASCAL

Prosedur merupakan bagian yang terpisah dari program dan dapat diaktifkan dimanapun dalam program. Kata prosedur digunakan sebagai judul di bagian deklarasi prosedur, diikuti oleh identifier yang merupakan nama dari prosedurnya secara optional dapat diikuti lagi oleh kumpulan parameter.

Intinya membuat seperti writeln (menulis), read (membaca), ada identifier, kita dapat menambahkan parameter. Tanpa kita deklarasikan dulu variabelnya karena kita hanya menulis. Jadi,  program dapat tetap bisa berjalan tanpa adanya variabel

#1. Contoh program procedur pascal sederhana

Contoh program prosedur pascal ini sudah saya coba dan terbukti berhasil, 100% work (bekerja). Berikut adalah contoh syntax programnya :

program prosedur ;

uses wincrt;

procedure satu;

          begin

          writeln('Aku');

          end;

procedure dua;

          begin

          writeln('Kamu');

          end;

procedure tiga;

          begin

          writeln('Sayang');

          end;

begin

           satu;

           tiga;

           dua;

end.

#2. Contoh Program Prosedur Pascal yang Lebih Kompleks

program procedur_perhitungan;

uses wincrt;

procedure hitung(var a,b,c:integer);

begin     

     c := a+ b;

end;

var x, y, z : integer ;

begin

     x := 2;

     y := 3;

     Hitung (x, y, z);

     write (z);

     end.

B. FUNGSI/FUNCTION DALAM PASCAL

Merupakan bahian yang terpisah dan mirip dengan prosedur, namun ada perbedaannya. Kata fungsi mengawali bagian deklarasi fungsi diikuti oleh identifier yang merupakan nama dari fungsinya dan secara optional dapat diikuti oleh kumpulan parameter, tipe dan fungsinya dan diakhiri dengan titik koma.

Function terletak pada bagian prosedur dan tidak bisa berdiri sendiri sehingga membutuhkan bantuan dari bagian yang lain, dan di sinilah perbedaannya.

Contoh Program Function/Fungsi Sederhana

program fungsi;

uses wincrt;

function hitung (a, b : integer):integer;

         begin

        ; if a>b then hitung :=(a*b)+2

         else

         hitung :=(a+b)*2;

         end;

var a, b :integer;

begin

clrscr;

write ('Masukkan bilangan 1 :'); readln (a);       

write ('Masukkan bilangan 2 :'); readln (b);

write ('Bilangan terbesar :',hitung (a,b));

end.

Sumber: Siswa Master