Cute Bow Tie Hearts Blinking Blue and Pink Pointer

This is default featured slide 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 2 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

Selasa, 27 Desember 2011

Mama, Papa. Jangan pergi..!!

Tadi malam aku mimpi buruk tentang mamaku. Mimpi yang biasa ditakuti oleh anak kecil mungkin yaa, menganggap mimpi itu kenyataan. Aku mimpi mamaku meninggal dunia. Saking takutnya aku, ngigau ampe kedengeran ama mamaku di kamar Beliau. Aku nangis di pelukan mamaku dan berkata, " mama, jangan tinggalin Fanny " (lebaygile). Tapi memang itulah kenyataannya. Ketakutan seorang anak ketika melihat *nyata/tidak* orang tua nya meninggal.

dalam mimpi tersebut aku masih bisa berkomunikasi dengan mamaku dengan sebuah surat yang spesial aku siapkan untuk mamaku. Saat aku rindu, aku membayangkan mamaku di sampingku dan menulis surat untuk mama. Setelah aku bangun, surat balasan dari mamaku sudah ada di atas meja belajarku.

Dramatis banget kan ya?

Tapi aku gak pengen mama cepet" pergi. Aku masih pengen bersama dengan anggota keluarga lengkap. Kadang aku pernah berfikir, mama papa nggak usah kerja aja. Biar dirumah terus supaya kemungkinan kecelakaan di luar sana gak datang ke mama papa. Tapi kayaknya itu konyol banget deh. Yang namanya takdir, mau diapain juga tetap berlaku.

Mimpi ini sebenernya udah beberapa kali, sih. Tapi karena aku sudah mulai dewasa, aku kurang percaya bunga tidur seperti itu. Takdir juga akan datang. Dan kewajibanku sebagai anak mama dan papa menjaga fisik dan bathin kedua orang tua ku.

Aku sayang mama dan papa ku..

:*

Senin, 26 Desember 2011

Kenangan Tahun 2011


Hai teman..

Apa kabar? Setelah sekian lama aku nggak nge blog, aku merasa rindu yang luar biasa pada blog ku *lebay
Urusan kuliah sudah selesai. Aku jadi bebas nge blog dan jalan jalan ke dunia maya kapanpun aku pengen. *mumpung libur kuliah dan libur kerja*

Kali ini aku mau curcol aja nih mengenai lika liku kehidupanku dari awal hingga akhir tahun 2011.

Oke mari simak.

-          Liburan semester satu yang menyedihkan.
-          Indeks Prestasi Semester satu yang kurang memuaskan.
-          Permasalahan dan kemelut Rumah Tangga ku dengan si manis *plak
-          Menggalau sepanjang liburan karena IP yang tidak aku suka. * 3,13 * Nauzubillah
-          Aku dirawat di rumah sakit karena sakit Hepatitis A
-          Perkuliahan semester dua yang tidak nyaman
-          Persaingan di bangku perkuliahan semakin ketat
-          Indeks Prestasi Semester dua yang sangat memuaskan * 4,00 * alhamdulillah
-          Konflik dengan (mantan) sahabat dunia maya * sampai sekarang gak kelar”
-          Hubungan dengan si manis semakin romantis dan membaik :D
-          Aku mulai ngajar Private matematika dan fisika ( awalnya murid ku Cuma 2 orang, tapi sekarang udah 3 orang )
-          Usaha distributor Pulsa ku semakin berkembang *alhamdulillah
-          Aku diterima sebagai pengajar Fisika Nurul Fikri Cabang Padang *alhamdulillah

Ini hanya beberapa dari kenangan masa lalu di tahun 2011 yang masih ku ingat. Sebenarnya masih banyak. Tapi karena ada sebagain (besar) aku lupa, ya sudah, Cuma garis besarnya saja.

Tapi yang paling membuatku senang sekarang ini adalah aku diterima sebagai pengajar Nurul Fikri itu. Sumpah, aku nggak nyangka banget. Dengan bekal keberanian, pede yang tinggi, dan ilmu seadanya aku mengikuti test tertulis pada tanggal 15 Desember 2011. Tanggal 22 Desember 2011 datang sms kalo aku lulus test tertulis dan dapat mengikuti test Microteaching dan wawancara pada tanggal 23 Desember 2011. Pada tanggal itu juga hasilnya di umumkan dan alhamdulillah aku termasuk salah satu orang yang lulus seleksi tersebut. Alhamdulillah. Aku bersyukur banget. Padahal aku masih semester 3. Tapi semua gak sia-sia dan perjuanganku nggak berhenti disitu saja. Tanggung jawab ku nanti di awal Tahun 2012 menjadi pengajar disana.

Selama aku mampu dan percaya aku bisa, aku akan selalu memberikan yang terbaik. Setiap keputusan yang ku ambil akan aku terima dan aku laksanakan dengan sebaik-baiknya.

Kamis, 22 Desember 2011

Korban Teka-Teki Harvard

Nama : Fanni Fetriasya (ani)
Umur : 19 tahun

Korban TA DDPK

Cewek ini adalah Korban Tugas Akhir DDPK kami :)
salah nyambung *koplak* hanya kami yang tahu..
hanya cuma ingin sharing hal yang aneh :D

Waiting for Mr. Asrizal (yawn)

Kamis yang melelahkan.. Aku dan teman temanku ( ISTE ) mau kuliah English For Physics.. Janjinya sih jam 1 siang. Tapi setelah lama menanti, Bapaknya gak kunjung datang.. Menyebalkan , tau gak? (gak tau yaa?? Ndeso..!! Hahah )

Padahal besok deadline Tugas Akhir DDPK.. seharusnya waktu ini dapat ku manfaatkan dengan mengerjakan TA. Tapi aku dan teman teman harus menanti hal yang tak pasti seperti ini..

Begitu lah kami, anak Fisika, pantang menyerah menunggu Dosen :)

Temen@ku (dari kanan) : Widya Fibrianti, Trisha Gustia, Dea Stivani Suherman, Hasanatun Ma'murah, Elma Rafika

Dosen Termodinamikaku : Pak Razi 

bawah (dari kanan) : Julita Kartini, Ipi, Dila Oktantia, Fanni Fetriasya

Rabu, 21 Desember 2011

Selamat Hari Ibu

Mama, hari ini hari spesial untuk mama..
Walaupun hari-hari sebelumnya juga sama..
Tapi hari ini Fanny kan beri yang terbaik untuk mama..
Love You ma..

Selasa, 20 Desember 2011

Help Me please..

Aku terpuruk dalam beban dan tugas kehidupan..!!!

Aku butuh seseorang yang membawaku kembali dari keterpurukan ini.. Aku tak bisa sendiri.. Yaa Allah,,

Ujian DDPK

Ujian DDPk mendadak.. Menyebalkan.. Aku berencana untuk menyelesaikan Tugas Akhir DDPK hari ini, Tapi Mr. A mengganti jadwal Ujian Praktikum ke Hari ini.. Bagaimana ini? Menyebalkan sekali harus menunda (lagi) membuat Tugas Akhir yang deadline tanggal 23 ..!!!

Jumat, 16 Desember 2011

Uang

Dunia pendidikan telah mati
Gila karena uang…uang..uang… dan uang
Orang yang pintar
Kini tersingkirkan
Karena uang dan jabatan orang tua
Dimanakah keadilan…..?????

Ingin menjadi Dokter bayar….
Ingin menjadi PNS bayar…..
Ingin menjadi Polisi bayar…
Semuanya serba uang..uang… dan uang

Apa jadinya negeri ini..???
Jika orang pintar
Tersingkirkan oleh Uang…

Kapankah keadilan itu ditegakkan???

Otak Manusia Siapa yang Paling Bahagia di Dunia?

Wisconsin, Adakah orang yang paling bahagia di dunia di tengah tumpukan masalah hidup yang melilit? Ternyata peneliti menemukan otak manusia paling langka yang berisi gelombang gamma, yakni gelombang yang diduga sebagai penentu kebahagiaan seseorang.
 
Gelombang gamma sangat jarang ditemukan pada manusia. Tapi otak seorang biksu berkebangsaan Perancis yang tinggal di daratan Himalaya diketahui penuh dengan gelombang gamma. Hal itu membuatnya dijuluki manusia paling bahagia di dunia.
 
