Pada kesempatan kali ini gue iseng - iseng mbikin ramalan zodiak yang sangat sederhana sekali, menggunakan bahasa Pascal. Ramalan Zodiak?? Yupzz. . .yang banyak digandrungi para remaja, yang hanya sekedar iseng untuk membaca ataupun bener - bener mengikuti isinya. . .Yang kdang dicari mulai dari masalah umum, kesehatan samapai hal yang gak akan kehapus
Dalm program gue ini, gue tambahin sub program bwt isinya biar lbih trtata ja dg rpi.. .
Yg pertma ini syntaknya utk main program :
- begin
- clrscr;
- repeat
- begin
- writeln(' SELAMAT DATANG');
- writeln('==========================================');
- writeln(' RAMALAN ZODIAK');
- writeln();
- writeln('ZODIAK ANDA :');
- writeln('------------------------------------------');
- writeln('1. : Capricon');
- writeln('2. : Aquarius');
- writeln('3. : Pisces');
- writeln('4. : Aries');
- writeln('5. : Taurus');
- writeln('6. : Gemini');
- writeln('7. : Cancer');
- writeln('8. : Leo');
- writeln('9. : Virgo');
- writeln('10. : Libra');
- writeln('11. : Scorpio');
- writeln('12. : Sagitarius');
- writeln('------------------------------------------');
- write('Silahkan masukkan no zodiak anda (1-12) : ');
- readln(pilih);
- isi(pilih);
- writeln();
- write('Apakah anda ingin mengulang ? (y/n) : ');
- readln(ulang);
- end;
- until((ulang <> 'y') or (ulang <> 'Y'));
- writeln();
- writeln('Terimakasih. . .');
- readln();
- end.
- procedure Isi(pilihan : byte);
- begin
- case pilihan of
- 1 :begin
- writeln('Bagi anda para Capricon');
- writeln('UMUM : Nikmatilah hari - hari anda pekan ini, jangan pusingkan kepala anda yang kecil itu');
- writeln('dengan seabrek ketakutan dan kegugupan terhadap tantangan dan persoalan hidup. Nikmatilah!');
- writeln('Ambillah barang sedikit waktu untuk bersenang - senang. Anda bisa berbelanja, berjalan - jalan');
- writeln('ditempat hiburan dan lain - lain. Yang penting, nikmatilah hari anda');
- writeln();
- writeln('ASMARA : Jika anda komunikasi yang kuat, berarti dan benar - benar berasal dari hati,');
- writeln('anda membutuhkan bimbingan dari seseorang. Seseorang itu mungkin adalah orang terdekat anda.');
- writeln('Buka mata hati dan hati anda. siapa tahu dia adalah sandaran hati yang selama ini anda cari.');
- end;
- 2 :begin
- writeln('Bagi anda para Aquarius');
- writeln('UMUM : Bagaimana kabar keluarga anda? apakah ada jarak antara mereka dengan anda?');
- writeln('Kalau ternyata selama ini anda sibuk sekali mengurus diri sendiri, lebih berkonsentrasi pada');
- writeln('kesibukan pribadi anda dan tidak tahu seperti apa kehidupan dan pergulatan mereka,');
- writeln('sekarang saatnya anda mengangkat mata dan memperhatikan mereka. mereka adalah surga anda.');
- writeln('Sumber inpirasi dan semangat.');
- writeln();
- writeln('ASMARA : apakan anda sudah siap membuat perubahan yang berarti dalam hubungan anda? kalau ya,');
- writeln('sekarang adalah waktunya. jangan tahan apa yang berkecamuk di dalam hati anda.');
- writeln('Katakan dengan terus terang supaya dia tahu yang sebenarnya anda rasakann, tetapi jangan juga,');
- writeln('terlalu berlebihan. sederhana dan wajar saja.');
- end;
- 3 :begin
- writeln('Bagi anda para Pisces');
- writeln('UMUM : Awal pekan ini anda akan berhadapan dengan banyak hal dan urusan. Masing - masing urusan');
- writeln('itu punya pengaruh yang tak sama besar. Sebetulnya anda tak harus berhadapan dengan itu.');
- writeln('Tapi konteks membuat anda turut merasakannya, karena itulah anda sibuk. Sisi yang menarik adalah');
- writeln('bahwa karena hal itu anda mempunyai banyak teman.');
- writeln();
- writeln('ASMARA : Awal pekan bukan waktu yang tepat untuk bermesaraan atau apa pun,');
- writeln('anda dan si dia tak siap untuk itu. Yang justru terjadi adalah awal pekan menjadi waktu yang tepat');
- writeln('untuk menjalin relasi dengan orang lain, bergaul dengan orang lain, menperluas pergaulan dan');
- writeln('berkonsentrasilah pada tugas. Anda butuh akan punya waktu untuk si dia pada akhir pekan.');
- end;
- 4 :begin
- writeln('Bagi anda para Aries');
- writeln('UMUM : Kemampuan sosial anda sangat bagus minggu ini. anda akan mendapatkan keberhassilan kecil.');
- writeln('Minggu ini juga akan ada benyak kejadian yang menyenangkan untuk anda dan teman - teman anda,');
- writeln('selama anda selalu mengikuti kata hati. selanjutnya, lihat dan nikmati sada apa yang akan terjadi selanjutnya.');
- writeln();
- writeln('ASMARA : Memberi akan terasa sama manisnya dengan menerima sesuatu dari orang yang dikasihi, dan kedua hal tersebut');
- writeln('akan menjadi kebiasaan anda pada awal pekan ini. Pada pertengahan minggu, semua itu akan berkurang,');
- writeln('anda akan berhadapan dengan masalah perasaan yang cukup rumit. Tapi pada akhir minggu semua akan berubah.');
- writeln('anda kembali seksi. tak heran jika anda menjadi pusat perhatian.');
- end;
- 5 :begin
- writeln('Bagi anda para Taurus');
- writeln('UMUM : Mengawali pekan ini dengan kegembiraan dan semangat yang luar biasa besar. ada pun terasad ringan dan berjalan');
- writeln('sesuai dengan apa yang anda harapkan. Ungkapkan apa yang ada di dalam hati dan otak anda. Jangan tahan,');
- writeln('toh kesempatan untuk itu terbuka lebar di depan mata anda.');
- writeln();
- writeln('ASMARA : Hei, jangan terlalu sibuk bekerja. Anda mesti punya waktu untuk si dia, untuk hubungan anda.');
- writeln('Luangkan sedikit waktu untuk mengungkapkan isi hati anda. Katakan kepadanya bahwa anda menikmati hubungan ini.');
- writeln('katakan kepadanya bahwa anda merasa nyaman berjalan bersamanya.');
- end;
- 6 :begin
- writeln('Bagi anda para Gemini');
- writeln('UMUM : Dengarlah pada apa yang coba diakatakan oleh teman - teman anda. Mereka memberikan anda saran');
- writeln('untuk mencoba sesuatu yang cukup beresiko, dan saran mereka itu benar, pada titik tertentu');
- writeln('anda perlu merendah dan menahan diri, sekalipun konteks berjalan tak enak dan menciptakan kesulitan tersendiri.');
- writeln('kalau sudah demikian, cari orang yang anda tahu bisa membantu anda untuk keluar dari kesulutan.');
- writeln();
- writeln('ASMARA : Romantisme anda berjalan menarik pekan ini. Sekarang saatnya untuk anda membuat hubungan anda');
- writeln('dengan si dia berjalan menarik, seperti apa? terserah anda. Nikmati hubungan anda, tapi anda juga harus bisa tetap');
- writeln('pada pendirian andakalau ada sesuatu, anda tahu apa yang ada didalam hati anda sendiri.');
- end;
- 7 :begin
- writeln('Bagi anda para Cancer');
- writeln('UMUM : Anda disukai banyak orang, tanya kenapa? karena apa yang anda lakukan, baik dilingkungan kerja,');
- writeln('lingkungan pergaulan, maupun lingkungan keluarga, lumayan membatu orang, meringankan beban orang');
- writeln('dan seperti itulah apa dunia anda. Kalau kemudian muncul masalah, anda harus tahu apa yang akan anda lakukan.');
- writeln('Jangan bekerja seorang diri, delegaislan tugas atau beban yang ada.');
- writeln();
- writeln('ASMARA : Jangan tunda lagi kalau anda ingin "menembak" hatinya, kalau bukan sekarang, kapan lagi?');
- writeln('Apalagi si dia yang membuat anda yakin anda berharga dimata banyak orang juga ingin dekat anda.');
- writeln('Dekatilah dia dan katakan isi hati anda, dia tidak minta banyak hal selain itu, dan segalanya akan terasa indah.');
- end;
- 8 :begin
- writeln('Bagi anda para Leo');
- writeln('UMUM : Awal pekan ini anda berhadapan dengan masalah. Agak rumit karena banyak hal terlihat');
- writeln('seperti jalinan yang rumit, yang susah sekali diburai. Kalau sudah terjebak sedemikian rupa,');
- writeln('jangan tergesa - gesa, pikir baik - baik dan lihat persoalan langsung pada akarnya.');
- writeln('kalau bisa, mintalah bantuan teman atau rekan kerja anda.');
- writeln();
- writeln('ASMARA : Benar bahwa si dia ingin sekali menghabiskan banyak waktu dengan Anda.');
- writeln('Benar juga bahwa kalau Anda ingin hubungan Anda berjalan baik, Anda harus bisa meluangkan waktu');
- writeln('untuk si dia. Tapi tidak ada salahnya jika sesekali Anda juga meluangkan waktu untuk berjalan');
- writeln('bersama teman-teman Anda. Nikmatilah waktu Anda bersama mereka');
- end;
- 9 :begin
- writeln('Bagi anda para Virgo');
- writeln('UMUM : Anda akan memulai minggu ini dengan langkah yang pasti. Itu karena Anda sadar');
- writeln('bahwa tak baik menyia-nyiakan semangat dan isi otak Anda yang encer itu. Tambahan lagi,');
- writeln('Anda `dipaksa` untuk bisa memikirkan jalan keluar di tengah himpitan banyak persoalan.');
- writeln();
- writeln('ASMARA : Anda sudah punya gandengan? Atau Anda masih berjalan seorang diri? Tak apa. Itu bukan masalah.');
- writeln('Anda tetap saja menikmati hidup Anda. Tapi jangan juga menutup diri. Kalau ada yang ingin membantu Anda,');
- writeln('terima dan nikmati. Dan jangan juga membuat rencana terlalu banyak pada akhir pekan ini.');
- writeln('Ingat, waktu Anda sangat berharga.');
- end;
- 10 :begin
- writeln('Bagi anda para Libra');
- writeln('UMUM : Jangan takut untuk mencoba berbagai hal baru seperti musik baru, restoran baru, atau gaya baru.');
- writeln('Jangan takut juga untuk mengambil tantangan baru. Justru di situlah letak "isi" Anda. Bukankah Anda');
- writeln('dilahirkan untuk menghadapi tantangan? So, jangan mengelak. Ingat, tantangan itu bisa saja membawa perubahan dalam hidup Anda');
- writeln();
- writeln('ASMARA : Anda memiliki kemampuan yang luar biasa untuk mengubah emosi ke dalam ekspresi. Hal inilah yang membuat kehidupan cinta Anda');
- writeln('tetap berjalan menarik. Dan ketahuilah, pasangan Anda tergila-gila karena hal tersebut. Anda tak terlalu banyak berbicara,');
- writeln('namun sikap yang hangat dan lembut yang selalu Anda berikan membuatnya engan berada jauh dari sisi Anda.');
- end;
- 11 :begin
- writeln('Bagi anda para Scorpio');
- writeln('UMUM : Perhatikan tantangan baru yang akan datang minggu ini. Meskipun Anda tak takut dan bisa menghadapi');
- writeln('tantangan baru, apa pun itu, Anda tetap saja perlu mempersiapkan diri, Anda harus ingat baik-baik');
- writeln('bahwa tak semua tantangan membawa "isi" yang sama. Pasti bobotnya berbeda.');
- writeln();
- writeln('ASMARA : Ingatlah untuk tetap saling berbagi dan saling memperhatikan. Jangan biarkan komunikasi Anda');
- writeln('dengan si dia terputus, atau Anda akan menyesal jika kemudian terjadi sesuatu yang tidak diharapkan.');
- writeln('Keluarkan keluh kesah Anda agar dia mengerti apa yang Anda inginkan. Dan perhatikan pula keluh kesahnya');
- writeln('agar hubungan Anda tetap seimbang. Untuk Anda yang belum memiliki pasangan, Anda akan menemukan seseorang');
- writeln('yang menarik perhatian Anda di lingkungan yang sama dengan Anda.');
- end;
- 12 :begin
- writeln('Bagi anda para Sagitarius');
- writeln('UMUM : Selesaikan pekerjaan Anda secepat mungkin sehingga Anda bisa beristirahat total di akhir pekan nanti.');
- writeln('Anda butuh waktu untuk beristirahat supaya Anda punya semangat dan tenaga yang baru untuk mengerjakan');
- writeln('tugas selanjutnya. Karena itu, jangan sia-siakan waktu istirahat Anda.');
- writeln('Santai sejenak bersama keluarga adalah hal terbaik yang bisa Anda lakukan.');
- writeln();
- writeln('ASMARA : Mungkin selama ini Anda terlalu banyak bicara dan sedikit beraksi. Tunjukkan rasa sayang Anda padanya. Caranya?');
- writeln('Terserah Anda. Anda, misalnya, bisa memberikan kejutan-kejutan kecil yang bisa membangkitkan gairah baru');
- writeln('dalam kehidupan cinta Anda. Jangan takut dicap berlebihan. Apa yang Anda lakukan akan membuatnya senang dan merasa dihargai.');
- end;
- end;
- end;
semoga bermanfaat. ..
Post a Comment