Membuat Bilangan Genap Ganjil Pada Pascal

 

Bilangan dalam matematika biasanya identik dengan angka-angka. Bilangan juga terdiri dari berbagai macam namun pada kali ini gratisan69 akan membahas bilangan ganjil dan bilangan genap pada pascal. Bilangan genap biasanya bilangan yang habis dibagi 2 sedangkan bilangan genjil adalah bilangan yang tidak habis dibagi 2. Namun pada latihan kali ini gratisan69 akan membahas tentang program pascal bilangan genap atau ganjil dimana angka yang anda masukan apakah termasuk bilangan genap atau ganjil yang habis atau tidak habis dibagi 5.

Berikut ini codingnya :

Program Kondisi_Genap_Ganjil;
Uses Crt;
var
       a : integer;
begin
clrscr;
       Write('Masukkan Angka :');
       readln(a);
       if ((a mod 2 = 0) and (a mod 5 = 0))
          then writeln(a,' merupakan bil genap yang habis dibagi lima');
       if ((a mod 2 <> 0) and (a mod 5 = 0))
          then writeln(a,' merupakan bil ganjil yang habis dibagi lima');
       if ((a mod 2 = 0) and (a mod 5 <> 0))
          then writeln(a,' merupakan bil genap yang tidak habis dibagi lima');
       if ((a mod 2 <> 0) and (a mod 5 <> 0))
          then writeln(a,' merupakan bil ganjil yang tidak habis dibagi lima');
       readln;
end.

Atau anda bisa download programnya DISINI

Anda sedang membaca artikel tentang Membuat Bilangan Genap Ganjil Pada Pascal dan Anda bisa menemukan artikel Membuat Bilangan Genap Ganjil Pada Pascal ini dengan url http://gratisan69.blogspot.com/2012/02/membuat-bilangan-genap-ganjil-pada.html. Anda boleh menyebarluaskan atau mengcopy artikel Membuat Bilangan Genap Ganjil Pada Pascal ini jika memang bermanfaat bagi Anda atau teman-teman Anda, namun jangan lupa untuk mencantumkan link sumbernya.

Artikel Terkait