Program Menentukan Bilangan Ganjil dan Genap pada Bahasa Pemrograman Pascal

Assalamu’alaikum Wr Wb

Selamat datang di sibukngoding.com. Pada kesempatan kali ini, saya akan menjelaskan tentang program menentukan bilangan ganjil dan genap pada pascal. Tutorial ini saya ambil dari blog saya yang lama annur24.wordpress.com. Untuk tutorial bahasa pemrograman pascal lainnya bisa dilihat disini.

Untuk membuat program menentukan bilangan ganjil dan genap, kita menambahkan fungsi yang lain yaitu fungsi mod. Mod Berfungsi mencari sisa bagi. Penjelasan lengkap bisa dilihat disini. Kenapa kita menambahkan fungsi mod..? Karena ciri dari bilangan genap adalah bilangan yang habis di bagi 2. Jadi Bilangan yang jika dibagi 2 tidak ada sisanya atau nol(0), maka merupakan bilangan genap. Jika sebaliknya atau ada sisanya, maka itu merupakan bilangan ganjil. Contoh Angka 8. Jika dibagi 2 hasilnya adalah 4. dan gak ada sisanya, maka angka 8 adalah bilangan genap. Contoh lain angka 7. jika dibagi 2, maka hasilnya 3 dan masih ada sisanya yaitu 1. maka angka 7 adalah bilangan ganjil.

Untuk source codenya bisa sebagai berikut:

PROGRAM JENIS_BILANGAN;

USES crt;

Var bil: integer;

Begin

writeln('MENENTUKAN JENIS BILANGAN');

writeln('**************************');

write('Masukkan angka: ');readln(bil);

    if bil mod 2 = 0 then

    writeln('Bilangan genap')

    else

    writeln('Bilangan ganjil');

    readKey;

End.

Jika di run, Maka hasilnya sebagai berikut:

Jika kita masukkan bilangan Ganjil

Jika kita masukkan bilangan genap

Demikian tadi program menentukan bilangan ganjil dan genap pada bahasa pemrograman pascal. Silahkan dipelajari lagi dan apabila ada pertanyaan bisa ditanyakan lewat kolom komentar. Jangan lupa untuk kunjungi web sibukngoding.com untuk mendapatkan tutorial bahasa pemrograman lainnya.

Terimakasih atas kunjungannya, Selamat belajar dan jangan mudah menyerah

Wassalamu’alaikum Wr Wb