APLIKASI SEDERHANA ZODIAK DARI TURBO PASCAL

APLIKASI SEDERHANA ZODIAK DARI TURBO PASCAL

Ahmad jamaludin (10114571 )

Angga Raditya Ariesta ( 1C114713 )

Favian R.A ( 14114087 )

PENGERTIAN TURBO PASCAL

Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas kompiler dan lingkungan pengembangan terintegrasi (dalam bahasa inggris: Integrated Development Environment - IDE) atas bahasa pemrograman pascal untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Kahn. Nama Borland Pascal umumnya digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland.
Borland telah menembangkan tiga versi lama dari Turbo Pascal secara gratis disebabkan karena sejarahnya yang panjang khusus untuk versi 1.0, 3.02, dan 5.5 yang berjalan pada sistem operasi MS-DOS.

PENGERTIAN ZODIAK

Zodiak berasal dari kata dalam bahasa Yunani Zoodiacos Cyclos Yang artinya Lingkaran Hewan.

Lingkaran Ekliptika

Di bola langit terdapat garis khayal yang disebut dengan lingkaran ekliptika. Jika diamati dari bumi, semua benda tatasurya (planet, bulan dan matahari) beredar dilangit mengelilingi lingkaran ekliptika. Keistimewaan dari keduabelas zodiak dibanding rasi bintang lainnya adalah semuanya berada di wilayah langit yang memotong lingkaran ekliptika. Jadi dapat disimpulkan zodiak adalah semua rasi bintang yang berada disepanjang lingkaran ekliptika. Rasi-rasi bintang tersebut adalah:

1. CAPRICON : Kambing laut.
2. AQUARIUS: Pembawa Air.
3. PISCES : Ikan.
4. ARIES : Domba.
5. TAURUS : Kerbau.
6. GEMINI : Si Kembar.
7. CANCER : Kepiting.
8. LEO : Singa.
9. VIRGO : Gadis Perawan.
10. LIBRA : Timbangan.
11. SCORPIO : Kalajengking.
12. SAGITARIUS : Si Pemanah. 

Astrologi  adalah ilmu yang menghubungkan antara gerakan benda-benda tatasurya (planet, bulan dan matahari) dengan nasib manusia. Karena semua planet, matahari dan bulan beredar di sepanjang lingkaran ekliptik, otomatis mereka semua juga beredar di antara zodiak. Ramaalan astrologi didasarkan pada kedudukan benda-benda tatasurya di dalam zodiak.

Seseorang akan menyandang tanda zodiaknya berdasarkan kedudukan matahari di dalam zodiak pada tanggal kelahirannya. Misalnya, orang yang lahir awal desember akan berzodiak sagitarius, Karena pada tanggal tersebut Matahari berada di wilayah rasi bintang sagittarius.

Aquarius (20 Januari – 18 Februari)

Peruntungan: Jangan meremehkan komplain-komplain yang datang, tangani dengan serius karena kompetitor mulai menjaring konsumen yang kurang puas dengan kinerja dan pelayanan anda selama ini. Jangan biarkan ini terus terjadi walaupun usaha anda masih cukup kuat dan tegar akan tetapi jika tidak memperhatikan hal sepele ini maka tidak akan lama untuk segera hancur.

Karir: Mumpung ada order banyak maka harus mau banting tulang dan bekerja ekstra keras.

Kesehatan: Jangan makan terlalu pedas, ingat akan penyakit perut anda yang mudah sekali kambuh.

Keuangan: Pandai-pandai menyimpan dana yang ada, jangan tergoda untuk beli ini itu yang kurang begitu penting.

Asmara: Hindari sikap otoriter dalam melaksanakan segala yang anda harap dan cita-citakan.

Aries (21 Maret – 20 April)

Peruntungan: Apa yang terjadi dihari ini tergantung bagaimana anda mampu mengolah aspirasi yang muncul secara tiba-tiba menjadi sesuatu yang besar yang bisa diterima dan ditanggapi positif oleh partner kerja anda.

Karir: Walau agak membingungkan sebaiknya anda tetap berpedoman pada feeling yang muncul.