Biksu tersebut bernama Matthieu Ricard. Menurut Ricard, kunci kebahagiaan terletak pada kekuatan mental. Sebagai penganut ajaran dan teori agama Budha, ia percaya bahwa kebahagiaan akan diperoleh jika fokus pada kekuatan diri sendiri. Teknik meditasi dan sikap mementingkan kepentingan orang lain adalah kuncinya.
  Ricard menyebutkan ada tujuh aspek yang mempengaruhi kebahagiaan dalam hidup seseorang, diantaranya keluarga, pekerjaan, kesehatan dan sikap mental. Semua aspek itu tergabung dan terperangkap dalam pikiran. Untuk itu, apapun yang terjadi dalam hidup, semuanya harus dikembalikan pada pikiran yang tenang.

"Jika seseorang bisa menenangkan pikiran, masalah apapun yang ada dalam hidup akan terasa baik-baik saja," kata Ricard seperti dikutip dari Timesonline, Selasa (9/2/2010). Demi menghasilkan pikiran yang fokus dan tenang, Ricard sengaja untuk tidak menikah, tidak mempunyai anak atau berkarir.
 
Teori memfokuskan dan menenangkan pikiran yang diterapkan Ricard ternyata diakui oleh para pakar otak. Berdasarkan hasil scan otak yang dilakukan peneliti dari University of Wisconsin terhadap Ricard, diketahui bahwa bagian abu-abu pada otaknya menghasilkan gelombang gamma.
 
Gelombang gamma adalah gelombang yang menentukan tingkat kesadaran, ingatan, pembelajaran dan lainnya. Dalam sejarah dan literatur neuroscience, gelombang gamma belum pernah ditemukan sebelumnya pada otak manusia. Gelombang gamma inilah yang mempengaruhi tingkat ketenangan dan kebahagiaan seseorang.
 
Peneliti tidak hanya memeriksa otak Ricard, tapi juga faktor lainnya seperti gerakan otot muka, kemampuan mempertahankan ketenangan dan sebagainya. Semua faktor itu jika digabungkan akan menghasilkan kesehatan otak yang optimal.
 
Meski Ricard diduga sebagai manusia paling bahagia di dunia, ia tidak pernah mengajak apalagi memaksa orang lain untuk masuk dan menganut agamanya. Pakar saraf dan otak pun hanya menyarankan agar orang-orang mengikuti teknik yang diterapkan Ricard jika ingin hidup tentram dan bahagia.
 
Beberapa teknik yang dianjurkan Ricard diantaranya yaitu meditasi, mendahulukan kepentingan orang lain dan melatih pikiran bawah sadar.
 
Tak jauh berbeda dengan Ricard, seorang pengarang buku 'Happiness: Lessons from a New Science', Lord Layard pun mengatakan bahwa rumus bahagia adalah bersosialisasi, membuat koneksi, bergerak secara aktif, terus belajar dan biasakan memberi sesuatu untuk orang lain.
 
Menurut Layard yang juga merupakan pakar ekonomi Inggris, pemerintah perlu merancang program pembangunan pola hidup yang tepat untuk meningkatkan rasa bahagia.
  "Kebanyakan dana dialokasikan pemerintah untuk mengurangi kemisikinan atau penyakit. Seharusnya pemerintah juga perlu mengalokasikan dana lebih untuk pelayanan kesehatan mental, dukungan orangtua dan edukasi yang positif," kata Layard.(fah/ir)

sumber : http://health.detik.com/read/2010/02/09/160046/1296057/766/otak-manusia-siapa-yang-paling-bahagia-di-dunia?993306755

10 Kebiasaan Buruk Penghalang Kesuksesan



Di bawah ini adalah 10 kebiasaan buruk yang menghalangi dirimu dari kesuksesan:


1. Tidak tahu prioritas

Ketika kamu memiliki suatu pekerjaan penting yang harus dilakukan namun kamu malah melakukan pekerjaan lain yang tidak penting, maka ini adalah sebuah bencana. Jika apa yang kamu kerjakan sangat banyak, buatlah daftar to-do-list yang berurutan mulai dari pekerjaan yang penting sampai yang kurang penting.

2. Menunda-nunda pekerjaan (procrastinate)
Orang yang suka menunda-nunda pada akhirnya cenderung tidak melakukan apapun. Sikap yang menonjol dari seorang procrastinator adalah sikap optimis bahwa ia bisa mengerjakan sesuatu dalam waktu yang singkat. Padahal waktu yang singkat akan memberikan tekanan yang lebih besar dan membuat hasil pekerjaanmu tidak maksimal atau lebih parah lagi, tidak selesai.

3. Tetap berada di zona nyaman
Orang yang tetap berada di zona nyaman adalah orang yang takut akan perubahan. Takut akan hal baru akan menghalangi seseorang dalam meningkatkan kemampuan, mengembangkan diri dan berinovasi. Apakah kamu akan pernah sampai di puncak apabila kamu terus berkemah di lereng gunung?

4. Menyerah terlalu cepat
Ketika kamu sudah melangkah, maka kamu akan menghadapi kesulitan, halangan, dan kesalahan. Semua orang mengalami itu, bukan hanya dirimu. Yang membedakan adalah reaksi kita saat menghadapi kesulitan. Kamu harus mengetahui bahwa tidak ada cara atau resep mudah untuk mencapai kesuksesan, apapun yang kamu kerjakan. Tahukah kamu bahwa kegagalan adalah pilihan, bukan nasib? Kamu hanya akan gagal ketika kamu menyerah.

5. Tidak ada tindakan
Rencana sebaik apapun, mimpi sebesar apapun tidak ada gunanya apabila kamu tidak mengambil tindakan. Kamu mungkin saja punya impian menjadi miliuner, tetapi bisakah itu terjadi apabila apa yang kamu kerjakan hanya menonton tv atau bermain game?

6. Tidak memiliki mimpi
Orang yang tidak memiliki mimpi tidak akan memiliki alasan untuk berjuang dan berusaha. Ibaratnya seperti bermain basket tanpa keranjang untuk memasukkan bola, apa gunanya? Hidupmu akan hampa dan membosankan apabila kamu tidak memiliki mimpi untuk diperjuangkan. Manusia tidak akan hidup selamanya, apakah kamu senang menghabiskan waktumu yang singkat ini dengan mengembara tanpa tujuan?

7. Perfeksionis
Perfeksionis adalah pembunuh karir. Kamu tidak akan pernah bisa menghargai hasil pekerjaanmu dan selalu fokus pada apa yang salah dari pekerjaanmu itu. Memang berinovasi dan memperbaiki kekurangan pekerjaan kita adalah hal yang sangat baik, namun semua itu bisa kita lakukan seiring waktu berjalan. Pekerjaan manusia tidak akan pernah sempurna, akan selalu ada ruang untuk kemajuan. Jangan lupa bahwa masih banyak hal yang harus kamu kerjakan.

8. Tidak fokus
Ini adalah salah satu kesalahan besar yang sering dilakukan orang. Mereka memiliki ambisi besar untuk sukses, lalu mereka ingin mengerjakan banyak hal dalam satu waktu. Hasilnya sudah bisa ditebak, mereka kewalahan. Mereka berpindah dari satu pekerjaan, ke pekerjaan lain, namun tidak ada satupun dari pekerjaan itu yang selesai. Bisakah kamu memakan satu hamburger hanya dalam satu gigitan?

9. Budaya instan
Zaman sekarang adalah zaman dimana manusia sangat dimanjakan. Handphone, komputer, internet, mobil, lift, mie instan, bahkan makanan siap saji. Karena sudah terbiasa terhadap fasilitas-fasilitas seperti itu, manusia ingin serba cepat dalam melakukan sesuatu, termasuk dalam meraih kesuksesan. Mereka biasanya akan mencari suatu pekerjaan yang diyakini mampu membuat ia cepat sukses, dan ketika menghadapi kegagalan, mereka akan putus asa. Kamu harus tahu bahwa, tidak ada yang namanya kesuksesan yang instan. Seperti yang dikatakan di awal artikel, kesuksesan adalah perjalanan.

10. Manajemen waktu yang buruk
Satu tahun terdiri dari 365 hari, satu hari terdiri dari 24 jam, dan satu jam terdiri dari 60 menit. Semua makhluk hidup di bumi ini memiliki waktu yang sama, namun mengapa hasilnya berbeda? Sedikit yang sukses, banyak yang gagal. Cara bagaimana kita memanajemen waktu sangat menentukan. Sedikit orang yang berusaha mewujudkan mimpinya, namun sangat banyak yang bermalas-malasan dan terus menunggu waktu yang mereka anggap tepat. Apa alasannya? Aku masih muda, aku belum siap, hidup harus dinikmati, atau alasan lain yang intinya mengatakan bahwa ‘waktuku masih banyak, tenang saja’. Bisakah kamu mengatakan itu, apabila seandainya kamu diberi tahu bahwa hidupmu tinggal 1 hari, 1 bulan, atau 1 tahun lagi? Apakah kamu masih menganggap waktumu masih banyak? Apabila kamu tidak pernah mengatur waktumu, pada akhirnya kamu hanya akan bisa menyesal, ternyata semua sudah terlambat.
 
 
dari segala sumber

