alt/text gambar
Headlines News :
Home » » program ramalan zodiak dengan pascal

program ramalan zodiak dengan pascal

Written By Teropong Millenial on Wednesday, January 16, 2013 | 7:18 AM

Udah beberapa minggu gk ngeblog, blog gk keurus, gk kerumat,dll dah!! Yah saatnya mengisi lagi blog gue dengan isinya lgi. .yang mudah mudahan bermanfaat walupun hanya secuil. ..

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 penghapus karet zaman 'Asmara'. . .Ya dri pda qt hrus bca online tw hrus bli mjalahnya, knpa gk qt bkin sendiri aja. . .isinya bisa qt gnti dg ssuka hti qt. ..So bisa dipamerin ktmen2 kn!!! hihihihihi



Dalm program gue ini, gue tambahin sub program bwt isinya biar lbih trtata ja dg rpi.. .
Yg pertma ini syntaknya utk main program :
  1. begin  
  2. clrscr;  
  3. repeat  
  4. begin  
  5.   writeln('             SELAMAT DATANG');  
  6.   writeln('==========================================');  
  7.   writeln('             RAMALAN ZODIAK');  
  8.   writeln();  
  9.   writeln('ZODIAK ANDA :');  
  10.   writeln('------------------------------------------');  
  11.   writeln('1.  : Capricon');  
  12.   writeln('2.  : Aquarius');  
  13.   writeln('3.  : Pisces');  
  14.   writeln('4.  : Aries');  
  15.   writeln('5.  : Taurus');  
  16.   writeln('6.  : Gemini');  
  17.   writeln('7.  : Cancer');  
  18.   writeln('8.  : Leo');  
  19.   writeln('9.  : Virgo');  
  20.   writeln('10. : Libra');  
  21.   writeln('11. : Scorpio');  
  22.   writeln('12. : Sagitarius');  
  23.   writeln('------------------------------------------');  
  24.   write('Silahkan masukkan no zodiak anda (1-12) : ');  
  25.   readln(pilih);  
  26.   isi(pilih);  
  27.   writeln();  
  28.   write('Apakah anda ingin mengulang ? (y/n) : ');  
  29.   readln(ulang);  
  30. end;  
  31. until((ulang <> 'y') or (ulang <> 'Y'));  
  32. writeln();  
  33. writeln('Terimakasih. . .');  
  34. readln();  
  35. end.  
