Program cek bilangan genap dan ganjil [Pascal] Rahman Surya Praja Selasa, 26 April 2011 2 Comments

Awal mula mempelajari bahasa pemrograman di dunia informatika menggunakan bahasa pascal dengan tugas membuat Program cek bilangan ganjil dan genap..

PROGRAM cek_bilangan_ganjil_genap;
 uses crt;
 var 
bil : integer;
ulang : boolean; 
balik : char;

begin
 clrscr;
 ulang := true;
 while ulang Do
 begin
 clrscr; 
 textcolor(green);
 gotoxy (1,2);
 writeln('Program Cek Bilangan Genap dan Ganjil');
 writeln('====================================');
 write('Masukkan bilangan :');
 readln(bil);
 
 
 if bil mod 2 = 0
 then
 begin
 writeln('Bilangan ',(bil),' adalah genap');
 end;
 if bil mod 2 <> 0
 then
 begin
 writeln('Bilangan ',(bil),' adalah ganjil');
 end;
  
 write('Mau coba lagi (Y/N) : ');
 readln(balik);
 if (balik ='n') or (balik='N') then ulang := False;
 end;
end.

Tweet

by Jillur Rahman

Jillur Rahman is a Web designers. He enjoys to make blogger templates. He always try to make modern and 3D looking Templates. You can by his templates from Themeforest.

Follow him @ Twitter | Facebook | Google Plus

by Rahman Surya Praja

Freelance Forever

Follow him @ Twitter | Facebook | Google Plus

Tags: Pascal / source code