Membongkar Hoax 'Udang dan Vitamin C'

Cerita di bawah ini mohon kasih tahu kepada semua teman /orang yg anda sayangi,Peristiwa ini terjadi di Menado, ada seorang wanita meninggal mendadak dengan lima panca indera keluar darah, setelah diselidiki ternyata wanita ini meninggal bukan karena bunuh diri atau dibunuh, melainkan karena ketidaktahuan tentang racun akibat makanan. Wanita ini ada kebiasaan minum Vitamin C tiap hari. Ini tdk masalah. Masalahnya karena malam itu wanita ini kebanyakan makan udang. Sebenarnya cuma makan udang saja tidak masalah, orang rumahnya juga banyak makan udang malam itu dan tak ada yg meninggal. Tetapi, karena udang mengandung Arsenic Pentoxide (As2O5), dan berhubung habis makan udang wanita itu minum Vitamin C, terjadilah reaksi kimia di dalam perut yang membuat As2O5 berubah menjadi Arsenic Trioxide (As2O3) yg sangat beracun. Ini mengakibatkan hati, jantung, ginjal, pembuluh darah rusak, usus keluar darah, pembuluh darah melebar hingga wanita itu meninggal mengenaskan dgn kelima panca indera keluar darah.Selain nafsu makan yang menguap, Anda tentu segera meneruskan informasi ini kepada setiap orang yang Anda kenal.

Tapi... apa benar? 

Arsen merupakan salah satu unsur pembentuk kulit bumi. Karena itu, elemen ini banyak ditemukan terkandung di air laut dan endapannya. Jika air laut mengandung arsen, besar kemungkinan hewan laut mengandung arsen. Memang betul, hewan-hewan laut memang diketahui dapat mencerna arsen di air laut sehingga kita dapat mendeteksi arsen sejumlah maksimal 200 ug dalam setiap gram hewan. Namun, yang kita peroleh bukan arsen pentoksida yang bersifat anorganik. Arsen yang terdapat dalam tubuh hewan laut ini merupakan senyawa arsen organik, yaitu arsen yang telah berikatan dengan karbon dan hidrogen, bernama arsenobetain yang tidak bersifat toksik. Di dalam tubuh manusia, arsenobetain ini akan dikeluarkan melalui urine dalam bentuk utuh, sama sekali tidak tercerna, dan tidak berbahaya.

Namun bisa saja kan arsenobetain bereaksi dengan vitamin C membentuk arsen trioksida?

Tidak. Arsen trioksida hanya dapat dihasilkan dari pembakaran unsur arsen (As) atau sebagai hasil samping pada peleburan logam seperti tembaga, perak, dan emas. Arsen trioksida umumnya digunakan dalam pengawetan kayu dan pembuatan kaca. Tapi, senyawa ini memang benar berbahaya. Jika kita memberikannya pada hewan percobaan, 50% tikus akan kehilangan nyawa pada pemberian 15,1 mg/kg atau sekitar 3,02 mg untuk tikus berbobot 200 gram. Jika jumlah ini dikonversikan ke manusia, dengan pemberian 16,91 mg saja 50% penduduk bumi punah sudah. Zaman dahulu kala, arsen trioksida memang menjadi racun favorit. Bahkan mitos mengatakan, Napoleon Bonaparte tewas akibat diracuni anggur arsenik dalam pengasingannya di pulau St. Helena. Tapi, lain halnya di abad 21. Arsen trioksida dalam jumlah yang lebih kecil (0,15 mg/kg berat badan) telah diketahui dapat mengobati leukemia promyelositik akut (acute promyelocytic leukaemia, APL). Hebat ya?

Kemudian apa kabarnya arsen pentoksida? Apakah senyawa itu benar-benar ada?

Ada. Senyawa ini dapat dihasilkan dari oksidasi lanjutan arsen trioksida. Senyawa ini berada dalam kategori toksik yang sama dengan arsen trioksida. Arsen pentoksida juga bisa kembali menjadi arsen trioksida dengan menggunakan reduktor logam yang kuat. Vitamin C memang bersifat reduktor, tapi untungnya ia tidak cukup kuat mengembalikan arsen pentoksida menjadi senyawa pembunuh.

Kesimpulan yang dapat kita ambil:

1. Udang tidak mengandung arsen pentoksida
2. Vitamin C tidak dapat mengubah arsen pentoksida menjadi arsen trioksida
3. Silakan kembali nikmati udang bakar dan es jeruk Anda, karena perkawinan mematikan udang dan vitamin C hanya mitos semata.

*LD50 : dosis yang dapat mematikan 50% dari jumlah populasi percobaan.
**Dosis manusia diperoleh dari konversi dosis tikus, dihitung berdasarkan perbandingan bobot dan faktor metabolisme#sumber: serambisehat.com

Pohon Mangga

Jadilah engkau seperti pohon mangga…
Mereka melemparimu dengan batu, tapi kau membalasnya dengan buah

Kamis, 15 Desember 2011

Smile ^___^




Ku tulis puisi ini
Dengan senyum setulus dari hati
Bukan bualan atau bohongan
Senyum….senyum….senyum
Ayo senyum………
Setiap hari selalu senyum
Tak peduli kata orang, aku ini kurang waras, agak gila atau malah sudah gila
Tetaplah senyum………

http://fiksi.kompasiana.com/puisi/2011/06/23/puisi-senyum/

Rabu, 16 November 2011

DOWNLOAD BUKU T.O.P

Hai friends..
lama nggak posting nih..
yah maklum aja, orang sibuk :D

Fanny baru dapat ilmu baru nih dari Dosen Fanny dikampus..
Buat teman teman yang mau mendownload buku buku yang T.O.P silahkan aja download disini
*free*
Insya Allah, buku buku nya bagus bagus dan pasarannya juga pasaran Internasional..
Dan yang pastinya semua buku buku nya mahal mahal *kalo dibeli pake duit :D*

oke teman?!

Selamat Mendownload :D

Sabtu, 05 November 2011

Mohon maaf lahir bathin kawan .. Minal aidzin wal faidzin :)

Malam Takbiran..
Memasuki pesta umat islam..
Idul adha..
Saya Fanny Rahmatina Rahim..
Dan keluarga..
Mengucapkan..
Minal aidzin wal faidzin..
Mohon maaf lahir dan bathin..

Atas kesalahan kami..
Baik yang disengaja..
Maupun tidak..
Baik sadar, maupun tidak..
Baik besar, maupun kecil..
Sesungguhnya, kesalahan ada pada kami..
Dan kebenaran ada pada Allah Swt..

Maka dari itu,
Kami mohon maaf sedalam dalamnya..
Semoga Allah memberkahi amalan kita :)

Amiin..

Rabu, 02 November 2011

Gombalan Maut Berdasarkan Jurusan Kuliah

Mau tau kan Semua kata kata gombal Ala Anak Kuliahan????

 Cek disini ^^


Jurusan Perminyakan: Kalo aku jadi SPBU, pasti tiap hari akan papan bertulisan ‘CINTA HABIS’ soalnya kamu telah memborong semua seluruh pasokan cintaku.

Jurusan Sistem Informasi: Kelihatannya laptopku error deh, soalnya tiap mau ngetik deket-deket kamu font yg keluar pas selalu Times New “Romance”.

Jurusan Teknik Informatika: Ketika virus yang bernama CINTA.exe menyerang, virus tu kan selalu mengaingatkan hatiku padamu.

Jurusan Teknik Elektro: Aku memang anak elektro, tapi akupun tak mengerti kenapa sentuhanmu bisa menyetrum sanubari kalbuku.

Jurusan Geofisika: perlu banyak alat untuk tahu apa isi bumi, tapi tak butuh perlu banyak alat untukmu mengetahui isi hatiku

Jurusan Kedokteran: tanpa membedah isi hatimu pun, aku tahu bahwa kamu sungguh sangat mencintaiku

Jurusan Teknik Lingkungan: Pesona Senyummu bagaikan global warming, yang mampu mencairkan isi hatiku.

Jurusan Seni Rupa: Kau warnai duniaku dengan cinta dan kasih sayang.

Jurusan Seni Musik: aku dan kamu bagaikan nada-nada yang bila berkumpul akan membentuk suatu harmoni

