Program cek bilangan genap dan ganjil [Pascal]

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.

Read more

Selasa, 26 April 2011

Program Cek umur [Pascal]

Program untuk cek umur menggunakan bahasa pascal
Program ini di buat ketika ada tugas RPL (Rekayasa Perangkat Lunak),

Program age_calc;
uses crt;
var day1, day2, month1, month2, year1, year2, numDay : longint;
 year, month, day : integer;
 ulang : boolean; balik : char;
Begin
 clrscr;
 ulang := true;
 while ulang Do
 Begin
 clrscr;
 gotoxy (1,2);
 writeln('Program Check your age');
 writeln('created by vir0e5 a.k.a banditc0de');
 writeln('http://vir0e5.blogspot.com');
 writeln('I N D O N E S I A');
 writeln('====================================');

 writeln('input date of birth :? Day/ Month /Year');
 write('* Day :');readln(day1);
 write('* Month :');readln(month1);
 write('* Year :');readln(year1);
 writeln;

 writeln('Input todays date : Day/ Month /Year');
 write('* Day :');readln(day2);
 write('* Month :');readln(month2);
 write('* Year :');readln(year2);

 if month1 = 12 then begin;
 end
 else begin
 writeln('salah');
 end;

 numDay := (year2-year1)*360+(month2-month1)*30+(day2-day1);
 year := numDay div 360;
 month:= numDay mod 360 div 30;
 day := numDay mod 360 mod 30;
 write('your age is : ',Year,' year ',month,' Month ',day,' day');
 writeln; writeln;
 write('Do You Want To Try Again (Y/N)? : ');
 readln(balik);
 if (balik ='n') or (balik='N') then ulang := False;
 end;

End.{Created by vir0e5 a.k.a banditc0de}
Program age_calc;
uses crt;
var day1, day2, month1, month2, year1, year2, numDay : longint;
 year, month, day : integer;
 ulang : boolean; balik : char;
 Begin
 clrscr;
 ulang := true;
 while ulang Do
 Begin
 clrscr;
 gotoxy (1,2);
 writeln('Program Check your age');
 writeln('created by vir0e5 a.k.a banditc0de');
 writeln('http://vir0e5.blogspot.com');
 writeln('I N D O N E S I A');
 writeln('====================================');

 writeln('input date of birth :? Day/ Month /Year');
 write('* Day :');readln(day1);
 write('* Month :');readln(month1);
 write('* Year :');readln(year1);
 writeln;

 writeln('Input todays date : Day/ Month /Year');
 write('* Day :');readln(day2);
 write('* Month :');readln(month2);
 write('* Year :');readln(year2);

 if month1 = 12 then begin;
 end
 else begin
 writeln('salah');
 end;

 numDay := (year2-year1)*360+(month2-month1)*30+(day2-day1);
 year := numDay div 360;
 month:= numDay mod 360 div 30;
 day := numDay mod 360 mod 30;
 write('your age is : ',Year,' year ',month,' Month ',day,' day');
 writeln; writeln;
 write('Do You Want To Try Again (Y/N)? : ');
 readln(balik);
 if (balik ='n') or (balik='N') then ulang := False;
 end;
End.

Read more