Lanjut ke konten Assalamu’alaikum Wr Wb Selamat datang Kembali di Blog Saya, Sebuah blog sederhana yang saya gunakan untuk berbagi ilmu yang telah saya pelajari selama ini. Semoga bisa membantu teman-teman dalam mencari refrensi terutama dalam bidang pemrograman atau IT. Pada kesempatan hari ini, saya akan memberikan contoh fungsi if pada pascal. Untuk fungsi if, bisa dilihat disini. Beberapa contoh mungkin sudah saya jelaskan pada post sebelumnya, untuk kali ini saya akan memerikan contoh yang lainnya yaitu program menentukan bilangan ganjil dan genap. Untuk membuat program menentukan bilangan ganjil dan genap, kita menamahkan fungsi yang lain yaitu fungsi mod. Mod Berfungsi mencari sisa bagi. penjelasan lengap 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 nol0, 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 code nya bisa dilihat dibawah ini, PROGRAM JENIS_BILANGAN;{ USES crt; Var bil integer; Begin writeln'MENENTUKAN JENIS BILANGAN'; writeln'**************************'; write'Masukkan angka ';readlnbil; if bil mod 2 = 0 then writeln'Bilangan genap' else writeln'Bilangan ganjil'; readKey; End. Untuk Hasilnya, Bisa dilihat dibwah ini Demikian tadi contoh fungsi if. yaitu program menentukan bilangan gankil dan genap menggunaka bahasa pemrograman pascal, Semoga bermanfaat. Jika ada pertanyaan, bisa ditanyakan lewat komentar, Chat BBM atau WA, ataupun bisa SMS ke nomor saya. Terimakasih atas kunjungannya, Apabila ada salah kata saya mohon ma’af. selamat belajar dan jangan mudah menyerah… Wassalamu’alaikum Wr Wb