Jurusan Keperawatan: Mencintaimu bagaikan diare, tak dapat ditahan lagi. (duhhh jelek benget kayaknya ^o^),  sakitq hanya dapat bisa disembuhkan dengan cintamu, cintaku padamu membius segala sakit yang ada di jiwaku (begitu seemestinya ^o^),.,.,

Jurusan Farmasi: Sampai sekarang, aku belum menemukan obat untuk menyembuhkan hatiku yang kecanduan cintamu

Jurusan Kimia: Kau bagaikan alkohol yang memabukkan dan membiusku bagai eter

Jurusan Kedokteran Hewan: Aku penyayang binatang, jadi aku tidak peduli meski kamu itu buaya (iiiiiiiiiiiiiiiiiiihhhhhhhhhhhhhh, ga' romantis buangeeeeeeeeet #o#),kelinci memang sangat menggemaskan, tapi pipi manismu jauh lebih menggemaskan

Jurusan Tata Busana: Indahnya baju yang kau kenakan itu pasti seindah hati orang yang mengenakannya

Jurusan Kepolisian: aku nggak akan tilang kamu meski kamu parkir di hatiku dan otakku setiap saat

Jurusan Teknik Metalurgi: cintaku padamu tak kalah membara dibandingkan api dalam tanur

Jurusan Hukum: salah apa aku hingga aku terpenjara dalam cintaku kepadamu

Jurusan Manajemen: kalo aku jadi George R. Terry aku akan mengganti fungsi manajemen dari P.O.A.C menjadi L.O.V.E karena aku selalu teringat wajahmu.

Jurusan Pertanian: Entah sejak kapan kau tanamkan bibit cinta ini di sanubari hatiku

Jurusan Perikanan: Kamu abis mancing ya? hebat kan aku tau soalnya di kail kamu ada hati aku tuh nyangkut

Jurusan Tata Boga: Kalo teh dikasih gula kan jadi Teh Manis, coba kalo Teh dikasih kamu, pasti jadi Teh Cantik.

Jurusan Arkeologi: Aku mau masuk jurusan Arkeologi biar bisa terus menggali dimana letak cinta kamu

Jurusan Matematika: Hidupku tanpamu bagaikan cos90=0. Kau dan aku adalah sin90=1 dan selalu bersamamu adalah tan90 = tak terhingga.

Jurusan Teknik Pertambangan: kecantikanmu bagaikan intan permata yang berkilau dengan indahnya

Jurusan Psikologi: Percuma aku masuk jurusan psikologi, karena batinku masih tergila-gila kepadamu

Jurusan Akuntansi: Tanpamu aku tidak sempurna, bagaikan neraca lajur yang belum disesuaikan.

Jurusan Cinematografi: andaikan kisah cinta ini kujadikan film, pasti banyak yang terpana iri karena aku bisa mendapatkanmu.

Jurusan Fotografi: Boleh minta foto kamu? Soalnya aku mau nunjukin ke semua orang bahwa malaikat itu ada.

Jurusan Kesehatan Masyarakat : Aku rasa, setiap orang yang melihat kamu akan kebal dari semua penyakit karena vitamin Cinta yang kamu berikan.

Jurusan Sejarah: Seandainya sekarang adalah tanggal 28 Oktober 1928, aku akan ubah naskah Sumpah Pemuda menjadi Sumpah Aku Cinta Kamu.

Jurusan Biologi: Apabila kita DNA, aku tidak mau ada enzim polimerase, agar kita tidak akan terpisahkan.

Jurusan Ekonomi: Cintaku padamu bagaikan pertumbuhan ekonomi China, selalu meningkat!

Jurusan Sastra: A B C D E F G H I J K L M N O P Q R S T V W X Y Z. oops! I Miss U..

Jurusan Geografi: Jika hatiku adalah kompas, maka kamu adalah arah Utara. Hatiku yang akan selalu mengarah kepada cintamu.

Jurusan Statistika: Kalau kamu tanya berapa banyak frekuensi kamu datang ke pikiranku, jujur.. cuma sekali. Soalnya gak pernah pergi lagi sih..

Jurusan Arsitektur: Aku rasa sebentar lagi ruangan ini akan bertambah sempit. Karena bunga-bunga cintaku padamu mulai tumbuh memenuhi sudut ruang ini.

Jurusan Telekomunikasi (Transmisi): HP udah dimatiin, tapi tetap diusir dari pesawat, katanya sinyal cintaku ke kamu ganggu sistem komunikasi.

Jurusan Hubungan Internasional: Aku ga perlu jauh-jauh ke Perancis buat nemuin kamu, kamu kan udah jadi Princess di hatiku.

Jurusan Agama: Lupa agama? Neraka! Lupa orang tua? Durhaka! Lupa sesama? Biasa! Tapi lupa ama kamu? Mana bisa!
Jurusan Fisika: Menurut Einstein, energi adalah massa dikali kuadrat kecepatan cahaya. Menurut Britannica, energi adalah suatu kapasitas untuk melakukan kerja. Menurut aku,energi adalah kamu…

Jurusan Perpajakan: Kalo kamu menjadi fiskus, akan selalu kulebihbayarkan pajakku agar kau terus datang dan memeriksaku (dari Siapa aja boleeee)

Jurusan Teknik Kimia: Cintaku padamu bagaikan CSTR (Continuous Stirred Tank Reactor) dengan pemanasan steam langsung dan steady state. selalu panas membara, teraduk-aduk di dalam hatiku. (dari @anggraenidevi)

Jurusan Teknik Sipil: Jembatan dibangun untuk menghubungkan dua daratan, tapi cintaku dibangunkan untuk menghubungkan dua hati. Hatiku dan hatimu. (dari herymuhendra)

Jurusan Bioteknologi: Aku tidak tahu mengapa, sepertinya kultur cinta mu ini tumbuh selalu dalam fase eksponensial di media hatiku. (dari Ninditasya)

Jurusan astronomi: Gravitasi yang terdapat pada hati kita, kunamakan itu cinta. (dari @loecalvin)

Jurusan meteorologi: Tak perlu aku takut hari terus hujan atau dingin bersalju, karena kamulah matahari jiwaku yang senantiasa bersinar. (dari @loecalvin)

Jurusan Psikologi: Pak Dosen bilang, Love itu terdiri dari Passion, Commitment, dan Intimacy… Tapi buatku tambah satu: KAMU. (dari selenatiedoll)

Jurusan Komunikasi: Aku tau semua definisi komunikasi. IP aku 4. Tapi satu yang aku ga bisa, mendefinisikan kata-kata cinta yang kamu ucapkan. Itu lebih rumit daripada definisi komunikasi menurut Theodore M. Newcomb. Tapi kamu selalu membuat aku mengerti setiap definisi, Sayang.. (dari @faizalkahfi)

Jurusan Bisnis : Kalau hatiku toko, kamulah pelanggan yang membuatnya bangkrut karena semua isinya kuberi gratis untukmu (dari Andintya)

Jurusan Teknik Mesin : Hatiku dalam mencintaimu adalah mesin yang tak pernah mati untuk bekerja. (dari Andintya)

Jurusan Farmasi : Tidak akan ada ramuan atau obat yang dapat menghentikan cintaku padamu, karena cintaku adalah ramuan tidak terlihat yang bersifat kekal. (dari Andintya)

Jurusan Sastra : seorang Kahlil Gibran pun pasti bingung untuk mendeskripsikan perasaanku padamu. terlalu dalam, merasuk kalbu, dan memabukkan. (dari Andintya)

Jurusan Penerbangan : Radar hatiku selalu bisa melacak dimana kamu berada (dari Putsce)

Jurusan Matematika : mencintai kamu itu seperti limit tak hingga. mencintai tanpa batas (dari Putsce)

Jurusan Penjas: mencintaimu itu kayak olahraga. Bikin sehat, kuat, bugar, dan senang sepanjang waktu. (dari Putsce)

Jurusan Hubungan Internasional : aku bisa berbahasa jepang, aku bisa berbahasa jerman, aku bisa berbahasa inggris, dan juga bahasa lainnya. tapi kamu tidak perlu repot belajar berbagai macam bahasa untuk mengetahui bahasa cinta ku padamu. (dari Kasena)

Jurusan Geofisika: ribuan bahkan jutaan gelombang seismik ku amati, namun hanya gelombang cinta dari mu yang menarik perhatian. (dari Aiiuye)

Jurusan komunikasi: ada aksioma komunikasi yang menyatakan “We Cannot Not Communicate” dan ada juga aksioma dari hatiku yang menyatakan “We Cannot Not Love each other” (dari widyarifianti)

Jurusan politik: Orang-orang bisa saja menggulingkanku dari kekuasaan, tapi mereka tidak bisa menggulingkan perasaanku padamu. (dari widyarifianti)

Jurusan Akuntansi: Cinta itu aneh, ibarat aktiva tak berwujud/intangible asstes yang gak bisa di amortisasi, gak bisa di susutkan n gak bisa berkurang karena kerugian. (dari rrrrr)

Jurusan Arsitektur: Kamu adalah point of interest dimataku yang mengisi void dijiwaku dan menggetarkan façade relung hatiku. (dari SemesterEnambelas)

Jurusan Ilmu dan Teknologi Pangan : Kamu kayak senyawa theobromin di coklat yang saya makan, kafein di kopi dan teh yang saya minum = bikin ketagihaaaannnn. (dari steppanibaretta)

Jurusan Manajemen: Walaupun aku dituntut untuk selalu bisa mengatur waktu,tetapi aku tidak bisa mengatur waktu aku yang selalu ingin bertemu dengan kamu.. (dari Kero)

Jurusan Planologi: Jika seluruh badanku di-peta-kan, maka hatiku adalah Kawasan Budidaya Monokultur (dari akbarizky)

Jurusan Teknik Fisika : Setiap ku mendekatimu,hatiku bergetar lebih dahsyat dari getaran turbin yang membangkitkan arus AC tiga fasa 220 volt 50 hertz. (dari Febriansahsetiawan)

Jurusan Seni: Kamulah lukisan terindah dalam hidupku yg selalu ku gores dan kuwarnai di setiap detik waktuku… (dari Najmi)

Jurusan Teknik Sipil: Hidupku tanpamu bagai bangunan tanpa kolom yang akan membuat hidupku runtuh. (dari Miftah Hazmi )

Jurusan Kimia: Senyawa Hydrocarbons di dunia ini masih kurang lengkap untuk membuatku “alive”, hanya “cintamu” yang mampu menghidupkan aku. (dari RN)

Jurusan Teknik Industri: I’m not the first, but I will be the best for you (dari dika)

Jurusan Teknik Industri: Because love is timefull like a money (dari dika)

Jurusan Kedokteran: naksir kamu tuh kayak kanker stadium 4… sekali kena, susaaaahhh banget sembuhnya (Darkbluemidnight)

Jurusan Kesejahteraan Sosial : aku adalah pekerja sosial yang siap mengayom rakyat Indonesia tapi sistem sosialku tidak akan berjalan sempurna bila kamu menolakku untuk mengayomimu sepanjang hidupku. (dari Margaretha Eva Sari Borsiin )

Jurusan Kesejahteraan Sosial : Keberfungsian sosial ku seakan kembali setelah menemukan kamu dan menjadikanmu tambatan hatiku. (dari Lavoya Faradisa El Vayami)

Jurusan Filsafat : Cinta??? aku tak bisa memikirkannya, karena hanya kamu dipikiranku. (dari R_vanology )
Jurusan asuransi kesehatan: cinta mu memberikan perlindungan seperti polis asuransi. (dari Mameto)

Jurusan Teknik Geologi : Cintamu bagaikan erupsi merapi, apa yang dilaluinya membekas didalam hatiku

Jurusan Teknik Oseanografi : Cintaku bagaikan gelombang pasang surutnya air laut, ketika aku bersamamu kenaikan tingkat air seperti ditarik oleh gravitasi bulan nan cantik yaitu kamu. (dari Bapatile )

Jurusan Teknik Geodesi dan Geomatika : Jika aku dapat mengukur seberapa luas dan besar cintaku yang dapat aku petakan, akan kuberikan pemetaan seakurat mungkin agar koordinat cintaku sampai tepat dihatimu (dari Bapatile )

Jurusan Meteorologi : Aku dapat memprakirakan cuaca yang datang hari esok, minggu depan, atau pun tahun depan. Tapi aku tak dapat memprakirakan kapan aku bisa bertemu denganmu lagi (dari Bapatile )

jurusan sastra jepang : alasan kenapa aku masuk sastra Jepang adalah hanya untuk melihat dirimu yang bersemi bagaikan buka sakura yang sedang bermekaran (dari Iam_mammouth)

Selasa, 01 November 2011

Program Record

Program Hurufbergerak;
uses crt;
var
 kata:string;
 i:integer;
begin
 clrscr;
 writeln('Ingin Mencoba ??? Masukkan Kalimat Anda. Saksikan apa yang akan terjadi !!');readln(kata);
 clrscr;
 for i:=1 to length (kata) do
 begin
 gotoxy(i+40,10);
 delay(56600);
 writeln(kata[i]);
 end;
 readln;
 end.

Program Record

program animasi_huruf;
uses crt;
var
 n,m:integer;
begin
 clrscr;
 n:=1;
 m:=67;
 repeat;
 clrscr;
 gotoxy(n,10);writeln('Hai Teman Teman');
 delay(5000);
 gotoxy(m,10);writeln('SELAMAT DATANG DI BLOG SAYA');
 delay(5000);
  gotoxy(m,10);writeln('WWW.FANNYPHYSICSEDUCATION.BLOGSPOT.COM');
 delay(5000);

 m:=m-1;
 n:=n+1;
 until
 n=31;
 m:=31;
 readln;
 end.

Program Record

Program Hitung_kata;
uses crt;
var
kalimat : string;
s : integer;

begin
write(' Kalimat anda : '); readln(kalimat);
s := length(kalimat);
writeln(' Jumlah kata Adalah ', s);
end.

Program Record

  Program Permainan_huruf;
    uses crt;

    var
    nama : string;
    I : byte;

    begin
    clrscr;
    write(' tulis nama anda dengan baik ! '); readln(nama);
    if (length (nama) >= 2 ) and (length(nama) < 4) then
    writeln(' anda orangnya loyal ');
     if (length (nama) >= 4 ) and (length(nama) < 8) then
    writeln(' anda orangnya manis ');
   if (length (nama) >= 8 ) and (length(nama) < 20) then
    writeln(' anda orangnya cantik ');
repeat until keypressed;
end.

Program Record

program permainan_huruf;
uses crt;
type
az = 'a'..'z';
kalimat = array[az] of byte;

var
huruf : char;
kata : string;
besar : az;
pernyataan : kalimat;
i : byte;

begin
clrscr;
for besar := 'a' to 'z' do
pernyataan[besar] :=0;
write(' tulis kalimat '); readln(kata);
for i := 1 to length(kata) do
begin
huruf := kata[i];
if(huruf>='a') and (huruf<='z')
then inc(pernyataan[huruf]);
end;

for besar:= 'a' to 'z' do
if pernyataan[besar] <>0 then
writeln('jumlah huruf','':5,besar,'=':2,pernyataan[besar]);
repeat until keypressed;
end.

Senin, 31 Oktober 2011

Program Record

Program hitung_kata;
uses wincrt;
var
kalimat : string;
s : integer;
begin
write(' Tuliskan Kalimat Anda : '); readln(kalimat);
s := length(kalimat);
writeln(' Jumlah Katanya Adalah ',s);
end.

Program Record


program permainan_huruf;
uses wincrt;
type
az = 'a'..'z';
kalimat = array[az] of byte;
var
huruf : char;
kata : string;
besar : az;
pernyataan : kalimat;
i : byte;

begin
clrscr;
for besar := 'a' to 'z' do
pernyataan[besar] := 0;
write(' tulis kalimat'); readln(kata);
for i :=1 to length(kata) do

begin
huruf := kata[i];
if( huruf>= 'a') and (huruf <='z')
then inc(pernyataan[huruf]);
end;

for besar := 'a' to 'z' do
if pernyataan [besar] <>0 then
writeln(' Jumlah Huruf', '':5,besar,'=':2, pernyataan[besar]);
repeat until keypressed;
end.

Program Record

program Permainan_huruf;
uses wincrt;
var
nama : string;
i : byte;
begin
clrscr;
write(' tulis nama anda dengan baik!'); readln(nama);
if (length(nama) >= 2 ) and ( length(nama) <4 ) then
writeln(' anda orangnya Royal');
if (length(nama) >= 4 ) and ( length(nama) <8 ) then
writeln(' anda orangnya praktis');
if (length(nama) >= 8 ) and ( length(nama) <20 ) then
writeln(' anda orangnya pelit');
repeat until keypressed;
end.

Selasa, 25 Oktober 2011

Program Kondisi

Program Latihan_psedocode;
uses wincrt;
var
i :integer;
begin
i:=0;
while i < 100 do
begin
writeln(i);
i:=i+1;
end;
end.

Program Kondisi

program repeatuntil;
uses wincrt;
var
i : integer;


begin

 i:=1;
 repeat
  writeln(' Ini yang ke', i,'. Aku bangga jadi Mahasiswa Fisika.');
  i:=i+1;
  until i>100;

end.

Program Kondisi

program fortodo;
uses wincrt;
var
i : integer;
begin
for i:= 1 to 5 do
begin
writeln('ini yang ke ',i,'. Aku bangga jadi Mahasiswa Fisika.');
end;
end.

Program Kondisi

program gerak_balok;
uses wincrt;
const
 G=10;
var
 F,us,m,perc,s,usaha:real;
begin
 clrscr;
 writeln('masukkan angka anda,kemudian enter!');
 gotoXY(5,11); write('gaya tarik: ');readln(F);
 gotoXY(5,12); write('massa benda: ');readln(m);
 gotoXY(5,13); write('koefisien gesekan: ');readln(us);
 write('perpindahan :');readln(s);
 perc :=(F-m*g*us);
 usaha:=(F-m*g*us)*s;
 writeln('percepatan :',perc:8:4);
 writeln('usaha oleh gaya F: ',usaha:8:4);
 readln;
 end.

Program Kondisi

program gerak_balok;
uses wincrt;
const
 G=10;
var
 F,us,m,perc,s,usaha:real;
begin
 clrscr;
 writeln('masukkan angka anda,kemudian enter!');
 write('gaya tarik: ');readln(F);
 write('massa benda: ');readln(m);
 write('koefisien gesekan: ');readln(us);
 write('perpindahan :');readln(s);
 perc :=(F-m*g*us);
 usaha:=(F-m*g*us)*s;
 writeln('percepatan :',perc:8:4);
 writeln('usaha oleh gaya F: ',usaha);
 readln;
 end.

Program Kondisi

Program Nilai_siswa;
uses wincrt;
var
nilai : real;
begin
write('Jumlah Nilai :'); readln(nilai);
if nilai>60 then
writeln('Lulus')
else
writeln('Tidak Lulus');
end.

Program Array

Program Fungsi_dan_prosedur;
uses wincrt;
type
indeks=1..5;
vektor=array[indeks] of real;

var
Rp, hasil :Real;
r : vektor;
pilih : char;
n : integer;

Function R_Paralel : real;
var
i : integer;
hasil : real;

begin
hasil :=0;
for i := 1 to n do
hasil :=hasil+1/r[i];
R_paralel :=1/hasil;
end;

procedure r_seri;
var
i : integer;
begin
hasil:=0;
for i := 1 to n do
hasil:=hasil +r[i];
end;

begin
clrscr;
n:=4;
r[1] :=100;
r[2]:=100;
r[3] :=100;
r[4]:=100;

writeln('pilih S : Rangkaian seri');
writeln('pilih P : Rangkaian paralel');
write('pilihan anda:'); readln(pilih);

case pilih of
'S','s' : begin
R_Seri;
Rp:=Hasil;
end;

'P','p' : begin
Rp:= R_Paralel;
end;

end;
writeln(Rp:10:3); readln;
end.

Program Array

Program urut;
uses wincrt;
type
indeks=1..30;
vektor=array[indeks] of real;
var
 a:vektor;
 cad:real;
 j,i,n:word;

procedure sort(var a:vektor);
 begin
 for i:=1 to n do
 begin
 for j:=i+1 to n do
 begin
 if a[i]>a[j] then
 begin
 cad:=a[i];
 a[i]:=a[j];
 a[j]:=cad;
 end;
 end;
 end;
 end;

Procedure input(var a:vektor);
 begin
 for i:=1 to n do
 begin
 write('a[',i,']');readln(a[i]);
 end;
 end;

procedure output(var a:vektor);
 begin
 for i:=1 to n do
 begin
 writeln (a[i]:6:3);
 end;
 end;

begin
clrscr;
 write('jumlah data');readln(n);
 input(a);
 writeln('data sebelum di urut :');
 output(a);
 sort(a);
 writeln('data setelah diurut adalah: ');
 output(a);
 end.

Program Array

Program jumlah_dua_matriks;
 uses wincrt;
 type
 matrik= array[1..50,1..50] of integer;

 var
 matrika, matrikb : matrik;
a,b : integer;


 procedure baca_matrik(var c :matrik);
 var
 i,j : integer;
 begin
 for i:=1 to a do;
 begin
 for j:=1 to b do;
 begin
 write(' elemen elemen [',i,',',j,']:');
 readln(c[i,j]);
 end;
 end;
 end;



 procedure tulis_matrik ( var c : matrik);
 var
 i,j : integer;
 begin
 for i:=1 to a do
 begin
 for j:=1 to b do
 begin
 write(c[i,j]:6);
 end;
 writeln;
 end;
 end;

 function jumlah( var c,d : matrik) : integer;
 var z : matrik;
 i, j : integer;
 begin
 for i :=1 to a do
 begin for j:=1 to b do
 begin
 z[i,j] :=c[i,j] + d[i,j];
 write(z[i,j]:4);
 end;
 writeln;
 end;
 end;

 begin
 write(' masukkan jumlah baris :'); readln(a);
 write(' masukkan jumlah kolom :'); readln(b);
 clrscr;

 writeln(' baca matrik a');
 baca_matrik(matrika);
 writeln(' baca matrik b');
 baca_matrik(matrikb);
 writeln;

 writeln(' penjumlahan matrik a dan b ');
 jumlah(matrika,matrikb);
 readln;
 end.

Program Array

Program Fungsi_dan_prosedur;
uses wincrt;
var Rp:Real;
r : array[1..5] of real;
pilih : char;
n : integer;
hasil : real;

Function R_Paralel : real;
var
i : integer;
hasil : real;

begin
hasil :=0;
for i := 1 to n do
hasil :=hasil+1/r[i];
R_paralel :=1/hasil;
end;

procedure r_seri;
var
i : integer;
begin
hasil:=0;
for i := 1 to n do
hasil:=hasil +r[i];
end;

begin
clrscr;
n:=4;
r[1] :=100;
r[2]:=100;
r[3] :=100;
r[4]:=100;

writeln('pilih S : Rangkaian seri');
writeln('pilih P : Rangkaian paralel');
write('pilihan anda:'); readln(pilih);

case pilih of
'S','s' : begin
R_Seri;
Rp:=Hasil;
end;

'P','p' : begin
Rp:= R_Paralel;
end;

end;
writeln(Rp:10:3); readln;
end.

Minggu, 23 Oktober 2011

Program Pembantu *Function*

Program Contoh;
uses wincrt;
var
total : integer;

function Hitung : integer;
var
i, jumlah : integer;

begin
jumlah :=0;
for i:=1 to 5 do
jumlah:= jumlah+i;
hitung:= jumlah;
end;

begin
total:= hitung;
writeln(total);
end.

Program Pembantu *Function*

Program Contoh_fungsi;
uses wincrt;
var
angka, jawaban : integer;

function Kubik(x : integer) : integer;
begin
Kubik:=x*x*x;
end;

begin
writeln(' Masukkan angka '); readln(angka);
jawaban:= Kubik(angka);
writeln('hasil pangkat tiga dari',angka,'adalah',jawaban);
end.

Program Pembantu *Function*

Program Faktorial3;
uses wincrt;
var
i, N, hsl : integer;

function Fakto(N : integer) : integer;
var
Fak : integer;
begin
if (N=0) or (N=1) then
fakto:=1
else
fakto:= N*Fakto(N-1);
end;

begin
clrscr;
write('faktorial berapa yang anda ingin hitung:'); readln(N);
writeln('hasil perhitungan:',fakto(N));
readln;
end.

Program Pembantu *Function*

Program Faktorial3;
uses wincrt;
var
i, N, hsl : integer;

function Fakto(N : integer) : integer;
var
Fak : integer;
begin
if (N=0) or (N=1) then
fakto:=1
else
fakto:= N*Fakto(N-1);
end;

begin
clrscr;
write('faktorial berapa yang anda ingin hitung:'); readln(N);
writeln('hasil perhitungan:',fakto(N));
readln;
end.

Program Pembantu *Prosedur*

Program TestNilai;
uses wincrt;
var
x,y : integer;

Procedure NoEffect (x,y : integer);

begin
x:= y;
y:= 0;
writeln(x,y);
end;

begin
x := 1;
y := 2;
writeln(x,y);
NoEffect(x,y);
end.

Program Pembantu *Prosedur*

Program Lokal_Variabel;
uses wincrt;
var
nomor1, nomor2 : integer;
Procedure tambah;
var
hasil : integer;
begin
hasil:=nomor1+nomor2;
writeln('hasil adalah',hasil);
end;
begin
writeln('masukkan dua angka bulat dengan spasi'); readln(nomor1,nomor2);
tambah;
end.

Program Pembantu *Prosedur*

Program Procedure_gerak;
uses wincrt;
var
waktu, jarak, kecepatan : real;

Procedure Tampilan_judul;
begin
writeln(' Menghitung jarak tempuh berdasarkan pada');
writeln('dua variabel yaitu: kecepatan dan waktu');
end;

Procedure Masukkan_data;
begin
write('Masukkan kecepatan dalam km/jam : '); readln(kecepatan);
write('Masukkan waktu dalam jam : '); readln(waktu);
end;

Procedure Hitung_jarak;
begin
jarak := kecepatan*waktu;
end;

Procedure Tampilkan_hasil;
begin
writeln(' Jarak yang ditempuh adalah ', jarak:5:2,'km.');
end;

begin
Tampilan_judul;
Masukkan_data;
Hitung_jarak;
Tampilkan_hasil;
end.

Program Pembantu *Prosedur*

Program Bilangan_GenapGanjil;
uses wincrt;
var
i , jml, pil : integer;
jwb,ya,tidak : char;


Procedure Bilangan_genap;
var
i, n, jml : integer;
begin
write(' SILAHKAN MASUKKAN NILAI ANDA -> '); readln(n);
jml:=0;
  for i:= 1 to n do
  jml:=jml+(2*i);
  write('JADI JUMLAH BILANGAN GENAP TERSEBUT ADALAH -> ',jml);
  end;

Procedure Bilangan_ganjil;
var
i,n, jml : integer;
begin
write(' SILAHKAN MASUKKAN NILAI ANDA -> '); readln(n);
jml:=0;
  for i:= 1 to n do
  jml:=jml+(2*i)-1;
  write('JADI JUMLAH BILANGAN GANJIL TERSEBUT ADALAH -> ',jml);
  end;

Begin

repeat
writeln(' PILIHAN');
writeln(' 1. GENAP ');
writeln(' 2. GANJIL ');
writeln(' PILIH SALAH SATU MENU DIBAWAH INI');readln(pil);
if pil=1 then
bilangan_genap
else
if pil=2 then
bilangan_ganjil
else
exit;
readln;
writeln(' ingin berhenti? y/t'); readln(jwb);

until jwb='y';
end.

Program Pembantu *Prosedur*

Program prosedure_sederhana;
uses wincrt;
var
i : integer;
Procedure display_menu;
begin
writeln('Pilihan Menu');
writeln(' 1 : Edit file teks');
writeln(' 2 : Buka file teks');
writeln(' 3 : Simpan file teks');
writeln(' 4 : Kopi file teks');
writeln(' 5 : Cetak file teks');
end;
begin
writeln('memanggil prosedur');
display_menu;
writeln('kembali dari prosedure');
end.

Selasa, 11 Oktober 2011

Program Pembantu *Prosedur*

Program ContohProsedur;
uses wincrt;
var
a,b : integer;
Procedure Cetak_bilangan;
begin
writeln(' Hasil Pertama = ',a);
writeln(' Hasil Kedua = ',b);
end;
begin
write(' Masukkan Bilangan Pertama :'); readln(a);
write(' Masukkan Bilangan Kedua :'); readln(b);
Cetak_bilangan;
a:=a+10;
b:=b+5;
writeln(' Hasil Setelah Penjumlahan ;');
cetak_bilangan;
end.

Program Pembantu *Prosedur*

Program Hitung_Jarakbenda;
uses wincrt;
var
v,t, x : integer;


Procedure Tampilan_judul;
begin
writeln(' PROGRAM MENGHITUNG JARAK BENDA');
writeln(' PADA GERAK LURUS BERATURAN ');
writeln(' ========================== ');
end;

Procedure Masukkan_data;
begin
write(' BERAPA KECEPATAN BENDA ?'); readln(v);
write(' WAKTU TEMPUH = '); readln(t);
end;

Procedure Hitung_jarak;
begin
x := v*t;
end;

Procedure Tampilkan_hasil;
begin
writeln(' JADI JARAK YANG DITEMPUH ADALAH SEPANJANG ',x);
end;

begin
Tampilan_judul;
Masukkan_data;
Hitung_jarak;
Tampilkan_hasil;
end.

Program Pembantu *Prosedur* #Rekursi

Program Menghitung_Faktorial;
uses wincrt;
var
N , ul : integer;
fak : real;

begin
repeat
writeln(' masukkan angka -> '); readln(N);

if N<0 then
writeln(' SILAHKAN CARI ANGKA LAIN');
until N>=0;
 fak :=1 ;
 if N=0 then
 fak :=1;
 for ul := 1 to n do
 begin
 fak := ul*fak;
 writeln(ul, '':3, fak:6:0);
 end;
 end.
Program Bilangan_GenapGanjil;
uses wincrt;
var
i , jml, pil : integer;
jwb,ya,tidak : char;


Procedure Bilangan_genap;
var
i, n, jml : integer;
begin
write(' SILAHKAN MASUKKAN NILAI ANDA -> '); readln(n);
jml:=0;
  for i:= 1 to n do
  jml:=jml+(2*i);
  write('JADI JUMLAH BILANGAN GENAP TERSEBUT ADALAH -> ',jml);
  end;

Procedure Bilangan_ganjil;
var
i,n, jml : integer;
begin
write(' SILAHKAN MASUKKAN NILAI ANDA -> '); readln(n);
jml:=0;
  for i:= 1 to n do
  jml:=jml+(2*i)-1;
  write('JADI JUMLAH BILANGAN GANJIL TERSEBUT ADALAH -> ',jml);
  end;

Begin

repeat
writeln(' PILIHAN');
writeln(' 1. GENAP ');
writeln(' 2. GANJIL ');
writeln(' PILIH SALAH SATU MENU DIBAWAH INI');readln(pil);
if pil=1 then
bilangan_genap
else
if pil=2 then
bilangan_ganjil
else
exit;
readln;
writeln(' ingin berhenti? y/t'); readln(jwb);

until jwb='y';
end.

Sabtu, 17 September 2011

Kata Bijak yang Harus Ku Terapkan Mulai Hari ini

Laut yang dangkal tidak mungkin menciptakan nelayan yang hebat. Begitu pula kehidupan, kehidupan yang kuat tidak akan ada jika tidak ada masalah didalam kehidupan itu sendiri.

Siapa nama presiden pertama di Indonesia? soekarno. Benar sekalo. Namun siapa nama presiden yang paling hebat kepemimpinannya? Berbagai jawaban akan kita terima. Apa artinya? Menjadi orang yang pertama lebih baik. Lebih baik bagaimana? Yang membawa perubahan yang baik dalam kehidupannya.

Buat apa jauh jauh merantau ke negeri orang kalau tidak dapat mengubah sikap dan karakter kita menjadi lebih baik?

Perbaiki hal hal yang kecil kecil dulu sebelum memperbaiki hal hal yang besar.

Percaya lah, duniamu sangatlah luas. Jangan persempit kehidupanmu dengan memikirkan hal hal yan tidak berguna.

Biarkan orang lain berkata apa. Ya memang dunia mereka memang segitu segitu saja. Dunia mu sangat luas. Masih banyak yang menyenangkan.

Jangan terlalu menggantungkan kehidupanmu dengan manusia, mungkin kamu bisa kecewa. Tapi gantungkan sama Allah, karena Allah tidak pernah membuat manusia kecewa.

Orang pintar itu seperti bumbu dan kehidupan itu seperti masakan. Kalau bumbunya pas, makanannya pasti enak. Namun kalau bumbunya kurang atau pun berlebihan, rasa masakannya pasti tidak enak.

Janganlah berharap yang berlebihan, karena kamu akan kecewa.
Jika aku adalah seorang manager, aku tidak akan meneteskan air mata ketika perusahaanku bangkrut. Namun aku akan tersenyum karena mungkin itu adalah teguran bagi kelalaianku.

Kamis, 25 Agustus 2011

Bermimpi Dengan Dia *sahabatku


Semalam aku mimpi aneh. Dalam mimpi itu aku menjalani kehidupan yang berbeda dengan kehidupanku yang sebenarnya. Sepertinya mimpi itu menjadi jawaban atas permasalahan ku akhir-akhir ini. Namun aku tidak terlalu yakin karena aku pasti tidak akan pernah seperti yang di dalam mimpiku.

Siang itu aku mendapatkan pesan yang berbunyi, “ kak, tolong jangan membuat aku makin nggak berguna. Aku tau aku salah. Aku sedang memperbaiki semuanya. “

Sama persis ama yang sebenarnya. Kenyataannya, dia memang mengirimkan pesan seperti itu juga. Namun bedanya, dalam dunia nyata aku membalas pesannya, sedangkan dalam mimpiku, tidak.

Waktu pun berlalu, kami berinteraksi secara tidak langsung melalui status-status facebook. Ya, bisa dikatakan perang status. Hmm, kenyataan nya memang begitu. Sempat aku dan dia membuat status sebagai jawaban satu sama lain. Mulai dari status yang ‘menembak’ secara tidak langsung, hingga yang ‘menembak’ langsung pada tujuannya. Dan biasanya kalau sudah begitu, akhirnya kami mendoakan satu sama lain agar tidak terjadi hal yang tidak-tidak.

Kemudian, suatu hari di mimpiku, aku berinisiatif membuat suatu slogan di sebuah poster yang berisikan, “ Stop Sex di Luar Nikah, jika Hidup Ingin Selamat “

Ku tuliskan namaku dan dia dibawahnya. Maksudnya supaya suatu saat, poster itu bisa sampai di depan wajahnya. Sungguh mimpi dalam mimpi yang aneh.

Nggak disangka-sangka. Ternyata yang menjadi tokoh di mimpiku tidak hanya aku dan dia. Namun senior ku, Dony pun menjadi tokoh yang sangat berperan penting. Selain itu juga sepupu ku, kak Popy pun ikut berpartisipasi dalam mimpiku. Akhirnya kami berempat menjadi tokoh film animasi singkat dalam tidur seorang gadis cantik seperti ku :D

Dony ingin menlanjutkan kuliahnya di Ui. Sebelum berangkat ke Depok, dia sempat melihat posterku dan membaca hingga sedetail-detailnya. Tertera alamat seseorang di Jakarta. Aku lupa alamatnya dimana.
Akhirnya dia mengambil salah satu poster tersebut dan membawa nya ke Depok. Dony memperbanyak poster tersebut dan menempelkannya di sepanjang jalan sekitar alamat yang tertulis di dalam poster. Dia pun juga menempelnya tepat di depan rumah si pemilik alamat dan juga Universitasnya.

Menanggapi poster yang tertempel didepan rumahnya, si pemilik alamat menelpon ku menanyakan maksud dari poster tersebut. Lalu aku dan dia ‘perang mulut’ di telpon tersebut. Aneh banget, setelah aku memutuskan telpon tadi, aku sudah muncul di depan rumah. Aku kenal rumah itu. Itu rumah dia. *aneh banget, padahal aku nggak tau itu rumah siapa di dunia nyata. 

#cerita ini sudah jauh berbeda dari kehidupan nyataku. Namun inti permasalahannya sama

Lanjutkan

Aku melihat seorang cewek yang lebih muda dari aku. Dia cantik. Wajahnya sedih. Dia sedang hamil. Mungkin 7 atau 8 bulan.

DW ? Aku memastikan yang aku lihat ini memang dia.

Aku pengen nangis melihatnya. Aku tahu betul bagaimana dulu dia curhat padaku tentang masalahnya. Aku bahkan menganggapnya adik ku, dulu hingga sekarang.

Dia seperti ingin mengatakan sesuatu padaku. Mungkin dia sakit perut atau dia pengen cerita sesuatu. Aku lupa.

Dan sekarang aku dan dia bersama seorang bayi. Dia sudah melahirkan. Anak nya laki-laki. Ganteng. Mirip, hmm, mirip ibunya. Aku nggak kenal sama ayahnya.

Sejak saat itu kami berdua baikan. Kami berdua hidup bertiga di Jakarta. Hingga aku pun menikah dengan seorang pria yang perantauan dari Padang. Aku ingat, dia itu seseorang yang berarti di hatiku. Ku tinggalkan saja dia di Padang saat aku sudah berada di Jakarta, tanpa kabar.

Aku, suamiku, dia dan anaknya hidup damai dalam kisah kita yang indah di mimpi ku.
Bagaimana dengan dunia nyataku?

Aku dengan dia masih diam diaman. Aku ingin sekali seperti dulu. Aku tetap menyayanginya. Demi persahabatan yang sudah pernah terjalin, aku minta maaf dari hati.

Untuk Sabahatku,
DEWI.

Selasa, 23 Agustus 2011

Galau - Ku Takut Mama ku maraah #sing




Malam itu, aku merasakan sunyi yang teramat dalam. Seakan akan hanya detak jantungku saja yang aku rasakan. Hari ini, untuk kesekian kalinya aku dimarahi mama. Untuk masalah yang rumit ini, aku butuh seseorang untuk menumpahkan segala emosiku. Aku mau marah, menangis, dan teriak sejadi jadinya. Aku ingin ada orang yang memeluk ku dan membisikkan kata kata mutiara yang menenangkan hatiku. Namun itulah yang menjadi masalahnya. Dia lah yang kini tidak bisa hadir dalam kesedihanku.

:( :( :(


Hal yang aku takuti *mungkin lebih tepatnya yang aku risaukan, adalah ketika mama ku marah padaku. Kalau untuk yang satu itu, no comment. Aku lebih baik tidur sepanjang hari atau di luar rumah menjadi gelandangan daripada harus seperti ini. Aku masih bisa makan, nonton tv, tidur siang, bermain, dan lain sebagainya, namun aku tidak sanggup harus tidak bersapaan dengan mamaku yang jelas jelas mondar mandir di hadapanku. Makanya aku lebih memilih untuk tidak menampakkan tampangku ini ketika sedang didiamkan mama.


Malam ini ya, seperti itu. Aku habis dimarahi karena ketahuan pacaran dengan Adi ( si manis , seleb di blog ku ini :D ). Malam sebelumnya, mama ku bertanya, apakah aku sudah punya orang yang disuka atau belum. Karena aku lihat mood mamaku lagi baik dan aku pun juga begitu, maka secara blak blak an aku menceritakan kalau aku menyukai seorang pria dan kami sudah jadian. Sontak mama ku kaget. Aku pun jadi salah tingkah. Dengan hati yang cukup berdebar debar *seperti orang abis lari 100 meter, aku merespon tingkah mamaku yang tiba tiba aku rasakan hawa nya memanas. “ Lho padahal kan tadi mood nya baik, kok cepat berubah gitu ya?? “ aku membathin.


Ternyata mamaku marah, ya, marah sekali mendengar aku yang sudah punya pacar. Sebelumnya juga pernah begitu.


Tapi ya begitulah, aku memang anak yang bandel bin nakal, di suruh pacarannya abis kuliah, masih aja ngotot mau pacaran sekarang saja. Salahku juga sih, si manis juga bilang pacarannya waktu kuliah aja dan nggak usah di kasih tau siapa siapa *sekarang aku terjebak ama pertanyaan simpel mamaku yan bobotnya ringan pada saat moodnya lagi baik tadi. Nggak tahunya bobotnya menjadi 100 kali lipat dalam hitungan detik. Aku terjebak !


Kebiasaanku untuk berusaha jujur ( apa bisa dipertanggung jawabkan nih? Insya allah. Hehe ) inilah yang membuat aku selalu jatuh di tempat yang nggak seharusnya. Padahal aku kan udah jadi mahasiswi *baru mendapatkan status, sih, tapi mama tetap menilaiku anak SMP. Kejadian hebatnya adalah aku dilarang pacaran.


Ini adalah berita biasa yang kalau aku memikirkan disaat lagi patuh dan taat *wedew* adalah berita yang bagus, tapi kalo udah di saat aku lagi pengen pengennya banget , itu adalah berita yang peling mengancam. Harfiahnya, aku punya daya tarik pada lelaki *normal, kan? Dan aku juga masih LABIL. Hehe. Yah, bisa dikatakan baru lulusan SMA dan belum 17 tahun. Jadi pubertas itu masih memuncak. I need someone to share everything and to make good story for future *walah, artinya opo yo? Ckck


Namun seiring berlalunya malam malam kelabuku ini, aku menjadi cewek yang dewasa yang mengerti arti kejujuran. Bayangkan, kalau dua tahun lalu mamaku marah marah kalau disinggung masalah Adi ( si manis yang jelek :D ), sekarang bahkan mamaku dan papaku menganggap Adi sebagai anaknya ( aku paham kok, suami untuk anak nya itu. Hehe ) . Mereka sangat menyayangi Adi. Sangat jauh berbeda dengan mama papa yang dulu. Sekarang Adi mendapatkan keluarga baru di perantauannya. Siapa lagi kalau bukan calon mertua nya sendiri. Hehehe.