Contoh Program Function Pada Pascal

Seperti yang di utarakan pada artikel perintah function pada pascal , maka berikut ini merupakan contoh pemakaian perintah function pada bahasa pemrograman pascal.

Contoh program function pada pascal.

uses crt ;
var
   p, l : byte ;


   function keliling(p, l : byte): integer ;
   begin
       keliling := (2*p) + (2*l) ;
   end;

begin
     clrscr ;
     writeln ('Hitung Keliling Persegi Panjang') ;
     write   ('  Nilai Panjang : '); readln(p);
     write   ('  Nilai Lebar   : '); readln(l);
     writeln ('  Keliling      : ', keliling(p,l));
     readln;
end.
Syarat dari function ini, harus diletakkan di atas program utama, yaitu Begin dan End. Jika diletakkan di bawah End. maka tidak akan diproses, ataupun diletakkan di dalam Begin dan End. maka tidak akan diproses.

Syarat selanjutnya function yang akan di panggil harus berada di atas function pemanggil.
Mudah mudahan anda paham dengan contoh perintah function pada pascal , semoga kita semakin mau dan termotivasi belajar bahasa pemrograman.

Sumber Artikel : http://www.mesran.net/me/berita-572-contoh-program-function-pada-pascal.html