Membuat Program Ramalan Zodiak Menggunakan Pascal

08:18:00
    Mungkin banyak program ramalan zodiak yang sudah ada di internet dan lainnya, Kali ini kita bisa membuat program ramal bintang dengan cara kita sendiri dengan Turbo Pascal.
Langsung Saja Mari Check It Out :

Dibawah Ini adalah Script dan Hasil Running Program Ramal Bintang yang kita buat sendiri dari Turbo Pascal :


program ramalan_bintang;
uses wincrt;
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.


Hasil Running Program Ramal Bintang :



0 komentar