Halo pemirsa! Kali ini DanKus akan membagikan satu program pascal. Program ini berfungsi untuk menentukan bilangan yang diinput pada program adalah bilangan genap atau ganjil. Jadi nanti user akan diminta untuk memasukan sebuah nilai, lalu program secara otomatis akan memberi tahu user apakah bilangan tersebut termasuk bilangan ganjil atau bilangan genap.
Berikut adalah script program pencari bilangan ganjil atau genap dengan pascal :

Program Bilangan_Genap_Ganjil;
uses wincrt;
var
   bilangan:integer;
begin
     write('Masukan Bilangan    : '); readln(bilangan);
     Writeln(' ');
     if bilangan mod 2=0 then write(bilangan,' adalah Bilangan Genap')
     else write(bilangan,' adalah Bukan Bilangan Genap');
end.

Script-nya pendek ya karena programnya juga sederhana.
Oke sekian dulu untuk kali ini, semoga berguna.

Yang males ngetik bisa download file di sini.

「Dani Kustiawan」