Contoh Penggunaan Fungsi pada PASCAL

1. Buka halaman kerja baru.
2. Untuk program ini, berikan kode program sebagai berikut :
   
   
3. Setelah memasukan kode, kita bisa melakukan pengecekan apakah program yang kita buat jalan atau tidak dengan menekan tombol F9 pada keyboard. Jika tidak terdapat kesalahan, maka langkah selanjutnya adalah menjalankan program dengan menekan tombol CTRL+F9 pada keyboard.
4. Tampilan program yang sudah berjalan.

Jika nilai nilai yang dimasukan untuk nilai 1 = 54 dan nilai 2 = 48

Berikut keterangan dan logika dari tiap kode pada program

Program Fungsi;

(judul program)

uses crt;

(unit yang digunakan dalam program)

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

(memulai proses function dengan nama ‘besar’, dimana nilai variabel a dan b yang ada dip roses tersebut bertipe integer / bilangan bulat)

begin

(awal dari blok statement function ‘besar’)

if a>b then

(memulai printah kondisi, dimana jika nilai dari variabel a lebih besar dari nilai variabel b, maka akan menjalankan perintah di bawah)

besar := a

(nilai procedure ‘besar’ akan sama dengan nilai variabel a)

else

(selain kondisi di atas, maka akan menjalankan perintah di bawah)

besar := b;

(nilai procedure ‘besar’ akan sama dengan nilai variabel b)

end;

(akhir dari blok statement function ‘besar’)

var

(pendeklarasian variabel)

a,b: integer;

(Pendeklarasian data variabel bertipe integer / bilangan bulat)

begin

(awal dari blok statement)

clrscr;

(membersihkan layar)

write(‘Nilai Bilangan 1 = ‘); readln(a);

(mencetak kalimat ‘Nilai Bilangan 1 = ’ lalu meletakan pointer ke sebelah kanan kalimat, setelah itu compiler akan membaca inputan yang kita masukan sebagai nilai variabel ‘a’)

writeln;

(menempatkan pointer di bawah baris berikutnya / berfungsi sebagai enter 1 x)

write(‘Nilai Bilangan 2 = ‘); readln(b);

(mencetak kalimat ‘Nilai Bilangan 2 = ’ lalu meletakan pointer ke sebelah kanan kalimat, setelah itu compiler akan membaca inputan yang kita masukan sebagai nilai variabel ‘b’)

writeln;

(menempatkan pointer di bawah baris berikutnya / berfungsi sebagai enter 1 x)

write(‘Bilangan Terbesar = ‘, besar (a,b):5);

(mencetak kalimat ‘Nilai Terbesar = ‘ lalu memasukan nilai procedure ‘besar’, dimana nilainya didapat dari nilai variabel a dan b yang telah dimasukan sebelumnya dengan penempatan nilai variabel setelah 5 x spasi )

readln;

(menunggu penekanan enter)

end.

(akhir program)

=======================================

Credit By  : Adyt

&

My Sensei : Muhajirin Ridwan