nah yang berikut ini utk sub program isinya, knpa gue pisahkan?? gk tw gan soale dlam program rmalan ini kbnyakan hnya isi dri rmalannya aja kan, yg pnjangnya kyk KA. . :D
  1. procedure Isi(pilihan : byte);  
  2. begin  
  3. case pilihan of  
  4. 1 :begin  
  5.  writeln('Bagi anda para Capricon');  
  6.  writeln('UMUM : Nikmatilah hari - hari anda pekan ini, jangan pusingkan kepala anda yang kecil itu');  
  7.  writeln('dengan seabrek ketakutan dan kegugupan terhadap tantangan dan persoalan hidup. Nikmatilah!');  
  8.  writeln('Ambillah barang sedikit waktu untuk bersenang - senang. Anda bisa berbelanja, berjalan - jalan');  
  9.  writeln('ditempat hiburan dan lain - lain. Yang penting, nikmatilah hari anda');  
  10.  writeln();  
  11.  writeln('ASMARA : Jika anda komunikasi yang kuat, berarti dan benar - benar berasal dari hati,');  
  12.  writeln('anda membutuhkan bimbingan dari seseorang. Seseorang itu mungkin adalah orang terdekat anda.');  
  13.  writeln('Buka mata hati dan hati anda. siapa tahu dia adalah sandaran hati yang selama ini anda cari.');  
  14.     end;  
  15. 2 :begin  
  16.  writeln('Bagi anda para Aquarius');  
  17.  writeln('UMUM : Bagaimana kabar keluarga anda? apakah ada jarak antara mereka dengan anda?');  
  18.  writeln('Kalau ternyata selama ini anda sibuk sekali mengurus diri sendiri, lebih berkonsentrasi pada');  
  19.  writeln('kesibukan pribadi anda dan tidak tahu seperti apa kehidupan dan pergulatan mereka,');  
  20.  writeln('sekarang saatnya anda mengangkat mata dan memperhatikan mereka. mereka adalah surga anda.');  
  21.  writeln('Sumber inpirasi dan semangat.');  
  22.  writeln();  
  23.  writeln('ASMARA : apakan anda sudah siap membuat perubahan yang berarti dalam hubungan anda? kalau ya,');  
  24.  writeln('sekarang adalah waktunya. jangan tahan apa yang berkecamuk di dalam hati anda.');  
  25.  writeln('Katakan dengan terus terang supaya dia tahu yang sebenarnya anda rasakann, tetapi jangan juga,');  
  26.  writeln('terlalu berlebihan. sederhana dan wajar saja.');  
  27.     end;  
  28. 3 :begin  
  29.  writeln('Bagi anda para Pisces');  
  30.  writeln('UMUM : Awal pekan ini anda akan berhadapan dengan banyak hal dan urusan. Masing - masing urusan');  
  31.  writeln('itu punya pengaruh yang tak sama besar. Sebetulnya anda tak harus berhadapan dengan itu.');  
  32.  writeln('Tapi konteks membuat anda turut merasakannya, karena itulah anda sibuk. Sisi yang menarik adalah');  
  33.  writeln('bahwa karena hal itu anda mempunyai banyak teman.');  
  34.  writeln();  
  35.  writeln('ASMARA : Awal pekan bukan waktu yang tepat untuk bermesaraan atau apa pun,');  
  36.  writeln('anda dan si dia tak siap untuk itu. Yang justru terjadi adalah awal pekan menjadi waktu yang tepat');  
  37.  writeln('untuk menjalin relasi dengan orang lain, bergaul dengan orang lain, menperluas pergaulan dan');  
  38.  writeln('berkonsentrasilah pada tugas. Anda butuh akan punya waktu untuk si dia pada akhir pekan.');  
  39.    end;  
  40. 4 :begin  
  41.  writeln('Bagi anda para Aries');  
  42.  writeln('UMUM : Kemampuan sosial anda sangat bagus minggu ini. anda akan mendapatkan keberhassilan kecil.');  
  43.  writeln('Minggu ini juga akan ada benyak kejadian yang menyenangkan untuk anda dan teman - teman anda,');  
  44.  writeln('selama anda selalu mengikuti kata hati. selanjutnya, lihat dan nikmati sada apa yang akan terjadi selanjutnya.');  
  45.  writeln();  
  46.  writeln('ASMARA : Memberi akan terasa sama manisnya dengan menerima sesuatu dari orang yang dikasihi, dan kedua hal tersebut');  
  47.  writeln('akan menjadi kebiasaan anda pada awal pekan ini. Pada pertengahan minggu, semua itu akan berkurang,');  
  48.  writeln('anda akan berhadapan dengan masalah perasaan yang cukup rumit. Tapi pada akhir minggu semua akan berubah.');  
  49.  writeln('anda kembali seksi. tak heran jika anda menjadi pusat perhatian.');  
  50.    end;  
  51. 5 :begin  
  52.  writeln('Bagi anda para Taurus');  
  53.  writeln('UMUM : Mengawali pekan ini dengan kegembiraan dan semangat yang luar biasa besar. ada pun terasad ringan dan berjalan');  
  54.  writeln('sesuai dengan apa yang anda harapkan. Ungkapkan apa yang ada di dalam hati dan otak anda. Jangan tahan,');  
  55.  writeln('toh kesempatan untuk itu terbuka lebar di depan mata anda.');  
  56.  writeln();  
  57.  writeln('ASMARA : Hei, jangan terlalu sibuk bekerja. Anda mesti punya waktu untuk si dia, untuk hubungan anda.');  
  58.  writeln('Luangkan sedikit waktu untuk mengungkapkan isi  hati anda. Katakan kepadanya bahwa anda menikmati hubungan ini.');  
  59.  writeln('katakan kepadanya bahwa anda merasa nyaman berjalan bersamanya.');  
  60.    end;  
  61. 6 :begin  
  62.  writeln('Bagi anda para Gemini');  
  63.  writeln('UMUM : Dengarlah pada apa yang coba diakatakan oleh teman - teman anda. Mereka memberikan anda saran');  
  64.  writeln('untuk mencoba sesuatu yang cukup beresiko, dan saran mereka itu benar, pada titik tertentu');  
  65.  writeln('anda perlu merendah dan menahan diri, sekalipun konteks berjalan tak enak dan menciptakan kesulitan tersendiri.');  
  66.  writeln('kalau sudah demikian, cari orang yang anda tahu bisa membantu anda untuk keluar dari kesulutan.');  
  67.  writeln();  
  68.  writeln('ASMARA : Romantisme anda berjalan menarik pekan ini. Sekarang saatnya untuk anda membuat hubungan anda');  
  69.  writeln('dengan si dia berjalan menarik, seperti apa? terserah anda. Nikmati hubungan anda, tapi anda juga harus bisa tetap');  
  70.  writeln('pada pendirian andakalau ada sesuatu, anda tahu apa yang ada didalam hati anda sendiri.');  
  71.    end;  
  72. 7 :begin  
  73.  writeln('Bagi anda para Cancer');  
  74.  writeln('UMUM : Anda disukai banyak orang, tanya kenapa? karena apa yang anda lakukan, baik dilingkungan kerja,');  
  75.  writeln('lingkungan pergaulan, maupun lingkungan keluarga, lumayan membatu orang, meringankan beban orang');  
  76.  writeln('dan seperti itulah apa dunia anda. Kalau kemudian muncul masalah, anda harus tahu apa yang akan anda lakukan.');  
  77.  writeln('Jangan bekerja seorang diri, delegaislan tugas atau beban yang ada.');  
  78.  writeln();  
  79.  writeln('ASMARA : Jangan tunda lagi kalau anda ingin "menembak" hatinya, kalau bukan sekarang, kapan lagi?');  
  80.  writeln('Apalagi si dia yang membuat anda yakin anda berharga dimata banyak orang juga ingin dekat anda.');  
  81.  writeln('Dekatilah dia dan katakan isi hati anda, dia tidak minta banyak hal selain itu, dan segalanya akan terasa indah.');  
  82.    end;  
  83. 8 :begin  
  84.  writeln('Bagi anda para Leo');  
  85.  writeln('UMUM : Awal pekan ini anda berhadapan dengan masalah. Agak rumit karena banyak hal terlihat');  
  86.  writeln('seperti jalinan yang rumit, yang susah sekali diburai. Kalau sudah terjebak sedemikian rupa,');  
  87.  writeln('jangan tergesa - gesa, pikir baik - baik dan lihat persoalan langsung pada akarnya.');  
  88.  writeln('kalau bisa, mintalah bantuan teman atau rekan kerja anda.');  
  89.  writeln();  
  90.  writeln('ASMARA : Benar bahwa si dia ingin sekali menghabiskan banyak waktu dengan Anda.');  
  91.  writeln('Benar juga bahwa kalau Anda ingin hubungan Anda berjalan baik, Anda harus bisa meluangkan waktu');  
  92.  writeln('untuk si dia. Tapi tidak ada salahnya jika sesekali Anda juga meluangkan waktu untuk berjalan');  
  93.  writeln('bersama teman-teman Anda. Nikmatilah waktu Anda bersama mereka');  
  94.    end;  
  95. 9 :begin  
  96.  writeln('Bagi anda para Virgo');  
  97.  writeln('UMUM : Anda akan memulai minggu ini dengan langkah yang pasti. Itu karena Anda sadar');  
  98.  writeln('bahwa tak baik menyia-nyiakan semangat dan isi otak Anda yang encer itu. Tambahan lagi,');  
  99.  writeln('Anda `dipaksa` untuk bisa memikirkan jalan keluar di tengah himpitan banyak persoalan.');  
  100.  writeln();  
  101.  writeln('ASMARA : Anda sudah punya gandengan? Atau Anda masih berjalan seorang diri? Tak apa. Itu bukan masalah.');  
  102.  writeln('Anda tetap saja menikmati hidup Anda. Tapi jangan juga menutup diri. Kalau ada yang ingin membantu Anda,');  
  103.  writeln('terima dan nikmati. Dan jangan juga membuat rencana terlalu banyak pada akhir pekan ini.');  
  104.  writeln('Ingat, waktu Anda sangat berharga.');  
  105.    end;  
  106. 10 :begin  
  107.  writeln('Bagi anda para Libra');  
  108.  writeln('UMUM : Jangan takut untuk mencoba berbagai hal baru seperti musik baru, restoran baru, atau gaya baru.');  
  109.  writeln('Jangan takut juga untuk mengambil tantangan baru. Justru di situlah letak "isi" Anda. Bukankah Anda');  
  110.  writeln('dilahirkan untuk menghadapi tantangan? So, jangan mengelak. Ingat, tantangan itu bisa saja membawa perubahan dalam hidup Anda');  
  111.  writeln();  
  112.  writeln('ASMARA : Anda memiliki kemampuan yang luar biasa untuk mengubah emosi ke dalam ekspresi. Hal inilah yang membuat kehidupan cinta Anda');  
  113.  writeln('tetap berjalan menarik. Dan ketahuilah, pasangan Anda tergila-gila karena hal tersebut. Anda tak terlalu banyak berbicara,');  
  114.  writeln('namun sikap yang hangat dan lembut yang selalu Anda berikan membuatnya engan berada jauh dari sisi Anda.');  
  115.     end;  
  116. 11 :begin  
  117.  writeln('Bagi anda para Scorpio');  
  118.  writeln('UMUM : Perhatikan tantangan baru yang akan datang minggu ini. Meskipun Anda tak takut dan bisa menghadapi');  
  119.  writeln('tantangan baru, apa pun itu, Anda tetap saja perlu mempersiapkan diri, Anda harus ingat baik-baik');  
  120.  writeln('bahwa tak semua tantangan membawa "isi" yang sama. Pasti bobotnya berbeda.');  
  121.  writeln();  
  122.  writeln('ASMARA : Ingatlah untuk tetap saling berbagi dan saling memperhatikan. Jangan biarkan komunikasi Anda');  
  123.  writeln('dengan si dia terputus, atau Anda akan menyesal jika kemudian terjadi sesuatu yang tidak diharapkan.');  
  124.  writeln('Keluarkan keluh kesah Anda agar dia mengerti apa yang Anda inginkan. Dan perhatikan pula keluh kesahnya');  
  125.  writeln('agar hubungan Anda tetap seimbang. Untuk Anda yang belum memiliki pasangan, Anda akan menemukan seseorang');  
  126.  writeln('yang menarik perhatian Anda di lingkungan yang sama dengan Anda.');  
  127.     end;  
  128. 12 :begin  
  129.  writeln('Bagi anda para Sagitarius');  
  130.  writeln('UMUM : Selesaikan pekerjaan Anda secepat mungkin sehingga Anda bisa beristirahat total di akhir pekan nanti.');  
  131.  writeln('Anda butuh waktu untuk beristirahat supaya Anda punya semangat dan tenaga yang baru untuk mengerjakan');  
  132.  writeln('tugas selanjutnya. Karena itu, jangan sia-siakan waktu istirahat Anda.');  
  133.  writeln('Santai sejenak bersama keluarga adalah hal terbaik yang bisa Anda lakukan.');  
  134.  writeln();  
  135.  writeln('ASMARA : Mungkin selama ini Anda terlalu banyak bicara dan sedikit beraksi. Tunjukkan rasa sayang Anda padanya. Caranya?');  
  136.  writeln('Terserah Anda. Anda, misalnya, bisa memberikan kejutan-kejutan kecil yang bisa membangkitkan gairah baru');  
  137.  writeln('dalam kehidupan cinta Anda. Jangan takut dicap berlebihan. Apa yang Anda lakukan akan membuatnya senang dan merasa dihargai.');  
  138.    end;  
  139. end;  
  140. end;  
nah itu tdi spotong dari progrmanya,utk contoh program jadinya bisa didownlod disni ya!!
semoga bermanfaat. ..
Share this post :

Post a Comment

 
Support : Creating Website | Muhammad Dikha Wijaya | Vibra Band
Copyright © 2011. Teropong Millenial - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger