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.
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

2 komentar :

  1. wah,. terimakasih info nya,. :) saya baru ajah kuliah dan mendapatkan pelajaran pemograman dasar memakai turbo pascal. mohon bimbingannya :) kalau bole saya nanti mau tanya2, apakah bisa dibantu,.?

    BalasHapus
  2. Sebenernya ini tugas sya juga dulu banget waktu semester 3 kalo gx salah... jadi saya sharing, klo sekarang mah dah kupa2 inget gan ...


    thx yach dah brkunjung

    BalasHapus

Terima Kasih Sudah berkunjung!! Di Mohon Untuk Meninggalkan Komen, untuk mempererat silaturahmi.... ^_^