7 0 32 KB
program ramalan_bintang; uses crt; var pilih :integer;ulang:char; begin clrscr; repeat; writeln('* SELAMAT DATANG *'); gotoxy(17,7); writeln('* DI *'); gotoxy(17,8); writeln('* RAMALAN ZODIAK *'); writeln('=========================================='); writeln; writeln('ZODIAK ANDA :'); gotoxy(5,12);writeln('1. : Capricon'); gotoxy(5,13);writeln('2. : Aquarius'); gotoxy(5,14);writeln('3. : Pisces'); gotoxy(5,15);writeln('4. : Aries'); gotoxy(5,16);writeln('5. : Taurus'); gotoxy(5,17);writeln('6. : Gemini'); gotoxy(5,18);writeln('7. : Cancer'); gotoxy(5,19);writeln('8. : Leo'); gotoxy(5,20);writeln('9. : Virgo'); gotoxy(5,21);writeln('10. : Libra'); gotoxy(5,22);writeln('11. : Scorpio'); gotoxy(5,23);writeln('12. : Sagitarius'); writeln; writeln; write('Silahkan masukkan no zodiak anda (1-12) : '); readln(pilih); case pilih of 1 :begin clrscr; write('Bagi anda para Capricon{23 November sampai 18 Desember}'); writeln; writeln; write('KEPRIBADIAN'); writeln; writeln; write('Pendiam, Rajin dan Ambisius, Materialis, Gengsi Tinggi, Suka Memerintah, Suka memperalat Orang Lain'); writeln; writeln; write('UMUM'); writeln; writeln; write('Nikmatilah hari - hari anda pekan ini, jangan pusingkan kepala anda yang kecil itu '); write('dengan seabrek ketakutan dan kegugupan terhadap tantangan dan persoalan hidup. Nikmatilah! '); write('Ambillah barang sedikit waktu untuk bersenang - senang. Anda bisa berbelanja, berjalan - jalan '); write('ditempat hiburan dan lain - lain. Yang penting, nikmatilah hari anda'); writeln;writeln; write('ASMARA'); writeln; writeln; write('Jika anda komunikasi yang kuat, berarti dan benar - benar berasal dari hati,
'); write('anda membutuhkan bimbingan dari seseorang. Seseorang itu mungkin adalah orang terdekat anda. '); write('Buka mata hati dan hati anda. siapa tahu dia adalah sandaran hati yang selama ini anda cari. '); writeln; writeln; write('KEUANGAN'); writeln; write('Cukup aman'); writeln; writeln; write('PASANGAN YANG SERASI adalah ==> Cancer, Taurus, Virgo, Scorpio, Pisces '); writeln; end; 2 :begin clrscr; writeln('Bagi anda para Aquarius {21 Januari sampai 16 Februari}'); writeln; write('KEPRIBADIAN'); writeln; write('Tenang, Obyektif (Tidak Memihak), Jenius, Penuh Ide, Cepat Mengerti'); writeln; writeln; write('UMUM'); writeln; write ('Bagaimana kabar keluarga anda? apakah ada jarak antara mereka dengan anda? '); write('Kalau ternyata selama ini anda sibuk sekali mengurus diri sendiri, lebih berkonsentrasi pada '); write('kesibukan pribadi anda dan tidak tahu seperti apa kehidupan dan pergulatan mereka, '); write('sekarang saatnya anda mengangkat mata dan memperhatikan mereka. mereka adalah surga anda. '); write('Sumber inpirasi dan semangat.'); writeln;writeln; write('ASMARA'); writeln; write('apakah anda sudah siap membuat perubahan yang berarti dalam hubungan anda? kalau ya, '); write('sekarang adalah waktunya. jangan tahan apa yang berkecamuk di dalam hati anda. '); write('Katakan dengan terus terang supaya dia tahu yang sebenarnya anda rasakann, tetapi jangan juga, '); write('terlalu berlebihan. sederhana dan wajar saja.'); writeln; writeln; write('KEUANGAN'); writeln; write('Seimbang'); writeln; writeln; write('PASANGAN YANG SERASI adalah ==> Aries, Gemini, Libra, Sagittarius'); writeln; end; 3 :begin clrscr;
writeln('Bagi anda para Pisces {16 Februari sampai 11 Maret}'); writeln; write('KEPRIBADIAN'); writeln; write('Memiliki Sisi Manusiawi Yang Besar, Penuh Cinta, Praktis, Suka Mengkhayal '); writeln; writeln; write('UMUM '); writeln; write('Awal pekan ini anda akan berhadapan dengan banyak hal dan urusan. Masing masing urusan '); write('itu punya pengaruh yang tak sama besar. Sebetulnya anda tak harus berhadapan dengan itu. '); write('Tapi konteks membuat anda turut merasakannya, karena itulah anda sibuk. Sisi yang menarik adalah '); write('bahwa karena hal itu anda mempunyai banyak teman. '); writeln;writeln; write('ASMARA'); writeln; write('Awal pekan bukan waktu yang tepat untuk bermesaraan atau apa pun, '); write('anda dan si dia tak siap untuk itu. Yang justru terjadi adalah awal pekan menjadi waktu yang tepat '); write('untuk menjalin relasi dengan orang lain, bergaul dengan orang lain, menperluas pergaulan dan '); write('berkonsentrasilah pada tugas. Anda butuh akan punya waktu untuk si dia pada akhir pekan. '); writeln; writeln; write('KEUANGAN'); writeln; write('seimbang'); writeln; writeln; write('PASANGAN YANG SERASI adalah ==> Taurus, Cancer, Scorpio, Capricorn'); writeln; end; 4 :begin clrscr; writeln('Bagi anda para Aries {11 Maret sampai 18 April}'); writeln; write('KEPRIBADIAN'); writeln; write('Agresif, Energik, Impulsif, Berjiwa Pemimpin, Tidak Sabaran, Egois, Cepat Emosi '); writeln; writeln; write('UMUM'); writeln; write('Kemampuan sosial anda sangat bagus minggu ini. anda akan mendapatkan keberhassilan kecil. '); write('Minggu ini juga akan ada benyak kejadian yang menyenangkan untuk anda dan teman - teman anda, '); write('selama anda selalu mengikuti kata hati. selanjutnya, lihat dan nikmati sada apa yang akan terjadi selanjutnya. '); writeln;writeln; write('ASMARA'); writeln;
write('Memberi akan terasa sama manisnya dengan menerima sesuatu dari orang yang dikasihi, dan kedua hal tersebut '); write('akan menjadi kebiasaan anda pada awal pekan ini. Pada pertengahan minggu, semua itu akan berkurang, '); write('anda akan berhadapan dengan masalah perasaan yang cukup rumit. Tapi pada akhir minggu semua akan berubah. '); write('anda kembali seksi. tak heran jika anda menjadi pusat perhatian. '); writeln; writeln; write('KEUANGAN'); writeln; write('Cerah'); writeln; writeln; write('PASANGAN YANG SERASI adalah ==> Gemini, Leo, Aquarius, Sagittarius'); writeln; end; 5 :begin clrscr; writeln('Bagi anda para Taurus {18 April sampai 13 Mei}'); writeln; write('KEPRIBADIAN'); writeln; write('Keras Kepala, Materialistis, Pasif, Ramah & Sabar, Praktis dan Setia, Memiliki Jiwa Toleransi'); writeln; writeln; write('UMUM'); writeln; write('Mengawali pekan ini dengan kegembiraan dan semangat yang luar biasa besar. ada pun terasad ringan dan berjalan '); write('sesuai dengan apa yang anda harapkan. Ungkapkan apa yang ada di dalam hati dan otak anda. Jangan tahan, '); write('toh kesempatan untuk itu terbuka lebar di depan mata anda. '); writeln;writeln; write('ASMARA'); writeln; write('Hei, jangan terlalu sibuk bekerja. Anda mesti punya waktu untuk si dia, untuk hubungan anda. '); write('Luangkan sedikit waktu untuk mengungkapkan isi hati anda. Katakan kepadanya bahwa anda menikmati hubungan ini. '); write('katakan kepadanya bahwa anda merasa nyaman berjalan bersamanya. '); writeln; writeln; write('KEUANGAN'); writeln; write('pengeluaran agak bertambah'); writeln; writeln; write('PASANGAN YANG SERASI adalah ==> Gemini, Leo, Aquarius, Sagittarius'); writeln; end; 6 :begin clrscr; writeln('Bagi anda para Gemini {13 Mei sampai 22 Juni}'); writeln; write('KEPRIBADIAN'); writeln;
write('Lincah, Pandai berbicara, Tidak Stabil, Mudah Berubah-Ubah, Mudah Gugup, Sangat Peka'); writeln; writeln; write('UMUM'); writeln; write('Dengarlah pada apa yang coba diakatakan oleh teman - teman anda. Mereka memberikan anda saran '); write('untuk mencoba sesuatu yang cukup beresiko, dan saran mereka itu benar, pada titik tertentu '); write('anda perlu merendah dan menahan diri, sekalipun konteks berjalan tak enak dan menciptakan kesulitan tersendiri. '); write('kalau sudah demikian, cari orang yang anda tahu bisa membantu anda untuk keluar dari kesulutan. '); writeln;writeln; write('ASMARA'); writeln; write('Romantisme anda berjalan menarik pekan ini. Sekarang saatnya untuk anda membuat hubungan anda '); write('dengan si dia berjalan menarik, seperti apa? terserah anda. Nikmati hubungan anda, tapi anda juga harus bisa tetap '); write('pada pendirian andakalau ada sesuatu, anda tahu apa yang ada didalam hati anda sendiri. '); writeln; writeln; write('KEUANGAN'); writeln; write('jangan lupa bayar hutang kepada mbah ya'); writeln; writeln; write('PASANGAN YANG SERASI adalah ==> Aries, Leo, Libra, Aquarius '); writeln; end; 7 :begin clrscr; writeln('Bagi anda para Cancer {22 Juni sampai 21 Juli}'); writeln; write('KEPRIBADIAN'); writeln; write('Suasana Hati Tidak Menentu, Sentimentil, Setia, Penuh Perhatian, Sulit Memaafkan, Memiliki Daya Ingat Yang Kuat');; writeln; writeln; write('UMUM'); writeln; write('Anda disukai banyak orang, tanya kenapa? karena apa yang anda lakukan, baik dilingkungan kerja, '); write('lingkungan pergaulan, maupun lingkungan keluarga, lumayan membatu orang, meringankan beban orang '); write('dan seperti itulah apa dunia anda. Kalau kemudian muncul masalah, anda harus tahu apa yang akan anda lakukan. '); write('Jangan bekerja seorang diri, delegaislan tugas atau beban yang ada. '); writeln;writeln; write('ASMARA'); writeln; write('Jangan tunda lagi kalau anda ingin "menembak" hatinya, kalau bukan sekarang, kapan lagi? '); write('Apalagi si dia yang membuat anda yakin anda berharga dimata banyak orang
juga ingin dekat anda. '); write('Dekatilah dia dan katakan isi hati anda, dia tidak minta banyak hal selain itu, dan segalanya akan terasa indah. '); writeln; writeln; write('KEUANGAN'); writeln; write('berhemat dulu lah'); writeln; writeln; write('PASANGAN YANG SERASI adalah ==> Capricorn, Aries, Libra'); writeln; end; 8 :begin clrscr; writeln('Bagi anda para Leo {21 Juli sampai 10 Agustus}'); writeln; write('KEPRIBADIAN'); writeln; write('Suka Memimpin, Dermawan Dan Murah Hati, Penuh Gaya, Aristokratik, Congkak, Percaya Diri Tinggi'); writeln; writeln; write('UMUM '); writeln; write('Awal pekan ini anda berhadapan dengan masalah. Agak rumit karena banyak hal terlihat '); write('seperti jalinan yang rumit, yang susah sekali diburai. Kalau sudah terjebak sedemikian rupa, '); write('jangan tergesa - gesa, pikir baik - baik dan lihat persoalan langsung pada akarnya.'); write('kalau bisa, mintalah bantuan teman atau rekan kerja anda. '); writeln;writeln; write('ASMARA'); writeln; write('Benar bahwa si dia ingin sekali menghabiskan banyak waktu dengan Anda. '); write('Benar juga bahwa kalau Anda ingin hubungan Anda berjalan baik, Anda harus bisa meluangkan waktu '); write('untuk si dia. Tapi tidak ada salahnya jika sesekali Anda juga meluangkan waktu untuk berjalan '); write('bersama teman-teman Anda. Nikmatilah waktu Anda bersama mereka '); writeln; writeln; write('KEUANGAN'); writeln; write('stabil'); writeln; writeln; write('PASANGAN YANG SERASI adalah ==> Aries, Gemini, Libra, Sagittarius'); writeln; end; 9 :begin clrscr; writeln('Bagi anda para Virgo {18 Desember sampai 21 Januari}'); writeln; write('KEPRIBADIAN'); writeln;
write('Berjiwa Petualang, Pandai, Suka Kebebasan, Mandiri, Pandai Berdiplomasi, Berpandangan Luas'); writeln; writeln; write('UMUM'); writeln; write('Anda akan memulai minggu ini dengan langkah yang pasti. Itu karena Anda sadar '); write('bahwa tak baik menyia-nyiakan semangat dan isi otak Anda yang encer itu. Tambahan lagi, '); write('Anda `dipaksa` untuk bisa memikirkan jalan keluar di tengah himpitan banyak persoalan. '); writeln;writeln; write('ASMARA'); writeln; write('Anda sudah punya gandengan? Atau Anda masih berjalan seorang diri? Tak apa. Itu bukan masalah. '); write('Anda tetap saja menikmati hidup Anda. Tapi jangan juga menutup diri. Kalau ada yang ingin membantu Anda, '); write('terima dan nikmati. Dan jangan juga membuat rencana terlalu banyak pada akhir pekan ini. '); write('Ingat, waktu Anda sangat berharga. '); writeln; writeln; write('KEUANGAN'); writeln; write('stabil'); writeln; writeln; write('PASANGAN YANG SERASI adalah ==> Saitarius, Capricorn, Gemini'); writeln; end; 10 :begin clrscr; writeln('Bagi anda para Libra {10 Agustus sampai 16 September}'); writeln; write('KEPRIBADIAN'); writeln; write('Berjiwa Petualang, Pandai, Suka Kebebasan, Mandiri, Pandai Berdiplomasi, Berpandangan Luas'); writeln; writeln; write('UMUM'); writeln; write('Jangan takut untuk mencoba berbagai hal baru seperti musik baru, restoran baru, atau gaya baru. '); write('Jangan takut juga untuk mengambil tantangan baru. Justru di situlah letak "isi" Anda. Bukankah Anda '); write('dilahirkan untuk menghadapi tantangan.So,jangan mengelak.Ingat,tantangan itu bisa saja membawa perubahan dalam hidup '); writeln;writeln; write('ASMARA'); writeln; write('Anda memiliki kemampuan yang luar biasa untuk mengubah emosi ke dalam ekspresi '); write('tetap berjalan menarik. Dan ketahuilah, pasangan Anda tergila-gila karena hal tersebut '); write('namun sikap yang hangat dan lembut yang selalu Anda berikan membuatnya engan
berada jauh dari sisi Anda. '); writeln; writeln; write('KEUANGAN'); writeln; write('tak terlalu banyak perubahan'); writeln; writeln; write('PASANGAN YANG SERASI adalah ==> Taurus, Virgo, Scorpio, Pisces'); writeln; end; 11 :begin clrscr; writeln('Bagi anda para Scorpio {16 September sampai 31 Oktober}'); writeln; write('KEPRIBADIAN'); writeln; write('Panjang Akal, Pendiam, Pendendam, Gigih, Tekun'); writeln; writeln; write('UMUM'); writeln; write('Perhatikan tantangan baru yang akan datang minggu ini. Meskipun Anda tak takut dan bisa menghadapi '); write('tantangan baru, apa pun itu, Anda tetap saja perlu mempersiapkan diri, Anda harus ingat baik-baik '); write('bahwa tak semua tantangan membawa "isi" yang sama. Pasti bobotnya berbeda. '); writeln; writeln; write('ASMARA'); writeln; write('Ingatlah untuk tetap saling berbagi dan saling memperhatikan. Jangan biarkan komunikasi Anda '); write('dengan si dia terputus, atau Anda akan menyesal jika kemudian terjadi sesuatu yang tidak diharapkan. '); write('Keluarkan keluh kesah Anda agar dia mengerti apa yang Anda inginkan. Dan perhatikan pula keluh kesahnya '); write('agar hubungan Anda tetap seimbang. Untuk Anda yang belum memiliki pasangan, Anda akan menemukan seseorang '); write('yang menarik perhatian Anda di lingkungan yang sama dengan Anda. '); writeln; writeln; write('KEUANGAN'); writeln; write('tak beda jauh dengan minggu lalu'); writeln; writeln; write('PASANGAN YANG SERASI adalah ==> Cancer, Virgo, Capricorn, Pisces'); writeln; end; 12 :begin clrscr; write('Bagi anda para Sagitarius {31 Oktober sampai 23 November}'); writeln; writeln; write('KEPRIBADIAN'); writeln;
write('Berjiwa Petualang, Pandai, Suka Kebebasan, Mandiri, Pandai Berdiplomasi, Berpandangan Luas'); writeln; writeln; write('UMUM '); writeln; write('Selesaikan pekerjaan Anda secepat mungkin sehingga Anda bisa beristirahat total di akhir pekan nanti. '); write( 'Anda butuh waktu untuk beristirahat supaya Anda punya semangat dan tenaga yang baru untuk mengerjakan '); write('tugas selanjutnya. Karena itu, jangan sia-siakan waktu istirahat Anda. '); write('Santai sejenak bersama keluarga adalah hal terbaik yang bisa Anda lakukan. '); writeln; writeln; write('ASMARA'); writeln; write('Mungkin selama ini Anda terlalu banyak bicara dan sedikit beraksi. Tunjukkan rasa sayang Anda padanya. Caranya? '); write('Terserah Anda. Anda, misalnya, bisa memberikan kejutan-kejutan kecil yang bisa membangkitkan gairah baru '); write(' Jangan takut dicap berlebihan.Apa yang Anda lakukan akan membuatnya senang dan merasa dihargai '); writeln; writeln; write('KEUANGAN'); writeln; write('murah hati dan suka royal'); writeln; writeln; write('PASANGAN YANG SERASI adalah ==> Aries, Leo, Libra, Aquarius'); writeln; end; end; writeln; write('Apakah anda ingin mengulang ? (y/n) : '); readln(ulang);clrscr; until(ulang 'y'); writeln; writeln('Terimakasih. . .'); readln; end.