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.
|
0 komentar