Kesehatan: Hindari dulu minum air yang terlalu dingin walaupun itu sangatlah menyegarkan, akan tetapi demi kebaikan diri sendiri sebaiknya kebiasaan itu dihindari dulu.

Keuangan: Boleh spekulasi tapi tetap harus waspada.

Asmara: Coba perbaiki sikap keras anda, ingatlah bagaimanapun juga suatu saat nanti pasti membutuhkan dukungan dari keluarganya.

Cancer (21 Juni- 20 Juli)

Peruntungan: Dihari ini walaupun suasananya kurang begitu menyenangkan, akan tetapi kedatangan teman lama cukup menghibur hati menjadi lebih ceria dan senang.

Karir: Usahakan untuk tidak begitu saja percaya dengan apa yang diucapkan rekan anda, cobalah anda tetap waspada dan hati-hati.

Kesehatan: Tampak terjaga walaupun aktifitas tampak padat dan berat. Imbangilah dengan makanan yang bergisi dan jangan lupa untuk rajin mengkonsumsi buah-buahan.

Keuangan: Ada saja dana yang harus dikeluarkan untuk mencukupi segala kebutuhan yang memang lagi meninggi tersebut.

Asmara: Pertahankan rasa saling percaya dan menghargai, agar keharmonisan tetap selalu dapat dirasakan.

Capricorn (21 Desember – 19 Januari)

Peruntungan: Bila berhadapan dengan klien pandailah bersandiwara terutama jangan perlihatkan muka masam dan kurang menyenangkan walaupun lagi ada masalah yang cukup menjengkelkan hati.

Karir: Tetaplah pasang senyum dan kata-kata yang menarik sehingga klien anda akan merasa puas dan enggan untuk pindah ke orang lain.

Kesehatan: Aktifitas yang berat yang membikin segalanya menjadi berantakan. Untuk itu pandai-pandailah memanage waktu agar antara karir dan kesehatan dapat seiring sejalan.

Keuangan: Harus mau bersabar menanti datangnya rejeki, jangan berputus asa.

Asmara: Semua permasalahan akan dapat diselesaikan dengan rasa sabar dan selalu berpikiran panjang.

Gemini (21 Mei – 20 Juni)

Peruntungan: Dihari ini cobalah untuk tidak berbuat yang aneh-aneh, apalagi usaha anda sudah cukup maju dan prospeknya bisa berkembang sendiri, buat apa ingin hasil cepat, kalau untuk itu harus ditebus dengan pengorbanan yang tidak sedikit jumlahnya, lebih baik berkembang pelan tapi pasti dan kuat.

Karir: Ide yang muncul sebaiknya kemukakan saja walau untuk itu resikonya pasti ada yang pro dan kontra.

Kesehatan: Kondisi badan anda terus menunjukkan grafik positif, pertahankan sambil terus berolahraga dipagi hari yang tampaknya sangat membantu diri anda terlepas dari problem kesehatan.

Keuangan: Ada hawa segar yang akan membawa angin baik bagi keuangan anda.

Asmara: Cinta tidak bisa dijamin mulus jalannya, untuk itu bersiap-siap saja melalui jalan-jalan yang penuh dengan cerita.

Leo (21 juli-21 Agustus)

Peruntungan: Hari ini jangan biarkan rasa malas mengganggu dan mendikte langkah anda, harus punya komitmen untuk selalu berusaha dengan tekun dan ulet.

Karir: Ada kesempatan untuk meraih posisi, untuk hindari membikin kesalahan.

Kesehatan: Jangan banyak makan yang pedas-pedas, nanti kalau sudah sakit perut baru terasa.

Keuangan: Masih seperti biasanya lancar dan stabil.

Asmara: Sekaranglah waktunya untuk mengungkapkan isi hati.

Libra (23 September – 22 Oktober)

Peruntungan: Usahakan tidak asal jeplak dalam memberi keputusan. Pikirkan dulu untung dan ruginya terutama demi kemajuan masa depan. Buat apa jika keputusan itu hanya menyenangkan dalam jangka waktu yang singkat saja, dan seterusnya malah membawa mala petaka.

Karir: Banyaklah menimba ilmu dari orang-orang yang lebih tua dan lebih berhasil daripada anda.

