Pada kesempatan hari ini, saya akan memberikan contoh fungsi if pada pascal. Untuk kali ini saya akan memerikan contoh program menentukan bilangan ganjil dan genap. Untuk membuat program menentukan bilangan ganjil dan genap, kita menambahkan fungsi yang lain yaitu fungsi mod. Mod Berfungsi mencari sisa bagi. 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 12, jika dibagi 2 hasilnya adalah 6. dan gak ada sisanya, maka angka 12 adalah bilangan genap. Contoh lain angka 11. jika dibagi 2, maka hasilnya 5 dan masih ada sisanya yaitu 1. maka angka 11 adalah bilangan ganjil. Untuk memulai pembuatan, ingat jangan lupa untuk mendifinisikan apa saja yang di perlukan pada sebuah pembuatan program, dan disini yang ditubuhkan hanya variabel yaitu bilangan (bil).
Setelah itu langsung saja ini sintaknya.
program bilangan_ganjil_genap
var
bil: integer;
begin
write('Masukkan Angka= ');
readln(bil);
if bil mod 2 = 0 then
writeln('Bilangan tersebut adalah Genap')
else
writeln('Bilangan tersebut adalah Ganjil');
readln;
end.
Seperti biasa langsung pilih RUN atau tekan Ctrl + F9, dan jadinya seperti ini (programnya sudah di isi).
Cukup sekian dulu untuk kali ini, bagi teman-teman yang masi bingung mari kita diskusikan dikolom komentar, dan khusus bagi teman-teman kampus saya bisa langsung menanyakannya lewat nomor WA saya.
Tidak ada komentar:
Posting Komentar