Pseudocode Program Zodiak
Algoritma Program_Zodiak
{Meramalkan Zodiak dari tanggal dan bulan yang diinputkan}
DEKLARASI
String: nama;
Integer: tanggal, bulan;
DESKRIPSI
begin
writeln("Masukkan identitasmu sesuai dengan yang di bawah
ini.");
writeln("Nama Lengkap
: ");
read(nama);
writeln("Tanggal Lahir(1-31): ");
read(tanggal);
writeln("Bulan Lahir(1-12)
: ");
read(bulan)
if (tanggal>=22 && bulan==12 || tanggal<=20 &&
bulan==1)
then writeln("CAPRICORNUS (21 DESEMBER – 20 JANUARI)");
writeln("Umum: Anda mesti tahu kapan mengatakan setuju atau ya
terhadap pendapat dan pandangan orang dan kapan mesti menolak atau mengatakan
tidak. Jika Anda tak sependapat, Anda mesti menunjukkannya dengan cara yang
sopan dan enak dilihat. Alasannya, supaya relasi yang sudah Anda bangun selama
ini tidak hancur karena sekeping egoisme atau sakit hati.");
writeln("Keuangan : Banyak pengeluaran tak terduga. Tabungan
terkuras juga.");
writeln("Hari Baik : Kamis.");
Writeln("Kesehatan : Demam dan pusing, banyak istirahat
dong.");
Writeln("Warna : Hijau membangkitkan semangat.");
Writeln("Cinta : Jangan kaget menghadapi perubahan afeksi Anda
awal pekan ini. Sebelum mengambil keputusan, pertimbangkan masak-masak
dampaknya. Pada pertengahan pekan nanti akan menjadi jelas bahwa perubahan
afeksi itu hanya bersifat sementara. Anda berdua bahkan siap masuk ke tahap
yang lebih dalam. So, jangan mudah tergoda dengan apa yang tampak di depan mata
atau dengan apa yang masuk ke telinga. Bisa jadi itu hanya tipuan atau jebakan
agar hubungan Anda hancur.");
else (tanggal>=21 && bulan==1 || tanggal<=19 &&
bulan==2)
then Writeln("AQUARIUS (21 JANUARI – 18 FEBRUARI)");
Writeln("Umum: Ada selingan baru dalam rutinitas. Bentuk atau
wujudnya bisa bermacam-macam. Lihatlah selingan baru itu lebih sebagai
kesempatan dan bukan sebagai gangguan. Justru hal itu bisa membantu Anda
menjalankan tugas. Bukankah Anda semakin terpacu karena ada hal baru? Pada
pertengahan pekan nanti, arahkan perhatian Anda kepada hal-hal yang kecil.
Jangan mengabaikannya karena hal itu tetap punya hubungan dengan pekerjaan
Anda.");
Writeln("Keuangan : Minggu ini benar-benar seret, tapi masih ada
tabungan.");
Writeln("Hari Baik : Jumat.");
Writeln("Kesehatan : Masuk angin gara-gara telat makan.");
Writeln("Warna : Pakailah warna kuning.");
Writeln("Cinta : Pasangan Anda punya rencana dan maksud lain yang
tak sejalan dengan Anda. Anda ingin hal itu, si dia ingin yang lain. Anda mau
buat hal ini, si dia mau buat yang lain. Sederhananya Anda dan si dia tak
sejalan. Anda mesti kecewa dan marah karena ketaksejalanan itu? Tidak perlu!
Yang penting, jangan memaksakan kehendak. Kompromikan atau bicarakan. Pasti ada
jalan keluarnya.");
else (tanggal>=20 && bulan==2 || tanggal<=20 &&
bulan==3)
then Writeln("PISCES (21 MARET-19 APRIL)");
Writeln("Umum: Keragu-raguan bukan gaya Anda. Bingung dan tak
tahu harus berbuat apa bukanlah kekhasan Anda. So, tentukan langkah yang pasti.
Jangan tanggung. Jika Anda bingung menentukan sikap yang tepat di hadapan
begitu banyak kemungkinan, mintalah nasihat atau pendapat orang lain. Sekalipun
pendapat mereka belum tentu merupakan jawaban yang tepat, setidak-tidaknya
mereka telah memberikan kisi-kisi yang berguna untuk Anda.");
Writeln("Keuangan : Lakukan dengan baik, nanti di akhir bulan ada
rezeki tambahan. Perlu upaya lebih keras lagi untuk melakukan
perubahan.");
Writeln("Hari Baik : Rabu, bertemu seseorang yang memberikan
peluang baru.");
Writeln("Kesehatan : Kecapekan, awas masuk angin.");
Writeln("Warna : Hitam membuat Anda percaya diri.");
Writeln("Cinta : Jika Anda sudah terlanjur menyukai seseorang,
teman atau rekan kerja, ungkapkan perasaan Anda secara jelas. Apalagi si dia
juga menaruh rasa yang sama. Hei, jangan tunggu lagi. Tapi ungkapkan perasaan
itu pada akhir pekan, se-gentle dan semenarik mungkin. Dia akan menerima
kehadiran Anda dengan tangan terbuka dan senyum mengembang karena dia
sebetulnya menyukai Anda juga.");
else (tanggal>=21 && bulan==3 || tanggal<=19 &&
bulan==4)
then Writeln("ARIES (22 JUNI-22 JULI)");
Writeln("Umum: Anda lumayan boros. Anda mudah sekali mengeluarkan
uang. Apapun yang menarik mata Anda, bahkan yang bukan menjadi kebutuhan
sekalipun, membuat Anda dengan begitu mudah membuka dompet. Jangan salah, itu
semua hanya mendatangkan kesenangan sesaat. Anda mesti punya prioritas
kebutuhan. Itu sisi yang kurang dari Anda.");
Writeln("Keuangan : Minggu ini ada tambahan rezeki.");
Writeln("Hari Baik : Jumat.");
Writeln("Kesehatan : Jaga kebersihan bila tak ingin
batuk-batuk.");
Writeln("Warna : Marun membuat Anda memesona.");
Writeln("Cinta : Jika Anda ingin menarik perhatian atau
menyenangkan si dia dengan mengajaknya makan malam di luar atau memberikan
hadiah, perhatikan dulu keuangan Anda. Ukur dulu sampai sejauh mana Anda kuat.
Jika tidak, situasi bisa berubah tak enak. Jika ternyata isi dompet Anda tak
cukup, jangan memaksakan diri. Si dia juga pasti memahami kondisi Anda. Yang
perlu Anda lakukan adalah terbuka. Itu sudah cukup.");
else (tanggal>=21 && bulan==4 || tanggal<=20 &&
bulan==5)
Writeln("CANCER (20 APRIL-20 MEI)");
Writeln("Umum: Anda memang dituntut untuk tetap konsisten pada
ritme kerja yang ada. Di situlah komitmen dan loyalitas Anda diuji. Tapi Anda
harus jeli mencari celah untuk fleksibel sebelum terlanjur jenuh. Ingat,
komitmen dan konsistensi tidak sama dengan taat buta. Anda mesti punya sikap.
Anda, misalnya, mulai dengan berolahraga di awal hari kerja. Atau Anda juga
bisa mencoba berpikir dengan cara yang lain. Fleksibilitas memperkuat relasi
personal dan sosial Anda, sekaligus merangsang produktivitas.");
Writeln("Keuangan : Minggu ini banyak pengeluaran tak
terduga.");
Writeln("Hari Baik : Senin.");
Writeln("Kesehatan : Banyak pekerjaan membuat Anda demam.");
Writeln("Warna : Cokelat membuat Anda lebih relaks.");
Writeln("Cinta : Awal pekan adalah saat yang tepat untuk
mengungkapkan betapa kuatnya perasaan Anda kepada si dia, yang ternyata adalah
teman kerja Anda. Tapi kalau Anda belum siap, tahanlah gairah itu hingga akhir
pekan. Ketika tiba waktunya, ungkapkan perasaan Anda dengan cara yang menarik.
Ungkapkan dengan bahasa yang menarik. Bisa juga dengan tanda atau simbol yang
Anda tahu bisa mempresentasikan perasaan hati Anda.");then
else (tanggal>=21 && bulan==5 || tanggal<=21 &&
bulan==6)
then Writeln("TAURUS (21 MEI-21 JUNI)");
Writeln("Umum: Anda tidak hidup seorang diri. Anda bukan sebuah
pulau tak bertuan yang tiba-tiba terlempar begitu saja ke tengah lautan. Anda
sudah selalu berada bersama dan dengan orang lain. Karena itu, jangan
memisahkan diri dari lingkungan sosial atau komunitas tempat Anda bekerja dan
bergaul. Orang-orang seperti merekalah yang menantang Anda untuk berpikir lebih
serius serta mendukung Anda. Jika kemudian muncul kesulitan, jangan cepat
tergoda untuk mengambil sikap. Berpikirlah baik-baik dan lihatlah persoalan
dengan lebih spesifik.");
Writeln("Keuangan : Banyak pengeluaran yang bukan pada tempatnya.");
Writeln("Hari Baik : Rabu, bertemu seseorang yang
menyenangkan.");
Writeln("Kesehatan : Banyak bekerja membuat Anda
pegal-pegal.");
Writeln("Warna : Coklat");
Writeln("Cinta : Anda sedang berhubungan dengan seseorang.
Siapakah dia? Hanya Anda yang tahu jawabannya. Hanya Anda yang tahu dan
merasakan geliat hati Anda. Jika Anda mencari waktu yang tepat untuk membuatnya
menerima Anda, awal pekan adalah waktu yang pas untuk meyakinkan dia bahwa
sekarang tiba saatnya Anda berdua masuk kehubungan yang lebih serius. Kalau dia
menolak atau menangguhkan jawabannya, hadapilah dengan tenang.");
else (tanggal>=22 && bulan==6 || tanggal<=22 &&
bulan==7)
then Writeln("GEMINI (23 JULI-22 AGUSTUS)");
Writeln("Umum: Bukalah diri Anda dan sambutlah hari yang baru. Apa
pun yang akan Anda lakukan dan hadapi di sepanjang pekan ini berjalan menarik.
Buatlah tujuan yang jelas. Petakan prioritas dan orientasi dengan jelas dan
tegas. Anda mau buat apa? Anda mau lakukan apa? Anda mau menjadi apa? Kalau
muncul kebingungan, jangan malu dan takut meminta bantuan orang lain.");
Writeln("Keuangan : Banyak keinginan banyak pengeluaran. Tahan
kemauan bila tak ingin rugi sendiri.");
Writeln("Hari Baik : Selasa");
Writeln("Kesehatan : Diet boleh saja tapi jangan sampai
sakit.");
Writeln("Warna : Hijau baik untuk keberuntungan Anda.");
Writeln("Cinta : Anda memang kurang bersemangat. Anda juga kurang
atraktif. Tapi tak ada salahnya Anda tersenyum pada setiap orang yang Anda
jumpai, khususnya pada si dia yang ingin mendapat kesempatan berjalan bersama
Anda. Jika Anda belum siap membuat perubahan atau kejutan dalam hubungan Anda,
jangan memaksakan diri. Pada akhir pekan nanti, nikmatilah waktu Anda berdua.
Jangan sia-siakan itu.");
else (tanggal>=23 && bulan==7 || tanggal<=23 &&
bulan==8)
then Writeln("LEO (23 AGUSTUS-22 SEPTEMBER)");
Writeln("Umum: Jika Anda terjebak dalam kesulitan, mintalah
bantuan orang lain. Mintalah bantuan orang lain. Mintalah nasihat atau masukan
dari orang yang kemampuannya lebih tinggi dan baik daripada Anda. Jangan takut
dan malu! Apalagi orang yang Anda mintai bantuan itu tidak berkeberatan. Lalu
matangkan rencana Anda. Jangan melihat ke belakang. Ingat, masa lalu punya
konteks sendiri. Angkat mata dan lihat masa depan.");
Writeln("Keuangan : Baiknya mengembangkan usaha daripada
menghamburkan uang. Terlalu banyak orang yang ingin mengambil keuntungan dari
Anda, hati-hati.");
Writeln("Hari Baik : Minggu, saatnya relaksasi.");
Writeln("Kesehatan : Awas masuk angin dan flu.");
Writeln("Warna : Ungu baik untuk semangat Anda.");
Writeln("Cinta : Fleksibilitas. Itu yang terlihat pada diri Anda
sejak awal pekan. Anda bisa berubah sesuai dengan situasi dan kondisi yang ada.
Begitu pun hubungan Anda. Kalau si dia berbuat seperti ini. Anda bisa
memahaminya. Bahkan bisa masuk dalam konteks seperti. Demikian pun kalau si dia
berubah, Anda bisa menyesuaikan diri. Dan ketahuilah, hubungan Anda tetap aman.
Bahkan semakin menarik.");
else (tanggal>=24 && bulan==8 || tanggal<=22 &&
bulan==9)
then Writeln("VIRGO (23 SEPTEMBER-23 OKTOBER)");
Writeln("Umum: Banyak mata menatap kagum pada Anda. Tanya kenapa?
Karena Anda hadir minggu ini dengan sejumlah ide segar dan insight baru. Anda
juga punya hati untuk mendengarkan orang lain. Karena itu, jangan tahan ide itu
untuk Anda sendiri. Bagikan kepada anggota tim Anda. Biarkan mereka tahu apa
yang bercokol di dalam kepala Anda. Itulah artinya interdependensi dan
solidaritas.");
Writeln("Keuangan : Akan banyak rezeki tambahan.");
Writeln("Hari Baik : Jumat, banyak uang yang masuk.");
Writeln("Kesehatan : Masuk angin.");
Writeln("Warna : Cokelat muda membawa hoki.");
Writeln("Cinta : Jika Anda ingin supaya perasaan Anda diketahui
si dia, buatlah tindakan yang jelas. Tapi tindakan dan/atau cara Anda itu harus
kreatif. Bentuk dan caranya tergantung pada Anda. Tebak kenapa? Karena si dia
ingin diperlakukan secara istimewa. Bukankah Anda juga ingin menjadi orang yang
istimewa dalam hatinya? So, buatlah sesuatu yang menarik. Jangan yang standar
dan biasa-biasa saja.");
else (tanggal>=23 && bulan==9 || tanggal<=23 &&
bulan==10)
then writeln("LIBRA (24 OKTOBER-21 NOVEMBER)");
Writeln("Umum: Istirahat yang banyak, makan makanan yang segar
dan olahraga yang cukup. Ingat, ada hubungan erat antara kesehatan dan
produktivitas. Jika Anda sudah jalani hal itu, Anda bakal kembali fokus pada
apa yang sedang Anda hadapi. Teman-teman Anda akan belajar banyak dari Anda.
Mereka membutuhkan contoh konkret dan bukan teori atau opini yang jelimet. Dan
itu adalah Anda.");
Writeln("Keuangan : Tak perlu khawatir, masih ada dana
cadangan.");
Writeln("Hari Baik : Diet boleh saja tapi jangan sampai
sakit.");
Writeln("Kesehatan : Jumat.");
Writeln("Warna : Abu-abu terlihat lebih muda.");
Writeln("Cinta : Jangan memaksakan diri mengungkapkan perasaan
atau mendekati orang yang Anda rasa begitu spesial karena dia sedang tak ingin
diganggu atau mendapat kejutan. Biarkan dia menikmati kesendiriannya. Jika
tidak, Anda bisa di bilang tak bisa melihat orang lain senang. Atau senangnya
hanya mengganggu orang. Bukankah predikat seperti itu tak enak di telinga?
Tunggu hingga waktu yang tepat.");
else (tanggal>=24 && bulan==10 || tanggal<=22 &&
bulan==11)
then writeln("SCORPIO (24 OKTOBER-21 NOVEMBER)");
Writeln("Umum: Istirahat yang banyak, makan makanan yang segar
dan olahraga yang cukup. Ingat, ada hubungan erat antara kesehatan dan
produktivitas. Jika Anda sudah jalani hal itu, Anda bakal kembali fokus pada
apa yang sedang Anda hadapi. Teman-teman Anda akan belajar banyak dari Anda.
Mereka membutuhkan contoh konkret dan bukan teori atau opini yang jelimet. Dan
itu adalah Anda.");
Writeln("Keuangan : Tak perlu khawatir, masih ada dana
cadangan.");
Writeln("Hari Baik : Diet boleh saja tapi jangan sampai
sakit.");
Writeln("Kesehatan : Jumat.");
Writeln("Warna : Abu-abu terlihat lebih muda.");
Writeln("Cinta : Jangan memaksakan diri mengungkapkan perasaan
atau mendekati orang yang Anda rasa begitu spesial karena dia sedang tak ingin
diganggu atau mendapat kejutan. Biarkan dia menikmati kesendiriannya. Jika
tidak, Anda bisa di bilang tak bisa melihat orang lain senang. Atau senangnya
hanya mengganggu orang. Bukankah predikat seperti itu tak enak di telinga?
Tunggu hingga waktu yang tepat.");
else (tanggal>=23 && bulan==11 || tanggal<=21 &&
bulan==12)
then Writeln("SAGITARIUS (22 NOVEMBER-21 DESEMBER)");
Writeln("Umum: Berpikir positif. Ini senjata Anda mempertahankan
hubungan kerja Anda dengan rekan atau mitra bisnis Anda minggu ini. Perhatikan
juga kesempatan yang ada untuk meraih sukses. Sekalipun ada sedikit persoalan
dengan pimpinan atau partner kerja, Anda mesti tetap menunjukkan sikap yang
wajar, tidak di buat-buat dan juga tidak memperparah keadaan.");
Writeln("Keuangan : Anda sudah berkecukupan. Tabungan semakin
menebal.");
Writeln("Hari Baik : Minggu, berkumpul dengan orang-orang yang
membuat Anda bahagia.");
Writeln("Kesehatan : Jangan salah makan kalau tidak ingin sakit
perut.");
Writeln("Warna : Putih dan Abu-abu");
Writeln("Cinta : Jika selama ini Anda menjalin hubungan yang
biasa-biasa saja dengan seseorang, dan kemudian Anda ingin membuat hubungan itu
menjadi spesial, Anda bisa mendekatinya pada awal pekan. Ungkapkan perasaan dan
maksud Anda dengan jelas sehingga dia tahu bahwa Anda memang serius. Tidak
main-main. Sekalipun awalnya agak sulit, jangan mundur. Anda mesti tenang dan
sabar.");
endif
end.