Kesehatan: Sakit perut masih merupakan ancaman bagi pencernaan anda.

Keuangan: Ada rejeki yagn bisa membikin keuangan anda menjadi menguat kembali.

Asmara: Buat apa malu-malu kucing kalau sebenarnya memang suka.

Pisces (19 Februari – 20 Maret)

Peruntungan: Anda perlu pikirkan ambisi yang tampak menggebu-gebu akan tetapi situasi dan kondisi masih belum begitu mendukung, sehingga terkesan hanya sia-sia belaka.

Karir: Bersikap yang sewajarnyasaja, jika punya ide sebaiknya bisa disalurkan nanti pada saat yang tepat.

Kesehatan: Jangan hanya mengandalkan suplemen ataupun vitamin-vitamin jika tidak diimbangi dengan berolahraga yang benar dan kontinu.

Keuangan: Cobalah untuk tidak bertingkah yang macam macam yang menyebabkan pengeluaran sulit untuk dikendalikan.

Asmara: Berusahalah untuk saling mengisi agar keharmonisan dan kekompakan bisa tetap terjaga.

Scorpio (23 Oktober – 22 November)

Peruntungan: Hari yang penuh dengan kejutan, karena dimanapun berada akan selalu menemui peristiwa peristiwa yang tak anda sangka sebelumnya, sehingga cukup membikin kaget.

Karir: Hindari rasa panik dan cemas, cobalah setenang mungkin menghadapi realita ini, agar pikiran tetap bisa berpikir dengan jernih.

Kesehatan: Jangan cepat merasa bebas dulu lalu mengabaikan pantangan yang dianjurkan oleh dokter anda, karena bagaimanapun kondisi badan anda masih perlu dijaga.

Keuangan: Cukup lancar dan pemasukan masih lebih baik dibanding hari kemarin.

Asmara: Jangan persimis melihat hubungan anda akhir akhir ini yang tampak merenggang.

Taurus (21 April – 20 Mei)

Peruntungan: Ada saatnya menerima dan ada saatnya menolak, dan disaat ini menolak tawaran adalah langkah anda yang paling benar. Karena kalau sudah tidak menguntungkan buat apa dipertahankan.

Karir: Tugas yang anda emban dihari ini tidaklah sedikit, dan semua itu butuh penyelesaian cepat.

Kesehatan: Jangan hanya menuruti selera sehingga makan menjadi over, bukankah itu sangat mengganggu kebugaran tubuh anda.

Keuangan: Pandai-pandailah menyeleksi tawaran yang datang.

Asmara: Tingkah laku anda jangan sampai menimbulkan rasa cemburu bagi pasangan anda, sebisa mungkin dihindari.

Sagitarius (23 November – 20 Desember)

Peruntungan: Jangan keburu putus asa ataupun menyerah dengan keadaan walaupun sebenarnya kemujuran masih belum begitu bisa diharap akan tetapi dengan kondisi bisnis anda yang tampak mulai membaik ini sebaiknya bisa ditingkatkan lagi.

Karir: Jika memang tidak tahu sebaiknya tak perlu segan untuk bertanya.

Kesehatan: Kondisi badan masih perlu diperhatikan dengan cermat, jika dirasa masih ada masalah sebaiknya konsultasikan lagi dengan dokter.

Keuangan: Apa mau dikata jika pengeluaran masih melebihi pemasukan yang ada.

Asmara: Berusahalah untuk menerima segala yang ada dan mencari jalan yang terbaik untuk kebahagiaan bersama.

Virgo (22 Agustus – 22 September)

Peruntungan: Dihari ini bukan saatnya untuk berdiam diri, apalagi ide-ide yang muncul cukup banyak sekali, utarakan saja agar semua orang mengerti dengan apa yang anda maksud.

Karir: Tidak perlu merasa malu ataupun takut kalau ide anda akan ditentang.

Kesehatan: Dipertengahan hari sebaiknya kondisi badan harus diperhatikan, terutama yang punya tekanan darah rendah.

Keuangan: Tahan dulu dan jangan ambil resiko yang berbahaya.

Asmara: Utarakan apa yang ingin diutarakan, tidak usah bingung atau takut kalau sampai menyinggung perasaan si dia.

