Kamis, 19 November 2009
Penyakit Kaki Gajah (Filariasis)
Penyakit Kaki Gajah atau Filariasis adalah penyakit menular yang disebabkan oleh cacing Filaria yang ditularkan melalui berbagai jenis nyamuk.
Penyakit ini bersifat menahun (kronis) dan bila tidak mendapatkan pengobatan, dapat menimbulkan cacat menetap berupa pembesaran kaki, lengan dan alat kelamin baik perempuan maupun laki-laki. Penyakit ini cukup banyak ditemukan di Indonesia.
Cara Penularan
Penyakit ini ditularkan melalui nyamuk yang menghisap darah seseorang yang telah tertular sebelumnya. Darah yang terinfeksi dan mengandung larva dan akan ditularkan ke orang lain pada saat nyamuk yang terinfeksi menggigit atau menghipas darah orang tersebut.
Tidak seperti Malaria dan Demam berdarah, Filariasis dapat ditularkan oleh 23 spesies nyamuk dari genus Anopheles, Culex, Mansonia, Aedes & Armigeres. Karena inilah, Filariasis dapat menular dengan sangat cepat.
Gejala klinis
Gejala Filariais Akut dapat berupa:
- Demam berulang-ulang selama 3-5 hari, demam dapat hilang bila istirahat dan muncul lagi setelah bekerja berat
- Pembengkakan kelenjar getah bening (tanpa ada luka) didaerah lipatan paha, ketiak (lymphadenitis) yang tampak kemerahan, panas dan sakit
- Radang saluran kelenjar getah bening yang terasa panas dan sakit yang menjalar dari pangkal kaki atau pangkal lengan kearah ujung (retrograde lymphangitis)
- Filarial abses akibat seringnya menderita pembengkakan kelenjar getah bening, dapat pecah dan mengeluarkan nanah serta darah
- Pembesaran tungkai, lengan, buah dada, buah zakar yang terlihat agak kemerahan dan terasa panas (early lymphodema)
Gejala klinis yang kronis berupa pembesaran yang menetap (elephantiasis) pada tungkai, lengan, buah dada, buah zakar (elephantiasis skroti).
Diagnosis
Bila seseorang tersangka Filariasis ditemukan tanda-tanda dan gejala klinis, diagnosis dilakukan dengan pemeriksaan darah jari yang dilakukan mulai pukul 20.00 malam waktu setempat. Seseorang dinyatakan sebagai penderita Filariasis, apabila dalam darah ditemukan mikrofilaria.
Pencegahan
Pencegahan dapat dilakukan dengan:
- Berusaha menghindarkan diri dari gigitan nyamuk penular
- Membersihkan tanaman air pada rawa-rawa yang merupakan tempat perindukan nyamuk, menimbun, mengeringkan atau mengalirkan genangan air sebagai tempat perindukan nyamuk
- Membersihkan semak-semak disekitar rumah
Kontestan Piala Dunia 2010
Selesai sudah Kualifikasi Piala dunia 2010, kini sudah terdapat daftar nama-nama negara yang akan mengikuti Piala Dunia 2010 yang berlangsung di Afrika Selatan. Dari daftar-daftar tersebut terdapat beberapa nama negara yang baru.
Langsung saja perhatikan zona-zona negara yang meloloskan negara-negara mereka ke Piala Dunia.
Di mulai dari zona Eropa. Empat tim yakni Prancis, Portugal, Yunani dan Slovenia hadir sebagai pemenang yang berhak menggenggam satu tiket menuju Afrika Selatan. Mereka menyusul jejak sembilan tim yang sebelumnya sudah memesan tempat karena mampu menjadi juara grup di babak Kualifikasi.
Berlanjut ke Asia, benua timur ini meloloskan empat wakilnya yakni Australia, Korea Selatan, Jepang dan tim kejutan Korea Utara. Bahrain nyaris saja menjadi wakil kelima, jika saja mereka bisa mengatasi wakil zona Oceania Selandia Baru di laga Play-off.
Dari zona Amerika Utara (CONCACAF), memunculkan tiga wakil yaitu Amerika Serikat, Meksiko dan Honduras.
Di zona Amerika Selatan (CONMEBOL) seperti biasa nama-nama tim besar seperti Brasil, Paraguay dan Argentina dipastikan hadir. Sementara Uruguay menjadi wakil tambahan dengan menggondol tiket Play-off dengan Costa Rica.
Benua Afrika tentu saja menghadirkan nama Afsel. Kubu tuan rumah nantinya akan didampingi oleh lima negara tetangga yaitu Pantai Gading, Aljazair, Ghana, Nigeria dan Kamerun.
Dengan dipastikannya daftar kontestan ini maka FIFA akan segera melakukan undian pembagian grup pada 4 Desember mendatang. Format undian sendiri dilakukan dengan cara pembangian pot unggulan, ini dimaksudkan untuk membagi rata kekuatan di setiap grup.
Daftar 32 peserta Piala Dunia 2010:
Asia:
1. Jepang
2. Australia
3. Korea Selatan
4. Korea Utara
Afrika:
1. Afrika Selatan
2. Ghana
3. Pantai Gading
4. Nigeria
5. Kamerun
6. Aljazair
Eropa:
1. Belanda
2. Inggris
3. Jerman
4. Denmark
5. Serbia
6. Italia
7. Spanyol
8. Slovakia
9. Prancis
10. Portugal
11. Slovenia
12. Yunani
13. Swiss
Amerika Selatan:
1. Paraguay
2. Chili
3. Argentina
4. Brasil
5. Uruguay
Amerika Utara:
1. Meksiko
2. Amerika Serikat
3. Honduras
Oceania:
1. Selandia Baru
(bola.okezone.com)
Depok Siaga Empat, Warga DKI Jakarta Siap Kebanjiran
Akibat hujan deras dan angin kencang yang mengguyur Kota Depok sejak pukul 14.00 WIB hingga pukul 18.00 WIB, menyebabkan kondisi ketinggian air di pos pemantau sungai Ciliwung di Depok berstatus siaga empat.
Ketinggian air di Depok sudah hampir mencapai siaga 4, Benarkah DKI Jakarta akan banjir?
Status ketinggian air berada pada ketinggian 175 cm nyaris menuju siaga tiga jika mencapai ketinggian lebih dari 200 cm. Petugas pos pemantau Sungai Ciliwung, Arif mengatakan, ketinggian air tersebut bukan berasal dari air kiriman di Bogor, namun murni berasal dari curah hujan yang tinggi di Depok.
Ketinggian air di Depok, kata Arif, kemungkinan besar akan terus bertambah menunggu air kiriman dari kawasan Bogor atas seperti Cisarua dan Puncak.
"Ini baru hujan lokal dari Depok, paling ditambah dengan air dari Bogor bawah saja, yaitu kawasan Warung Jambu dan Cibinong," katanya kepada wartawan di pos pemantau di Kecamatan Pancoran Mas, Kamis (19/11/09).
Sementara itu kondisi ketinggian air di Katulampa Bogor setinggi 50 cm pada pukul 18.00 WIB dan belum tiba di Depok. Perjalanan air dari Bogor ke Depok yaitu berdurasi tiga jam, sedangkan dari Depok ke Jakarta berjalan enam jam.
Artinya, dini hari nanti warga Jakarta harus kembali bersiap-siap mengangkut barang-barang berharga ke lantai dua rumah mereka atau mengungsi ke rumah kerabat karena ancaman banjir. Banjir kiriman biasa menyerang kawasan Bukit Duri, Bidara Cina, Kampung Melayu, Kalibata, dan Pasar Minggu.
Selasa, 17 November 2009
Buah Blackberry, Lindungi Sel Manusia
BUAH yang namanya sama dengan jenis telepon genggam yang tengah populer ini ternyata bukan hanya sembarang buah yang bisa dimakan saja, tetapi juga bisa bermanfaat untuk melindungi sel manusia. Menurut penelitian yang dilakukan oleh ahli gizi dari Departemen Nutrisi, Politeknik Kesehatan Denpasar, Badrut Tamam bahwa ekastrak tanaman blackberry (Rubus fruticosus sp) adalah sumber antioksidan yang baik.
Ekstrak tanaman ini kaya akan anthrocyanin, flavonoid, dan senyawa fenol. Blackberry juga mempunyai kemampuan menyerap radikal oksigen (ORAC) melawan radikal perosokil, superoksida, hidrogen peroksida, radikal hidroksil, dan singlet oksigen.
"Kemampuan ekstrak tanaman blackberry dalam melindungi sel telah diteliti," jelasnya.
Ekstrak tanaman ini mampu melindungi sel lympoblastoid terhadap kerusakan genetik dan selular yang dipapar oleh tert-butyl hydroperoxide.(lifestyle.okezone.com)
Rokok Bisa Tingkatkan Resiko Katarak
Banyak orang yang tidak menyadari, bagaimana bahayanya orang yang merokok. Merokok bukan hanya merugikan orang yang merokok itu sendiri, melainkan juga akan merugikan orang yang tidak merokok sekalipun. Oleh karena itu, dibawah ini akan menjelaskan bahaya rokok terhadap mata kita.
KONDISI lensa mata sangat berpengaruh pada tajamnya penglihatan. Jika lensa mata keruh, gambar yang tertangkap tidak jelas. Katarak adalah perubahan lensa mata yang sebelumnya jernih dan tembus cahaya menjadi keruh, sehingga bayangan yang dihasilkan pada retina mata menjadi kabur.
Satu hal yang penting untuk diketahui adalah katarak bisa disembuhkan. Operasi adalah cara yang paling tepat untuk mengatasi katarak. Masalahnya, di Indonesia saat ini masih ada ketidakseimbangan antara jumlah penderita katarak dengan operasi katarak. "Sehingga banyak jumlah penderita katarak yang masih belum disembuhkan," kata dr Jusuf Wijaya SpM dari Rumah Sakit Royal Taruma, Jakarta Barat.
Gejala dan Penyebab
Proses katarak biasanya terjadi secara perlahan, sehingga orang yang mengalaminya sering mengeluhkan penurunan ketajaman penglihatannya. Gejala gangguan katarak pada umumnya meliputi penglihatan yang tidak jelas seperti adanya kabut yang menghalangi obyek, peka terhadap sinar matahari, terkadang penglihatan pada satu mata menjadi dua atau ganda, jika ingin membaca, si penderita harus membutuhkan cahaya yang terang dan lensa mata berubah menjadi buram seperti kaca susu. "Perubahan tajam penglihatan menjadi kabur membuat orang yang mengalami gangguan itu sering mengganti ukuran kaca matanya," kata dr Jusuf.
Gangguan penglihatan pada penderita katarak tergantung pada letak kekeruhan lensa mata. Bila katarak terdapat pada pinggir lensa atau tidak terletak pada bagian tengah lensa, penderita tidak merasakan adanya gangguan penglihatan. "Jika kekeruhan terdapat pada bagian tengah lensa, tajam penglihatan akan terganggu," lanjutnya.
Sebagian besar katarak terjadi karena proses degeratif yang umumnya terjadi pada usia lanjut yaitu usia 60 tahun ke atas. Akan tetapi katarak dapat pula terjadi pada bayi yang disebut dengan katarak kongelital karena sang ibu telah terinfeksi virus pada saat hamil muda. Katarak juga terjadi pada mereka yang mengalami miopia atau rabun jauh. Dan ini bisa terjadi pada usia yang lebih muda. "Hal itu dikarenakan proses degeratif yang terjadi pada lensa mata orang miopia lebih cepat terjadi," ungkapnya.
Katarak juga dapat disebabkan oleh adanya penyakit sistematis misalnya diabetes melitus (DM) atau kencing manis, penggunaan obat tertentu khususnya steroid dalam dosis tinggi dan jangka waktu yang panjang, mata yang terkena sinar matahari (UV) dalam waktu yang cukup lama tanpa adanya pelindung, terlalu sering merokok, dan mengonsumsi alkohol. "Katarak juga terjadi karena orang tersebut pernah melakukan operasi, trauma atau kecelakaan pada mata, dan bisa juga ignorance yaitu ketidakpedulian seseorang ketika mengalami penurunan ketajaman penglihatan dan tidak ke dokter spesialis mata untuk memeriksakan matanya," jelasnya.
Pengobatan
Satu-satunya cara untuk mengatasi katarak adalah operasi. Itulah cara yang paling tepat. Dahulu, katarak baru dioperasi bila dikatakan sudah matang atau kekeruhan lensanya sudah penuh. Pada kondisi itu sudah barang tentu penderitanya telah mengalami kebutaan. Sekarang tidak lagi. Sejak katarak diketahui masih dini pun sudah bisa dioperasi. "Dengan begitu, penderita terhindar dari kebutaan yang sebenarnya bisa dicegah," tandasnya.
Sekarang ini, teknik operasi katarak sudah menggunakan alat modern yang disebut dengan phacaoemulsification. Dengan alat ini, dokter bisa melakukan penyerpian lensa pada mata orang yang mengalami katarak dan penyedotan serpian-serpian lensa tersebut. Sayatan yang dilakukan sangat minimal, yaitu sekitar 2 mm saja, sehingga hanya digunakan obat bius lokal (dalam bentuk obat tetes mata). Luka sayatannya pun tidak perlu dijahit. "Waktu operasi menjadi lebih singkat dan setelah operasi pasien dapat kembali beraktivitas seperti biasa," katanya.
Pada tahap operasi, lensa keruh dihancurkan dan dikeluarkan. Setelah itu dimasukkan lensa penggantinya atau Artifical Intraocular Lens (IOL). Saat ITU IOL telah mengalami perkembangan pesat. Dahulu, IOL yang biasa digunakan adalah jenis lensa standar nonaspheric. Kekurangannya itu dapat diperbaiki dengan adanya lensa aspheric yangn mempunyai sifat mengurangi bias sehingga kualitas penglihatan menjadi lebih baik," terangnya.
Selain itu juga ada pula lensa multifokal yang berfungsi untuk mengoreksi penglihatan jauh dan dekat, sehingga penderita setelah operasi diharapkan bebas dari kacamata. Ada pula lensa toric yang mampu mengoreksi mata silinder. "Pemilihan jenis lensa itu dapat disesuaikan dengan kebutuhan pasien," tukasnya.
Pencegahan
Ada beberapa cara untuk mencegah terjadinya katarak, antara lain menghindari paparan sinar matahari atau sinar ultraviolet (UV) secara langsung dengan memakai kacamata gelap. Mengapa? Karena sinar ultraviolet dapat menyebabkan pembentukan katarak.
Cara lain ada mengonsumsi makanan dan minuman bergizi. Sayur-sayuran dan buah-buahan, seperti jeruk, mengandung vitamin C yang berfungsi sebagai antioksidan untuk melumpuhkan radikal bebas penyebab penuaan sel, sehingga berguna untuk mencegah katarak. "Anggur banyak mengandung proantosianidin dan lebih kuat dari vitamin C dan E. Proantossianidin bisa memperbaiki fungsi retina, terutama yang rusak akibat pendarahan pembuluh darah di mata dan ketidakseimbangan gula darah. Dan nanas banyak mengandung vitamin dan mineral misalnya vitamin C, B kompleks, betakaroten atau pro vitamin A," jelasnya.
Selain itu, ikan salmon dan tuna juga bisa membantu mencegah katarak. Dagingnya yang berwarna gelap kaya akan DHA (Docosahexaenoid Acid) dan mengandung asam lemak omega 3 yang berperan penting dalam pembentukan retina mata. "Dan bagi yang merokok, berhentilah merokok karena rokok memproduksi risiko bebas yang meningkatkan risiko katarak. Konsumsilah makanan bergizi yang seimbang," tandasnya.(okezone.com)
Senin, 16 November 2009
City Pecat Robinho??
Manchester City tak butuh Robinho lagi? Kabar mencuat, Mark Hughes segera melepas bintang berbanderol 42.2 euro yang dibelinya dari Real Madrid. Benarkah?
Citizens habis kesabaran. Hughes kabarnya makin jengkel karena kondisi Robinho tak juga membaik. Striker Internasional Brasil itu malah diperparah cedera kambuhan yang diidapnya.
Tak heran, seperti dilansir Manchester Evening News, Selasa (17/11/2009), nama Robinho bakal masuk bursa transfer pemain, Januari 2010.
Cedera agaknya bukan satu-satunya alasan. Sebelumnya, Robinho disebut-sebut terlibat sitegang dengan manajer klub. Pemain 25 tahun itu ngotot membela negaranya kendati sang manajer menyatakan dirinya tidak 100 persen fit. Staf kepelatihan pun geram.
Sebagai gantinya, City diberitakan bakal mendatangkan bintang Benfica Angel di Maria. Skuad Eastlands ini juga diyakini tertarik merebut Yaya Toure dari Barcelona.
(bola.okezone.com)
Sakti Sihite, Pemuda Pengaku Rasul di Facebook
Kasus kontrofersi dari jejaring Facebook yang menghebohkan kembali terjadi. Banyak orang yang mencari sensasi yang dapat merugikan diri mereka sendiri. Salah satunya adalah Sakti Sihite, Facebooker dr Jakarta, menyebut diri sebagai rasul. Dalam blognya, lelaki yang mengaku sebagai muslim sejati ini mencetuskan beberapa ajaran yang bertentangan dengan agama Islam.
Banyak kejanggalan yang diajarkan Sakti. Dia menyebutkan waktu buka puasa, sekitar pukul 18.00 WIB, tidak sesuai dengan Alquran. Yang benar, menurut dia, waktu buka puasa itu pada malam hari.
Lebih jauh, Sakti mengatakan, hukum khitan, larangan wanita sedang haid beribadah, memelihara jenggot bagi kaum laki-laki, dan hukum bagi penzinah semuanya salah. Dia pun berani mengklaim, ajaran Islam banyak menyadur alkitab atau kitab suci umat Kristen. (www.metroTVnews.com)
Celakanya ada saja yang percaya dengan pernyataan Sakti. Paling tidak kini terakhir yang saya lihat sudah ada kurang lebih 250 orang yang mendeklarasikan diri menjadi penggemar Sakti. Sakti juga aktif dalam sejumlah diskusi dengan para pengunjung halaman pribadinya.
Facebooker yang mengaku sebagai rasul ini, Sakti A. Sihite ternyata tidak dikenal di wilayahnya. Alamat yang tertera di website-nya, ternyata palsu dan tidak ada yang mengenal Sakti.
Berdasarkan beberapa penelusuran, alamat Jalan Swasembada Timur XXIII, Tanjung Priok, Jakarta Utara, yang dipasang dalam blog dan facebook-nya bukan alamat sebenarnya.
Dalam alamat tersebut, ternyata ditinggali oleh seorang ibu bernama Wati. Wanita berusia lanjut ini mengaku tidak mengenal Sakti yang dimaksud.
"Kalau ada pasti di sini sudah gempar, tapi kenyataannya adem ayem aja," kata Wati kepada okezone.
Wati yang berjualan sayuran dan gas berukuran kecil sejak 1966 lalu itu menyakini, tujuh anaknya tidak ada yang mengaku sebagai seorang rasul.
"Jangankan rasul, kalau ada kemalingan aja kita pasti dengar. Itu jelas bohong," tegasnya.
Hal senada diungkapkan Ketua Rt05 Ida. Dia mengaku tidak ada warganya yang bernama Sakti A Sihite. "Kita pasti tahu kalau ada informasi seperti itu," tandasnya. Sementara itu, saat okezone mencoba menghubungi nomor kontak yang tertera di situs jejaring sosial tersebut ternayata tidak bisa dihubungi.
Sebelumnya, Sakti mengaku mendapatkan petunjuk dari 'tuhan' pada 2005. Saat itu, Sakti mengaku mengalami semacam "induksi energi" yang sangat kuat dan membuatnya lemas satu hingga dua hari.
Kamis, 12 November 2009
Program Animasi Gerak | Bahasa Pemrograman C
Buat temen-temen yang merasa dapat tugas membuat program bergerak atau yang sering kita sebut program animasi yang dibuat dengan menggunakan bahasa pemrograman C. Dibawah ini terdapat Link untuk mendownload program animasi sederhana tersebut. Dengan postingan program ini mudah-mudahan teman-teman dapat sedikit terbantu. Untuk mendownload program silahkan klik disini.
Program ini mungkin masih terdapat kekurangan. Untuk itu saya mohon maaf dikarenakan keterbatasan kemampuan saya.
Minggu, 01 November 2009
Array | Bahasa Pemrograman C
Dalam Bahasa Pemrograman C terdapat sebuah statement yang dapat memudahkan kita dalam membuat nilai-nilai tanpa kita harus membuat variabel-variabel yang banyak. Kita cukup menggunakan array atau larik.
Array atau yang disebut juga larik merupakan sebuah kumpulan dari nilai-nilai data dengan tipe terstruktur yang terdiri dari sejumlah elemen-elemen yang mempunyai tipe yang sama. Suatu array memiliki jumlah komponen yang banyaknya tetap. Banyaknya komponen dalam suatu array atau larik ditunjukkan oleh suatu indeks untuk membedakan variabel yang satu dengan variabel yang lainnya. Dalam bahasa C, index dari array dimulai dengan 0(zero).
Pada Array ini terdapat macam-macam Dimensinya, yaitu :
- Array Dimensi Satu
- Array Dimensi Dua
- Array Multi Dimensi
Pengertian dan bentuk umum dari tiap-tiap dimensi array:
1. Array Dimensi satu
Sebuah Variabel yang menyimpan sekumpulan data yang memiliki tipe yang sama dan elemennya diakses hanya dengan 1 indeks.
Bentuk Umum Pendeklarasian Array dimensi 1 :
nama_array[jumlah_elemen];
2. Array Dimensi dua
Sebuah variabel yang menyimpan sekumpulan data yang memiliki tipe yang sama dan elemennya diakses dengan menggunakan 2 indeks, yaitu indeks baris dan indeks kolom.
Bentuk Umum Pendeklarasian Array dimensi 2 :
nama_array[jumlah_elemen_baris][jumlah_elemen_kolom]
3. Array Multi Dimensi
Sebuah variabel yang menyimpan sekumpulan data yang memiliki tipe yang sama dan elemennya diakses dengan menggunakan indeks lebih dari 1. Array 2 dimensi termasuk kedalam array multidimensi.
Senin, 19 Oktober 2009
Penyalahgunaan Internet ...
Dewasa ini, banyak sekali orang-orang yang tidak bertanggung jawab dalam menggunakan jasa internet. Dalam kasusnya Indonesia menduduki peringkat kedua setelah Ukraina dalam penyalahgunaan internet dari 230 jt penduduk di Indonesia yang mengoperasikan teknologi internet. Peringkat segitu merupakan angka yang sangat menghawatirkan. Khususnya bagi masyarakat bangsa indonesia.
Perkembangan internet yang semakin hari semakin meningkat baik teknologi dan penggunaannya. Kebutuhan dan penggunaan teknologi yang di aplikasikan dengan internet dalam berbagai bidang telah menjadi sesuatu yang lumrah. Oleh karena itu, kita sebagai pengguna jasa internet ini jangan sampai terpengaruh dengan hal2 yang dapat membuat kita menyalahkan aturan yang seharusnya tidak kita lakukan. Walaupun begitu, tidak dapat dipungkiri, bahwa teknologi internet membawa dampak negatif yang tidak kalah dengan banyaknya manfaat yang ada. Banyaknya dampak negatif yang timbul dan berkembang, membuat suatu paradigma bahwa tidak ada komputer yang aman kecuali dipendam dalam2 di bawah tanah dan tidak memiliki hubungan apapun juga.
Seminar SFD 2009 (Software Freedom Day)
aduh, bingung nih mu nulis apaan.
yauda deh. saya nulis tentang seminar SFD yang barusan gw ikutin d kampus gw aja deh .
Pada hari senin, tepatnya tanggaL 19 Oktober saya mengikuti sebuah seminar yg bernama Software Freedom Day. Seminar ini membahas seputar OSS (Open Source Software). Tetapi, yang Lebih di perjelas adalah Open Source itu sendiri apa. Open Source merupakan sebuah kebebasan kita menggunakan sebuah software dengan sumber2 yang bebas, free, gratis tanpa di pungut biaya sepeser pun. beda dengan Microsoft yang kita harus membeLi sebuah Lisensi terlebih dahulu agar kita bisa memiliki atau menggunakan software tersebut. Apabila kita menggunakan software2 tersebut tanpa melalui jalur yang sebenarnya, kita sudah dikatakan melakukan pembajakan. Walaupun kita hanya menggunakan software tersebut.
Sesuai dengan Fatwa MUI yang menjelaskan tentang haramnya melakukan pembajakan. Oleh karena itu, mulai sekarang kita jauhkan diri kita dari yang namanya pembajakan. karena membajak bukanlah hal yang sehat. Marilah kita gunakan Software2 yang memang seharusnya bisa kita gunakan. Dan satu hal Lagi, dengan OSS kita juga bisa mengembangkan kemampuan kita, mengasah kreatifitas kita untuk mengembangkan software2 tersebut. Karena software2 tersebut boleh kita edit-edit atau kita ubah-ubah sesuai keinginan kita.
Senin, 12 Oktober 2009
Program Sortir Data dengan bahasa Cobol
program ini adalah program pengurutan data atau yang sering kita sebut program sortir data. program ini khususnya adalah program pada bahasa pemrograman cobol. biar singkat kata ,, mari kita lihat langsung aja contoh program di bawah ini :
Contoh Program Sortir Data dengan Bahasa Cobol :
IDENTIFICATION DIVISION.
PROGRAM-ID. SORTIR-DATA.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 N PIC 999.
77 I PIC 999.
77 J PIC 999.
77 K PIC 999.
77 TEMP PIC 999.
77 D PIC X.
01 AAA.
02 A PIC 999 OCCURS 100 TIMES.
PROCEDURE DIVISION.
MAIN.
DISPLAY (1 1) ERASE.
DISPLAY (9, 30) "INPUT BILANGAN : ".
DISPLAY (10, 27) "___________________".
ACCEPT (11, 36) N WITH PROMPT.
DISPLAY (1 1) ERASE.
DISPLAY (6, 30) "MASUKKAN BILANGAN-BILANGAN".
MOVE 6 TO LIN.
PERFORM ACC-PARA VARYING I FROM 1 BY 1 UNTIL I > N.
PERFORM BUB-PARA VARYING I FROM 1 BY 1 UNTIL I > N.
DISPLAY (1 1) ERASE.
DISPLAY (5, 30) "HASIL (BUBBLE SORT) :".
DISPLAY (6, 30) "____________________".
MOVE 6 TO LIN.
PERFORM DIS-PARA VARYING I FROM 1 BY 1 UNTIL I > N.
STOP RUN.
ACC-PARA.
COMPUTE LIN = LIN + 1.
ACCEPT (LIN, 35) A(I) WITH PROMPT.
IF LIN = 20
DISPLAY (1 1) ERASE
DISPLAY (6, 30) "CONTINUE"
MOVE 6 TO LIN.
BUB-PARA.
IF A(I) > A(J)
MOVE A(I) TO TEMP
MOVE A(J) TO A(I)
MOVE TEMP TO A(J).
DIS-PARA.
COMPUTE LIN = LIN + 1.
DISPLAY (LIN, 33) A(I).
IF LIN = 20
DISPLAY (24, 30) "PRESS AN KEY"
ACCEPT D
DISPLAY (1 1) ERASE
MOVE 6 TO LIN.
Contoh Program Sortir Data dengan Bahasa Cobol :
IDENTIFICATION DIVISION.
PROGRAM-ID. SORTIR-DATA.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 N PIC 999.
77 I PIC 999.
77 J PIC 999.
77 K PIC 999.
77 TEMP PIC 999.
77 D PIC X.
01 AAA.
02 A PIC 999 OCCURS 100 TIMES.
PROCEDURE DIVISION.
MAIN.
DISPLAY (1 1) ERASE.
DISPLAY (9, 30) "INPUT BILANGAN : ".
DISPLAY (10, 27) "___________________".
ACCEPT (11, 36) N WITH PROMPT.
DISPLAY (1 1) ERASE.
DISPLAY (6, 30) "MASUKKAN BILANGAN-BILANGAN".
MOVE 6 TO LIN.
PERFORM ACC-PARA VARYING I FROM 1 BY 1 UNTIL I > N.
PERFORM BUB-PARA VARYING I FROM 1 BY 1 UNTIL I > N.
DISPLAY (1 1) ERASE.
DISPLAY (5, 30) "HASIL (BUBBLE SORT) :".
DISPLAY (6, 30) "____________________".
MOVE 6 TO LIN.
PERFORM DIS-PARA VARYING I FROM 1 BY 1 UNTIL I > N.
STOP RUN.
ACC-PARA.
COMPUTE LIN = LIN + 1.
ACCEPT (LIN, 35) A(I) WITH PROMPT.
IF LIN = 20
DISPLAY (1 1) ERASE
DISPLAY (6, 30) "CONTINUE"
MOVE 6 TO LIN.
BUB-PARA.
IF A(I) > A(J)
MOVE A(I) TO TEMP
MOVE A(J) TO A(I)
MOVE TEMP TO A(J).
DIS-PARA.
COMPUTE LIN = LIN + 1.
DISPLAY (LIN, 33) A(I).
IF LIN = 20
DISPLAY (24, 30) "PRESS AN KEY"
ACCEPT D
DISPLAY (1 1) ERASE
MOVE 6 TO LIN.
Program ini akan mengurutkan bilangan dari yang terkecil sampai terbesar.
Jumat, 09 Oktober 2009
BILANGAN PRIMA | PROGRAM COBOL
Kepada teman-teman, maaf saya baru memposting codingan ini sekarang karena saya baru dapat menyelesaikan program ini sehari sebelum praktek dimulai. Walaupun sudah telat, saya berharap postingan saya ini dapat bermanfaat bagi temen-temen sekalian. Mungkin untuk pembelajaran dalam kondisi maupun penghitungan aritmatika.
Ini adalah program bilangan Prima yaitu, apakah bilangan yang akan kita masukan termasuk bilangan prima atau bukan. biar lebih jelasnya lagi silahkan Anda melihat codingan dibawah ini.
Dalam program ini masih terdapat satu kekurangan yang menurut saya kekurangan ini adalah kekurangan yng perlu diperbaiki. Kekurangan tersebut adalah pada saat kita meng-input nilai 1, maka nilai 1 tersebut akan dibilang bilangan prima. Dan menurut saya, kekurangan itu adalah kekurangan yang harus diperbaiki. Oleh karena itu, saya mohon kesediaan teman-teman sekalian untuk memperbaiki program tersebut
Sayamohon harap maklum. karena saya masih kurang mengerti dalam bahasa COBOL. Oleh karena itu, saya mohon saran dari kalian untuk program ini. Terima kasih sebelumnya.Mudah-mudah postingan ini dapat membantu kegiatan belajar Anda.
Ini adalah program bilangan Prima yaitu, apakah bilangan yang akan kita masukan termasuk bilangan prima atau bukan. biar lebih jelasnya lagi silahkan Anda melihat codingan dibawah ini.
IDENTIFICATION DIVISION.
PROGRAM-ID. PRIMA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 BILANGAN.
02 BIL PIC 99.
02 I PIC 99.
02 HASIL PIC 99.
02 SISA PIC 99.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS-LAYAR.
DISPLAY 'INPUT BILANGAN INTEGER : ', ACCEPT BIL.
COMPUTE I = 2.
DIVIDE I INTO BIL GIVING HASIL REMAINDER SISA.
SELEKSI-PRIMA.
IF SISA = 0
GO TO JAWAB
ELSE
GO TO HITUNG.
JAWAB.
IF I = BIL
DISPLAY BIL, ' BILANGAN PRIMA'
ELSE
DISPLAY BIL, ' BUKAN BILANGAN PRIMA'.
HITUNG.
COMPUTE I = I + 1.
DIVIDE I INTO X GIVING HASIL REMAINDER SISA.
GO TO SELEKSI-PRIMA.
SELESAI.
STOP RUN.
Dalam program ini masih terdapat satu kekurangan yang menurut saya kekurangan ini adalah kekurangan yng perlu diperbaiki. Kekurangan tersebut adalah pada saat kita meng-input nilai 1, maka nilai 1 tersebut akan dibilang bilangan prima. Dan menurut saya, kekurangan itu adalah kekurangan yang harus diperbaiki. Oleh karena itu, saya mohon kesediaan teman-teman sekalian untuk memperbaiki program tersebut
Sayamohon harap maklum. karena saya masih kurang mengerti dalam bahasa COBOL. Oleh karena itu, saya mohon saran dari kalian untuk program ini. Terima kasih sebelumnya.Mudah-mudah postingan ini dapat membantu kegiatan belajar Anda.
Langganan:
Postingan
(
Atom
)