Program Menentukan Bilangan Genap atau Ganjil Pada Pascal

Kali ini saya ingin berbagi program untuk menentukan nilai genap ganjil suatu bilangan bulat yang di inputkan.
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).

Artikel Terkait

Cara Membuat Subtitle Indonesia Sendiri Tutorial dan Trik Blog

Judul: Program Menentukan Bilangan Genap atau Ganjil Pada Pascal; Ditulis oleh Unknown; Rating Blog: 5 dari 5