Rabu, 20 April 2011

Program Algoritma Mengecek Bilangan Ganjil dan Genap

  Agus Nur Ikhsan       Rabu, 20 April 2011
Ini adalah mengecek suatu bilangan merupakan bilangan ganjil atau genap.Suatu bilangan merupakan bilangan genab jika bilangan tersebut habil dibagi 2, sedangkan bilangan ganjil merupakan bilangan yang bersisa bila dibagi angka 2.

Algoritma cek bilangan genap/ganjil :

1. readln (bil);
2. if bil mod 2 = 0 then write('Bil tsb genap');
3. if bil mod 2 <> 0 then write('Bil tsb ganjil');
4. end

Source code program cek bilangan genap/ganjil.



PROGRAM cek_bilangan_ganjil_genap;

     uses wincrt;

     var bil : integer;

begin

     clrscr;

     write('Masukkan suatu bil :');

     read(bil);

     if bil mod 2 = 0

        then

            begin

                 write('Bil tsb genap');            

             end;

     if bil mod 2 <> 0

        then

            begin

                 write('Bil tsb ganjil');            

            end;

        readln;
                      
end.




Jika progrm tersebut kita run maka akan menghasilkan output seperti dibawah ini :



logoblog

Thanks for reading Program Algoritma Mengecek Bilangan Ganjil dan Genap

Previous
« Prev Post

Tidak ada komentar:

Posting Komentar