Saturday, January 7, 2012

Pemula Banget. Menentukan Bilangan Genap Ganjil dan Bilangan Prima di Pascal

Pemula Banget. Menentukan Bilangan Genap Ganjil di Pascal. buat agan agan semua yang lupa atau baru belajar pascal, pasti menemukan yang namanya tugas atau latihan menentukan bilangan genap atau ganjil. betul kan???

Pemula Banget. Menentukan Bilangan Genap Ganjil dan Bilangan Prima di Pascal. Nah, langsung saja. Sebelumnya agan harus memahami apa itu pemilihan dalam bahasa pemrograman. kalau belum tahu, baca-baca dulu deh, tapi saya yakin agan dan sista sudah pada tahu..  hehe. Sekilas, pemilihan dalam bahasa pemograman adalah suatu keadaan dimana program akan memilih sesuatu dengan syarat syarat yang memenuhi untuk dijalankan, artinya, jika syarat tidak terpenuhi, program tidak akan melakukan eksekusi atau melakukan eksekusi selain dari syarat-syarat yang diajukan.

Pemula Banget. Menentukan Bilangan Genap Ganjil dan Bilangan Prima di Pascal.  Untuk Penentuan bilangan ganjil dan genap, berlaku pemilihan jika suatu bilangan atau nilai habis dibagi dengan 2, maka termasuk bilangan genap, dan sebaliknya termasuk bilangan ganjil. sementara untuk bilangan prima, yang pertama adalah memilih mana yang bilangan ganjil, karena bilangan prima sudah pasti bilangan ganjil. kemudian, bilangan prima adalah bilangan yang hanya bisa dibagi oleh bilangan itu sendiri. Tetapi ada pengecualian untuk angka 3 dan 5 yang merupakan bilangan prima. bilangan ganjil yang bukan prima adalah bilangan ganjil yang bisa dibagi oleh angka 3, 5 dan 7. Untuk Listing lengkapnya sebagai berikut :


Pemula Banget. Menentukan Bilangan Genap Ganjil dan Bilangan Prima di Pascal.


program bilangan;
uses wincrt;
   var nilai:integer;
begin
writeln('------------MENENTUKAN BILANGAN GANJIL ATAU GENAP-----------');
writeln('                                               ');
write('masukan nilai                = ');readln(nilai);
writeln;
writeln('   Hasilnya ...');
     writeln;
if nilai mod 2 = 0 then
    begin
     writeln(nilai,' Termasuk bilangan Genap dan Bukan Bilangan Prima');
    end
else
   begin
    if(nilai=3)or (nilai=5) then
       begin
       write(nilai,' merupakan bilangan ganjil dan  bilangan prima');
       end
    else if(nilai mod 3=0)or(nilai mod 5=0)or (nilai mod 7=0)then
       begin
        write(nilai,' merupakan bilangan ganjil dan bukan bilangan prima');
       end
    else
        write(nilai,' merupakan bilangan ganjil dan bilangan prima');
   end
end.


Semoga bermanfaat buat agan dan sista. untuk pertanyaan, kritik dan saran, silahkan ...


dikomen


3 comments:

Crazy Program said...

terima kasih sharingnya gan :)

misbach said...

masbroo kalau di inputannya itu di kasih bilanganya gmna caranya mas ? makasih

Acep Miftahul Anwar said...

@misbach kasih contohnya ya

Post a Comment

Tinggalkan Komentar / Saran / Kritik anda yang membangun, bersifat sharing, atau hiburan. Tidak boleh menyudutkan salah satu pihak, membawa hal berbau syara' dan saling menghormati. Komentar dengan melakukan Pelanggaran atas ketentuan tersebut akan dihapus.

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Hot Sonakshi Sinha, Car Price in India