program ramalan zodiak

program RAMALAN_ZODIAK;

uses CRT;

Var x1,y1,x2,y2                  : byte;
    Nama, JK, Pend, Jawab, Jodoh : string;
    Tahun                        : integer;
    Tanggal, Bulan, Warna, umur  : longint;

Const TS=2014;

label Home;


Procedure Frame;
    Begin
      Clrscr;

       //Window 1
      textbackground(5);
      window(5,3,70,40);
      clrscr;

      //Window 2
      textbackground(1);
      window(4-2,4-2,70-2,40-2);
      clrscr;

      //Wondow 3
      textbackground(7);
      window(4,3,70-4,40-3);
      clrscr;
    End;

BEGIN
   Frame;
   Home:
   clrscr;

   textcolor(0);
   Writeln;
   writeln('==============================================================');
   textcolor(5);
   writeln('       SELAMAT DATANG DI RAMALAN ZODIAK Mr.CikidAwwW..:D      ');
   textcolor(0);
   writeln('==============================================================');
   writeln;
   textcolor(4);
   writeln('------<<<==-- Silahkan Isikan Identidtas Anda !! --==>>>------');
   writeln;
   textcolor(2);
   writeln('==============================================================');
   writeln('|                                                            |');
   writeln('|    Nama                       :                            |');
   writeln('|    Tanggal Bulan Tahun Lahir  :                            |');
   writeln('|    Jenis Kelamin              :                            |');
   writeln('|    Pendidikan Terakhir        :                            |');
   writeln('|    Warna Favorit [1-11]       :                            |');
   writeln('|                                                            |');
   writeln('==============================================================');
   writeln;
   textcolor(1);
   writeln(' *Beri jarak antara Tanggal Bulan & Tahun lahir menggunkan');
   writeln('  SPASI bukan simbol garis mendatar dan lain-lain');
   writeln('  serta penulisan Bulan Lahir menggunakan ANGKA bukan huruf');
   writeln;
   writeln(' Pilihan Warna Faforit (isikan dengan angka) ');
   writeln('  [1]  Merah');
   writeln('  [2]  Kuning');
   writeln('  [3]  Hitam');
   writeln('  [4]  Putih');
   writeln('  [5]  Hijau');
   writeln('  [6]  Biru');
   writeln('  [7]  Cyan');
   writeln('  [8]  Pink');
   writeln('  [9]  Ungu');
   writeln('  [10] Orange');
   writeln('  [11] Coklat');
   writeln('==============================================================');


  gotoxy(36,10); readln(Nama);
  gotoxy(36,11); readln(Tanggal,Bulan,Tahun);
  gotoxy(36,12); readln(JK);
  gotoxy(36,13); readln(Pend);
  gotoxy(36,14); readln(Warna);
  clrscr;

  textcolor(0);
  writeln('==============================================================');
  writeln('                 ++>>>  RAMALAN ZODIAK  <<<++                 ');
  writeln('==============================================================');
  writeln;

  writeln('==============================================================');
   writeln('                                                             ');
   writeln('     Nama                       : ',Nama);
   writeln('     Tanggal Bulan Tahun Lahir  : ',Tanggal,Bulan,Tahun);
   writeln('     Jenis Kelamin              : ',JK);
   writeln('     Pendidikan Terakhir        : ',Pend);
   writeln('     Warna Favorit              : ',Warna);
   writeln('                                                             ');
   writeln('==============================================================');


  IF bulan=01 then
     begin
       if tanggal<=20 then
       writeln('Zodiak Anda     : Capricorn')
       else
       writeln('Zodiak Anda     : Aquarius');
       writeln;
       writeln('Pasangan Serasi : Leo');
       writeln;
       writeln('Pekerjaan cocok : Penemu, jurnalis TV, refleksologis, dan');
       writeln('                  ahli komputer.');
       writeln;
       writeln('Ramalan zodiak  : Anda akan mempertanyakan arah hidup saat');
       writeln('                  ini');
       writeln('                  pikiran, tentukan sikap lalu bertindaklah.');
       writeln('                  Perubahan membawa hal baik, jangan selalu');
       writeln('                  mengikuti kebiasaan.');
     end;

  IF bulan=02 then
     begin
       if tanggal<=19 then
       writeln('Zodiak Anda     : Aquarius')
       else
       writeln('Zodiak Anda     : Pisces');
       writeln;
       writeln('Pasangan Serasi : Sagitarius');
       writeln;
       writeln('Pekerjaan cocok : Kurator seni, desainar lanskap, penerjamah');
       writeln('                  atau penulis.');
       writeln;
       writeln('Ramalan zodiak  : Pikiran sedang bekerja demikian keras.');
       writeln('                  Pergunakan dengan baik dan tulis semua');
       writeln('                  ide yang dihasilkan. Salah satunya akan');
       writeln('                  mampu memberikan penghasilan tambahan.');
       writeln('                  Cinta mengetuk pintu anda.');
     end;

  IF bulan=03 then
     begin
       if tanggal<=20 then
       writeln('Zodiak Anda     : Pisces')
       else
       writeln('Zodiak Anda     : Aries');
       writeln;
       writeln('Pasangan Serasi : virgo');
       writeln;
       writeln('Pekerjaan cocok : Bidang penerbitan, dunia hiburan, atau');
       writeln('                  menjadi pimpinan.');
       writeln;
       writeln('Ramalan zodiak  : Keterlibatan yang bersifat rahasia tampaknya');
       writeln('                  dibutuhkan. Buat batasan untuk menjaga kepentingan');
       writeln('                  dalam pekerjaan. Seorang famili yang lebih tua');
       writeln('                  akan memebutuhkan bantuan anda.');
     end;

  IF bulan=04 then
     begin
       if tanggal<=20 then
       writeln('Zodiak Anda     : Aries')
       else
       writeln('Zodiak Anda     : Taurus');
       writeln;
       writeln('Pasangan Serasi : Scorpio');
       writeln;
       writeln('Pekerjaan cocok : Bankir, seni, akutansi, musik, dan');
       writeln('                  berkebun.');
       writeln;
       writeln('Ramalan zodiak  : Kebaikan hati membantu sesama mengagumkan ');
       writeln('                  orang yang anda suka. Rencanakan waktu untuk');
       writeln('                  melakukan sesuatu yang menarik dan Anda akan');
       writeln('                  dapati sebuah hubungan yang kuat terbentuk.');
     end;

  IF bulan=05 then
     begin
       if tanggal<=21 then
       writeln('Zodiak Anda     : Taurus')
       else
       writeln('Zodiak Anda     : Gemini');
       writeln;
       writeln('Pasangan Serasi : Cancer');
       writeln;
       writeln('Pekerjaan cocok : Bidang teknologi komputer atau sutradara.');
       writeln;
       writeln('Ramalan zodiak  : Berhati-hati dalam apa yang anda katakan');
       writeln('                  kepada teman atau keluarga. Permasalahan');
       writeln('                  dalam pekerjaan akan memenuhi pikiran.');
       writeln('                  Menyia-nyiakan waktu hanya memperkeruh');
       writeln('                  masalah.');
     end;

  if bulan=06 then
     begin
       if tanggal<=21 then
       writeln('Zodiak Anda     : Gemini')
       else
       writeln('Zodiak Anda     : Cancer');
       writeln;
       writeln('Pasangan Serasi : Capricorn');
       writeln;
       writeln('Pekerjaan cocok : Musisi, jurnalis, dekorator interior,');
       writeln('                  atau chef.');
       writeln;
       writeln('Ramalan zodiak  : aktifitas kreatif memberikan hasil bagus.');
       writeln('                  Dapatkan wawasan baru dari rekan tua maupun');
       writeln('                  muda. Pergunakan cara baru dan anda tidak');
       writeln('                  akan dikecewakan.');
     end;

  IF bulan=07 then
     begin
       if tanggal<=22 then
       writeln('Zodiak Anda     : Cancer')
       else
       writeln('Zodiak Anda     : Leo');
       writeln;
       writeln('Pasangan Serasi : Capricorn');
       writeln;
       writeln('Pekerjaan cocok : Sutradara film, arsitek, fotografer, atau');
       writeln('                  administrator olahraga.');
       writeln;
       writeln('Ramalan zodiak  : Buat perubahan di lingkungan rumah. Renovasi');
       writeln('                  atau berpindah rumah akan memberikan semangat');
       writeln('                  baru. Uang dapat dihasilkan melalui investasi');
       writeln('                  dalam tempat tinggal.');
     end;

  IF bulan=08 then
     begin
       if tanggal<=22 then
       writeln('Zodiak Anda     : Leo')
       else
       writeln('Zodiak Anda     : Virgo');
       writeln;
       writeln('Pasangan Serasi : Pisces');
       writeln;
       writeln('Pekerjaan cocok : Antropologis, polisi, agen rahasia,');
       writeln('                  atau editor majalah.');
       writeln;
       writeln('Ramalan zodiak  : Jangan menahan diri dari pesan manis');
       writeln('                  yang anda terima dari seseorang. Tenangkan');
       writeln('                  pikiran, tentukan sikap lalu bertindaklah.');
       writeln('                  Perubahan membawa hal baik, jangan selalu');
       writeln('                  mengikuti kebiasaan.');
     end;

  IF bulan=09 then
     begin
       if tanggal<=22 then
       writeln('Zodiak Anda     : Virgo')
       else
       writeln('Zodiak Anda     : Libra');
       writeln;
       writeln('Pasangan Serasi : Aries');
       writeln;
       writeln('Pekerjaan cocok : Dokter hewan, mengajar, atau pengobatan.');
       writeln;
       writeln('Ramalan zodiak  : Pertimbangkan mencoba hal-hal baru.');
       writeln('                  Usaha kecil baru akan memberikan hasil.');
       writeln('                  Lihat serta renungkan arah hidup anda');
       writeln('                  dan buat perubahan jika diperlukan.');
     end;

  IF bulan=10 then
     begin
       if tanggal<=23 then
       writeln('Zodiak Anda     : Libra')
       else
       writeln('Zodiak Anda     : Scorpio');
       writeln;
       writeln('Pasangan Serasi : Taurus');
       writeln;
       writeln('Pekerjaan cocok : Aktor, manajer hotel, atau pemilik');
       writeln('                  restoran');
       writeln;
       writeln('Ramalan zodiak  : Jangan sembunyikan bakat anda, saat');
       writeln('                  yang tepat mencoba tempat baru. Asmara');
       writeln('                  berada dalam benak anda. Kegiatan yang');
       writeln('                  berbeda akan memberikan kesenangan tak');
       writeln('                  terduga.');
       writeln;
     end;

  IF bulan=11 then
     begin
       if tanggal<=22 then
       writeln('Zodiak Anda     : Scorpio')
       else
       writeln('Zodiak Anda     : Sagitarius');
       writeln;
       writeln('Pasangan Serasi : Gemini');
       writeln;
       writeln('Pekerjaan cocok : Jurnalis olahraga, pengacara, manager');
       writeln('                  personalia, atau pekerja sosial.');
       writeln;
       writeln('Ramalan zodiak  : Keributan kecil di rumah akan membawa');
       writeln('                  pada penyelesaian masalah yg tertunda.');
       writeln('                  Terima segala yang ada dan lanjutkan');
       writeln('                  hidup anda. Keuntungan finansial mampu');
       writeln('                  dihasilkan.');
     end;

  IF bulan=12 then
     begin
       if tanggal<=21 then
       writeln('Zodiak Anda     : Sagitarius')
       else
       writeln('Zodiak Anda     : Capricorn');
       writeln;
       writeln('Pasangan Serasi : Aquarius');
       writeln;
       writeln('Pekerjaan cocok : Mengajar, bercocok tanam, arsitektur,');
       writeln('                  atau perbankan.');
       writeln;
       writeln('Ramalan zodiak  : Anda akan memiliki minat yang lebih');
       writeln('                  kuat terhadap sesuatu di masa lalu.');
       writeln('                  Bersiap untuk bertemu seseorang yang');
       writeln('                  menarik dalam acara yang anda ikuti.');
       writeln('                  Cinta akan mekar di taman anda.');
     end;



      writeln;

      IF Warna=1 then
       begin
        writeln('Memiliki sifat  : Berani, semangat dan menyukai tantangan.');
        writeln;
       end;


      IF Warna=2 then
       begin
        writeln('Memiliki sifat  : Ceria, semangat dan senang bercanda.');
        writeln;
       end;

      IF Warna=3 then
       begin
        write('Memiliki sifat  : Misterius, bersahaja dan teguh pendirian.');
        writeln;
       end;

      IF Warna=4 then
       begin
        write('Memiliki sifat  : Berhati tulus, polos dan anggun.');
        writeln;
       end;

      IF Warna=5 then
       begin
        write('Memiliki sifat  : Pemaaf, tenang, dewasa dan sopan santun.');
        writeln;
       end;

      IF Warna=6 then
       begin
        write('Memiliki sifat  : Ramah, tidak emosian, serius dan teguh aturan.');
        writeln;
       end;

      IF Warna=7 then
       begin
        write('Memiliki sifat  : Ramah, berjiwa bebas dan santai.');
        writeln;
       end;

      IF Warna=8 then
       begin
        write('Memiliki sifat  : Lembut, penyayang, manja dan suka menolong.');
        writeln;
       end;

      IF Warna=9 then
        begin
        write('Memiliki sifat  : Tidak ragu, punya selera tinggi dan romantis.');
        writeln;
       end;

      IF Warna=10 then
       begin
        write('Memiliki sifat  : Jiwa muda, energik dan rasa ingin tahu besar.');
        writeln;
       end;

      IF Warna=11 then
       begin
        writeln('Memiliki sifat  : Setia, murah hati dan menyukai kesederhanaan.');
        writeln;
       end;


  Begin
     Umur:=TS-Tahun;
     writeln;
     IF Umur<=12 then Jodoh:='Maaf Anda Masih Bocah, Sekolah Dulu Sana :D wkwkwk'
     else IF Umur<22 then Jodoh:='Cieee.. Jodohmu sudah ada di depan Mata, Jangan mundur Bro ;)'
     else IF Umur<32 then Jodoh:='Ehhemm.. Tingkatkan Usahamu Bray, tetap optimis kesempatan tidak datang hanya sekali :)'
     else Jodoh:='Mungkin anda akan di berikan yang terbaik oleh Tuhan, atau Anda belum beruntung..:D wkwkwk';
     writeln('Jodoh           :  ',Jodoh);
     writeln;
  End;


      textcolor(4);
      Write('Kembali Meramal [Y/N]  : '); readln(Jawab);
      IF (Jawab='Y') or (Jawab='y') then goto Home else exit;


 readkey;
END.

 USES CRT,GRAPH;
VAR DRIVER,MODE:INTEGER;
BEGIN
CLRSCR;
      DRIVER:=DETECT;
      INITGRAPH(DRIVER,MODE,'');
      MOVETO(50,25);
      lineto(75,25);
      lineto(75,50);
      lineto(100,50);
      lineto(100,75);
      lineto(75,75);
      lineto(75,100);
      lineto(50,100);
      lineto(50,75);
      lineto(25,75);
      lineto(25,50);
      lineto(50,50);
      LINETO(50,25);
readln;
end.

program viv_mod;
uses crt;
VAR a,b,jumlah1,jumlah2 : INTEGER;
BEGIN

jumlah1:=30;
jumlah2:=3;
a:=jumlah1 DIV jumlah2;
b:=jumlah1 MOD jumlah2;
WRITELN('HASIL A = ',a);
WRITELN('HASIL B =',b);
readln;
END.