CODINGAN SOFTWARE ZODIAK

Program Zodiak pada Turbo Pascal

program zodiak;
uses wincrt;
var
t,bl,tl,z,j : integer;
ulang : char;
begin
repeat
clrscr;
write ('Masukan Tanggal Lahir (dalam bentuk Angka) : ');
readln(tl );
write ('Masukan Bulan Lahir   (dalam bentuk Angka) : ');
readln(bl);
writeln ('-------------------------------------------');


case bl of
01 : begin t := 31; j := 0 end;
02 : begin t := 29; j := 1 end;
03 : begin t := 31; j := 0 end;
04 : begin t := 30; j := 0 end;
05 : begin t := 31; j := -2 end;
06 : begin t := 30; j := -1 end;
07 : begin t := 31; j := -2 end;
08 : begin t := 31; j := -2 end;
09 : begin t := 30; j := -3 end;
10 : begin t := 31; j := -2 end;
11 : begin t := 30; j := -1 end;
12 : begin t := 31; j := -2 end;
else writeln (' Bulan yang anda Maksud Tidak Tersedia');
end;
begin
if ( tl <= t) = true then
begin
write ('Zodiac Anda Adalah ');
z := ((bl * 31) + ((tl + j) - 21)) div 31 ;
case z of

1 : writeln ('Aquarius : kepribadian : Tenang, Obyektif ,jenius,penuh ide,cepat mengerti);
2 : writeln ('Pisces : kepribadian : Memiliki Sisi Manusiawi Yang Besar, Penuh Cinta, Praktis');
3 : writeln ('Aries : kepribadian : Agresif, Energik,  Berjiwa Pemimpin, Tidak Sabaran, egois,Cepat  Emosi ');
4 : writeln ('Taurus :kepribadian : Keras Kepala, Pasif, Ramah & Sabar, Praktis dan Setia, Memiliki Jiwa  Toleransi'');
5 : writeln ('Gemini : kepribadian : Lincah, Pandai berbicara, Tidak Stabil, Mudah Berubah-Ubah, Mudah Gugup ');
6 : writeln ('Cancer :kepribadian : Suasana Hati Tidak Menentu, Sentimentil, Setia, Penuh  Perhatian, Sulit Memaafkan, Memiliki Daya Ingat Yang Kuat'');
7 : writeln ('Leo : kepribadian : Suka Memimpin, Dermawan Dan Murah Hati, Penuh Gaya, Percaya Diri Tinggi' ');
8 : writeln ('Virgo : kepribadian : Berjiwa Petualang, Pandai, Suka Kebebasan, Mandiri, Berpandangan Luas');
9 : writeln ('Libra :kepribadian : Berjiwa Petualang, Pandai, Suka Kebebasan, Mandir, Berpandangan Luas ');
10 : writeln ('Scorpio : kepribadian : Panjang Akal, Pendiam, Pendendam, Gigih, Tekun ');
11 : writeln ('Sagitarius : kepribadian : Berjiwa Petualang, Pandai, Suka Kebebasan,mandiri’);                       
12. writeln ('Capricon :kepribadian : Pendiam, Rajin dan Ambisius, Materialis, Gengsi Tinggi, Suka  Memerintah');
end;
end
else writeln ('Tanggal Tidak Tersedia');

If bl > 12 then writeln (‘bulan tidak tersedia’);

If tl < 1 then writeln (‘tidak tersedia’);
end;
writeln('------------------------------------------------');
write ('Mau Mencoba lagi ? (y/t) : ');
readln(ulang);
until (ulang = 't' ) or (ulang = 'T')
end.

INPUTPROGRAM ZODIAK

OUTPUT PROGRAM ZODIAK

KESIMPULAN

Dapat di simpulkan bahwa program zodiak yang kami buat ini tidak 100 % akurat, sehingga pengguna jangan terlalu terpatok dengan program ini dan masih terdapat kesalahan codingan yang belum terpecahkan oleh kami.

SARAN

Didalam program ini harus lebih di sempurnakan lagi terutama di bagian codingannya.

DAFTAR PUSTAKA

Wikipedia.com

Google.com

Blogspot.com