RAMALAN

uses crt;

var

Nm,Al,Zodiak,Asmara,Keuangan,WarnaKesukaan,HariKeberuntungan:string;

Bln,Tgl,Thn,Th:integer;

jawab:char;

begin

jawab:='y';

while upcase(jawab)='Y' do

begin

textbackground(black);

clrscr;                                         {judul program}

textcolor(7);writeln ('*************************************************************************');

textcolor(25);writeln('->->->->->->->->->->->-> PROGRAM  RAMALAN SUTRISNO <-<-<-<-<-<');

textcolor(7);writeln ('*************************************************************************');

{input}

textcolor(14);write  ('Masukkan Tahun Sekarang:');readln(thn);

write('Nama         :');readln(nm);

write('Alamat       :');readln(al);

write('Tgl Lahir    :');readln(tgl);

write('Bulan Lahir  :');readln(bln);

write('Tahun Lahirmu:');readln(th);

writeln;

writeln;

{proses logika}

 if bln=12 then zodiak:='Libra';

 if bln=1 then zodiak:='Taurus';

 if bln=2 then zodiak:='Sagitarius';

 if bln=3 then zodiak:='Aries';

 if bln=4 then zodiak:='Capricorn';

 if bln=5 then zodiak:='Scorpio';

 if bln=6 then zodiak:='Virgo';

 if bln=7 then zodiak:='Leo';

 if bln=8 then zodiak:='Leo';

 if bln=9 then zodiak:='Cancer';

 if bln=10 then zodiak:='Cancer';

 if bln=11 then zodiak:='Aquarius';

{logika 2 }

 if bln=12 then asmara:='Kamu orangnya romantis, Kamu gampang memikat hati, dalam urusan asmara kamu kayaknya ahlinya';

 if bln=1 then asmara:='Kamu orangnya gak sabaran suka ngeres ';

 if bln=2 then asmara:='Tidak bisa menerima pendapat pasangannya';

 if bln=3 then asmara:='Tidak bisa diselingkuhi oleh pasangannya';

 if bln=4 then asmara:='Baik hati dan tidak sombong, Setia banget,pengertian';

 if bln=5 then asmara:='Bisa memberikan yang terbaik bagi kekasihnya';

 if bln=6 then asmara:='Bisa membuat bahagia asalkan tidak disakiti';

 if bln=7 then asmara:='Sangat pengertian dan selalu bisa diandalkan,setia kepada pasangannya';

 if bln=8 then asmara:='Bisa memberikan yang terbaik, Setia dan Pengertian';

 if bln=9 then asmara:='Harus terus setia sama pasangan';

 if bln=10 then asmara:='Kurang romantis terhadap pasangan tapi bisa dipercaya';

 if bln=11 then asmara:='Pengertian dan sabar menghadapi masalah pasangan';

{logika 3}

 if bln=12 then keuangan :='Jangan sampai boros dan terus bekerja';

 if bln=1 then keuangan  :='Dalam segi keuangan anda kayaknya lumayan';

 if bln=2 then keuangan  :='Cukup bagus dan jangan terlalu boros';

 if bln=3 then keuangan  :='Agak seret butuk kerja extra';

 if bln=4 then keuangan  :='Bisa menjamin tidak akan pernah kekurangan';

 if bln=5 then keuangan  :='Lumayan dan jangan lupa terus berdoa dan berusaha';

 if bln=6 then keuangan  :='Masih belum dapat gaji untuk saat ini';

 if bln=7 then keuangan  :='Harus bekerja keras dan tetap semangat';

 if bln=8 then keuangan  :='Stabil dan selalu dapat rejeki halal';

 if bln=9 then keuangan  :='Mungkin tidak punya penghasilan dan harus bekerja keras';

 if bln=10 then keuangan :='Penghasilan baik sekali dan jangan samapai lupa untuk menyumbang';

 if bln=11 then keuangan :='Wah kurang kerja keras jadi tidak punya pengahsilan';

{logika 4}

 if bln=12 then WarnaKesukaan :='Merah';

 if bln=1 then WarnaKesukaan  :='Biru';

 if bln=2 then WarnaKesukaan  :='Hijau';

 if bln=3 then WarnaKesukaan  :='Orange';

 if bln=4 then WarnaKesukaan  :='Abu Abu';

 if bln=5 then WarnaKesukaan  :='Kuning';

 if bln=6 then WarnaKesukaan  :='Hitam';

 if bln=7 then WarnaKesukaan  :='Pink';

 if bln=8 then WarnaKesukaan  :='Black';

 if bln=9 then WarnaKesukaan  :='Biru Muda';

 if bln=10 then WarnaKesukaan :='Kuning';

 if bln=11 then WarnaKesukaan :='Putih';

{logika 5}

 if bln=12 then harikeberuntungan :='Senin';

 if bln=1 then harikeberuntungan  :='Jumat';

 if bln=2 then harikeberuntungan  :='Minggu';

 if bln=3 then harikeberuntungan  :='Selasa';

 if bln=4 then harikeberuntungan  :='Kamis';

 if bln=5 then harikeberuntungan  :='Sabtu';

 if bln=6 then harikeberuntungan  :='Rabu';

 if bln=7 then harikeberuntungan  :='Selasa';

 if bln=8 then harikeberuntungan  :='Selasa';

 if bln=9 then harikeberuntungan  :='Minggu';

 if bln=10 then harikeberuntungan :='Rabu';

 if bln=11 then harikeberuntungan :='Jumat';

{out put}

textcolor(19);

writeln('(^_^)  DIBAWAH INI ADALAH HASIL RAMALAN SUTRISNO  (^_^)');

textcolor(15);

writeln('Nama anda adalah                       :',nm);

writeln('Alamat anda di                         :',al);

writeln('Umur anda Sekarang                     :',thn-th);

writeln('Zodiak anda adalah                     :',zodiak);

writeln('Asmara anda adalah                     :',asmara);

writeln('Keuangan anda minggu ini               :',keuangan);

writeln('Warna Kesukaan anda                    :',warnakesukaan);

writeln('Hari Keberuntungan Anda                :',harikeberuntungan);

readln;

 readln;

     writeln;

     write('Ingin Meramal Lagi Y/T :');

     readln(jawab);

     end;

         end.