Wednesday, December 4, 2013

PROGRAM RAMALAN DARI BULAN LAHIR PASCAL

program ramalan;
uses wincrt;

procedure Isi(pilihan : byte);
begin
case pilihan of
1 :begin
writeln('Bagi kamu semua yang lahir di bulan Januari, biasanya mempunyai karakter seperti berikut :');
writeln('* Mudah Mencintai');
writeln('* Mudah melupakan saat di hianati');
writeln('* Pandai menggoda ');
writeln('* Romantis tetapi kaku');
        writeln('* Mudah cemburu');
        writeln('* Mudah bergaul dan pemalu');
writeln;

    end;
2 :begin
writeln('Bagi anda yang lahir di bulan Februari, biasanya mempunyai karakter :');
        writeln;
writeln('- Sukar jatuh cinta  ');
writeln('- Menghargai pasangan  ');
writeln('- Jujur dan transparan  ');
writeln('- Nekad');
writeln('- Sangat romantis  ');
writeln('- Modis ');
writeln;
    end;
3 :begin
writeln('Bagi anda yang lahir di bulan Maret, biasanya mempunyai karakter :');
        writeln;
writeln('- Mudah menarik simpati lawan jenis  ');
writeln('- Tidak mandiri ');
writeln('- Pemalu');
writeln('- Mudah cemburu  ');
writeln('- Manja');
writeln('- Mudah mencintai  ');
writeln('- Penuntut ');
writeln;
   end;
4 :begin
writeln('Bagi anda yang lahir di bulan April, biasanya mempunyai karakter :');
        writeln;
writeln('- Sulit jatuh cinta');
writeln('- Tidak berani terus terang ');
writeln('- Pemalu');
writeln('- Butuh perhatian ');
writeln('- Pencemburu ');
writeln('- Setia ');
writeln('- Mudah emosi ');
        writeln('- Nggak romantis ');
        writeln('- Sukar melupakan pasangan walaupun dikhianati  ');
   end;
5 :begin
writeln('Bagi anda yang lahir di bulan Mei, biasanya mempunyai karakter :');
        writeln;
writeln('- Mudah jatuh cinta ');
writeln('- Baik dan jujur ');
writeln('- Romantis ');
writeln('- Suka mengatur  ');
writeln('- Suka berkhayal ');
   end;
6 :begin
writeln(' Bagi anda yang lahir di bulan Juni, biasanya mempunyai karakter :');
        writeln;
writeln('- Tidak bisa menyenangkan pasangan  ');
writeln('- Mudah mencintai tetapi terlalu memilih');
writeln('- Cerewet');
writeln('- Mudah emosi ');
writeln('- Mudah ngambek ');
writeln('- Pelindung Sejati');
writeln;
   end;
7 :begin
writeln('Bagi anda yang lahir di bulan Juli, biasanya mempunyai karakter :');
        writeln;
writeln('- Pandai menjaga diri ');
writeln('- Suka didampingi  ');
writeln('- Sukar dimengerti  ');
writeln('- Suka dan senang berterus terang ');
writeln('- Mudah terluka dan lama pulih ');
writeln('- Mudah ngambek');
writeln('- Setia ');
        writeln('- Pendengar yang baik ');
        writeln('- Mudah cemburu ');
        writeln('- Suka menilai dan menjaga hubungan ');

   end;
8 :begin
writeln('Bagi anda yang lahir di bulan Agustus, biasanya mempunyai karakter :');
        writeln;
writeln('- Suka memimpin ');
writeln('- Romantis  ');
writeln('- Penuh kasih sayang dan penyayang');
writeln('- Sangat sensitif ');
writeln('- Mudah curhat');
        writeln;

   end;
9 :begin
writeln('Bagi anda yang lahir di bulan September, biasanya mempunyai karakter :');
        writeln;
writeln('- Sopan ');
writeln('- Suka mengkritik');
writeln('- Sangat sensitif dan emosi ');
writeln('- Pandai memahami');
writeln('- Kurang menunjukkan perasaannya terhadap pasangan ');
writeln('- Sukar melupakan jika hatinya terluka');
writeln('- Pandai menyimpan perasaan');
        writeln;
   end;
10 :begin
writeln('Bagi anda yang lahir di bulan Oktober, biasanya mempunyai karakter :');
        writeln;
writeln('- Pandai berkomunikasi ');
writeln('- Suka disayang dan menyayangi ');
writeln('- Sopan ');
writeln('- Jujur dan jarang berpura-pura  ');
writeln('- Mudah emosi  ');
        writeln('- Pencemburu ');
        writeln('- Romantis ');
        writeln('- Memahami pasangan ');
        writeln;
    end;
11 :begin
writeln('Bagi anda yang lahir di bulan November, biasanya mempunyai karakter :');
        writeln;
writeln('- Cermah dan teliti');
writeln('- Suka berahasia dengan siapapun ');
writeln('- Kuat ');
writeln('- Pendendam ');
writeln('- Mudah emosi ');
writeln('- Moody ');
writeln;
    end;
12 :begin
writeln('Bagi anda yang lahir di bulan Desember, biasanya mempunyai karakter :');
        writeln;
writeln('- Mudah mencintai ');
writeln('- Selalu tergesa-gesa ');
writeln('- Mandiri ');
writeln('- Mencintai kebebasan ');
writeln('- Pandai mempengaruhi ');
writeln;
   end;
end;
end;

var pilih : byte;
ul : char;

begin
clrscr;
repeat
begin
  writeln('                                     SELAMAT DATANG');
  writeln('=============================================================================');
  writeln('             RAMALAN SIFAT DAN KARAKTER MANUSIA MENURUT BULAN LAHIR');
  writeln;
  writeln('BULAN LAHIR ANDA :');
  writeln('------------------------------------------');
  writeln('1.  : JANUARI');
  writeln('2.  : FEBRUARI');
  writeln('3.  : MARET');
  writeln('4.  : APRIL');
  writeln('5.  : MEI');
  writeln('6.  : JUNI');
  writeln('7.  : JULI');
  writeln('8.  : AGUSTUS');
  writeln('9.  : SEPTEMBER');
  writeln('10. : OKTOBER');
  writeln('11. : NOVEMBER');
  writeln('12. : DESEMBER');
  writeln('------------------------------------------');
  write('Silahkan masukkan nomor bulan anda (1-12) : ');
  readln(pilih);
  writeln;
  isi(pilih);
  writeln;
  write('Apakah anda ingin mengulang ? (y/n) : ');
  readln(ul);
end;
until ul<>'y';
writeln ('TERIMA KASIH SUDAH MENCOBA SEMOGA ANDA TERHIBUR !!'); readkey;
donewincrt;
end.

No comments:

Post a Comment