Tuesday, December 1, 2015

Program Menentukan Bilangan Genap dan Ganjil dengan "IF"

--------------------------------------------------------------------------------------------------------------------------
program Menentukan_bilangan_genap_ganjil;
{I.S : user memasukan bilangan}
{F.S : menampilkan keterangan bilangan genap atau ganjil}
uses crt;
var
   bilangan   : integer;
   keterangan : string;
begin
   writeln('Menentukan Bilangan Genap Atau Ganjil');
   writeln('-------------------------------------');
   write('Masukan Bilangan : ');readln(bilangan);
   writeln('');
   writeln('                Hasil                ');
   writeln('-------------------------------------');
   keterangan := 'Bilangan Genap';
   if(bilangan mod 2 = 1)
      then
          keterangan := 'Bilangan Ganjil';
   writeln(bilangan,' Adalah : ',keterangan);
readln;
end.
--------------------------------------------------------------------------------------------------------------------------
Download Scripnya :

catatan :
hargailah tulisan orang lain, jika anda mengcopy-paste harap cantumkan link sumber.


Load disqus comments

0 komentar