Program menebak bilangan ganjil atau genap

Berikut merupakan Program untuk menebak bilangan ganjil atau genap menggunakan bahasa Pascal dengan menggunakan statement IF.

• SOURCE CODE

Program menebak_bilangan_ganjil_atau_genap;
uses crt;
var
   n : integer;
begin
clrscr;
     write('masukkan bilangan : ');
     readln(n);
     writeln;
     if n mod 2=0 then
        writeln('Ini bilangan genap')
           else
        writeln('Ini bilangan ganjil');
readkey;
end.

• PENJELASAN SOURCE CODE

Program menebak_bilangan_ganjil_atau_genap;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   n : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
      write('masukkan bilangan : ');     {Cetak masukkan bilangan :}
      readln(n);     {Baca variabel n}
      writeln;     {Menyisipkan baris}
      if n mod 2=0 then     {Jika n sisa hasil bagi 2 = 0 kemudian}
         writeln('Ini bilangan genap')     {Cetak Ini bilangan genap}
             else     {Kalau tidak}
         writeln('Ini bilangan ganjil');     {Cetak Ini bilangan ganjil}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah menyediakan file Source code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program           : Menebak bilangan ganjil atau genap
• Source Code .pdf      : .:_Download_:.
• Flowchart .png         : .:_Download_:.
• Program .pas            : .:_Download_:.
• Password                  : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file di atas klik Disini, untuk mempelajarinya.