Berdasarkan pengalaman yang lalu, program ini merupakan salah satu program yang banyak di cari orang. Namun tak banyak pula yang berakhir dengan kekecewaan karena tidak mendapatkannya.
Program ini menggunakan struktur fungsi. Nah, tanpa berlama-lama lagi, silahkan di lihat programnya.
ALGORITMIK
Fungsi :
Function Genap (input n : integer ) boolean
{true jika n adalah bilangan genap, atau false jika sebaliknya}
DEKLARASI
{tidak ada}
ALGORITMA
Return ( n mod 2 = 0)
Program Pemanggil :
PROGRAM GenapGanjjil
{Program untuk menentukan apakah sebuah bilangan genap atau ganjil }
DEKLARASI
x : integer
function Genap (input n : integer ) boolean
{true jika n adalah bilangan genap, atau false jika sebaliknya}
ALGORITMA
Read (x)
If genap (x) then
Write (‘genap’)
Else
Write (‘ganjil’)
Endif
Berikut adalah program utamanya dengan memakai pemaparan. Tulisan yang berwarna merah adalah penjelasannya :
Program GenapGanjil;
{Program utama menentukan apakah sebuah bilangan genap atau ganjil}
(*DEKLARASI*)
uses crt;
Var
x : integer ;
function Genap (n : integer ) : Boolean ;
{true jika n adalah bilangan genap, atau false jika sebaliknya}
Begin
Genap :=(n mod 2 =0 );
End;
(*ALGORITMA*)
Begin
Write ('Ketikkan sembarang bilangan bulat : '); readln (x);
If Genap (x) then
Writeln ('Genap')
Else
Writeln ('Ganjil');
readln;
{Endif}
End.
Berikut adalah program utama menentukan nilai ganjil atau genap suatu bilangan bulat.
Program GenapGanjil;
uses crt;
Var
x : integer ;
function Genap (n : integer ) : Boolean ;
Begin
Genap :=(n mod 2 =0 );
End;
Begin
Write ('Ketikkan sembarang bilangan bulat : '); readln (x);
If Genap (x) then
Writeln ('Genap')
Else
Writeln ('Ganjil');
readln;
End.
Penjelasan :
Fungsi di dalam Pascal tidak dapat mengembalikan nilai yang bertipe terstruktur. Karena itu, fungsi yang mengembalikan tipe terstruktur harus di manipulasi dengan cara mengubah tipe hasilnya menjadi tipe dasar (integer atau Boolean).
