SELAMAT DATANG DI BLOG T R I Z Z 4 ::::::::::: TERIMAKASIH :::::: e-mail : triz_Oi@yahoo.com

Kamis, 17 Februari 2011

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.

Tidak ada komentar:

Posting Komentar