Banyak orang akan mereka-reka tren yang akan terjadi di tahun mendatang. Sebut saja dalam ranah teknologi informasi (TI), ada banyak sekali tren yang akan lahir. Teknologi begitu cepatnya mengalami evolusi, begitu pun dengan inovasi yang makin menjamur. Menyingkapi persoalan tersebut, Dave Evans selaku Chief Futuristic, Cisco IBSG Innovations Practice membeberkan 25 prediksi teknologi teratas yang akan booming dalam beberapa tahun ke depan.
1. Pada tahun 2029, 11 petabyte storage yang dapat menyimpan video berkualitas DVD untuk diputar selama 600 tahun lebih tanpa henti 24 jam sehari, akan tersedia seharga $100.
2. Dalam 10 tahun ke depan, kita akan menyaksikan peningkatan kecepatan jaringan internet rumahan sebesar 20 kali lipat.
3. Pada tahun 2013, lalu-lintas jaringan nirkabel akan mencapai 400 petabyte perbulan. Sekarang ini, jaringan di seluruh dunia mentrasnfer data lebih dari 9 exabyte per bulan.
4. Pada akhir tahun 2010, akan terjadi perbandingan satu miliar transistor per orang – masing-masing transistor seharga sepersepuluh juta sen.
5. Internet akan berevolusi menjadi sarana komunikasi instan, tanpa peduli jarak.
6. Komputer kuantum komersial yang pertama akan tersedia pada pertengahan tahun 2020.
7. Pada tahun 2020, PC seharga $1.000 akan memiliki kemampuan memproses setara dengan otak manusia.
8. Pada tahun 2030, Kemampuan memproses PC seharga $1.000 akan seimbang dengan kemampuan otak sekampung manusia.
9. Pada tahun 2050 (dengan mengasumsikan bahwa jumlah total populasi dunia adalah 9 miliar), kemampuan memproses PC seharga $1.000 akan seimbang dengan kemampuan otak keseluruhan manusia di bumi.
10. Hari ini, kita mengetahui 5% dari apa yang akan kita ketahui 50 tahun ke depan. Dengan kata lain, dalam 50 tahun, 95% dari apa yang akan kita ketahui, ditemukan di tahun-tahun sebelumnya.
11. Besar data di dunia akan meningkat enam kali lipat dalam dua tahun kedepan, sementara data perusahaan akan meningkat lima puluh kali lipat.
12. Pada tahun 2015, Google akan mengindex sekitar 775 miliar halaman konten.
13. Pada tahun 2015, kita akan menciptakan banyak hal yang sebanding dengan 92,5 juta Libraries of Congress dalam setahun.
14. Pada tahun 2020 di seluruh dunia, masing-masing orang rata-rata akan menyimpan data pribadi sebesar 130 terabyte (hari ini rata-rata sebesar 128 gigabyte).
15. Pada tahun 2015, unduh film dan peer-to-peer file sharing akan melonjak sampai 100 exabyte, setara dengan 5 juta Libraries of Congress.
16. Pada tahun 2015, komunikasi video akan jauh lebih marak, menghasilkan 400 exabyte trafik data atau setara dengan 20 juta Libraries of Congress.
17. Pada tahun 2015, trafik yang dihasilkan oleh telepon, web, email, foto, dan musik akan meledak, dan mencapai 50 exabyte.
18. Dalam dua tahun, informasi di internet akan berlipat ganda setiap 11 jam.
19. Pada tahun 2010, 35 miliar perangkat akan terhubung ke internet (hampir enam perangkat per orang di dunia).
20. Pada tahun 2020, akan ada lebih banyak perangkat yang online daripada manusianya.
21. Dengan IPv6, akan ada cukup alamat IP bagi setiap bintang yang diketahui di seluruh alam semesta untuk masing-masing memiliki 4,8 triliun alamat IP.
22. Pada tahun 2020, penerjemah bahasa universal akan menjadi hal yang umum di setiap perangkat.
23. Dalam lima tahun ke depan, permukaan apa pun dapat dijadikan layar tampilan.
24. Pada tahun 2025, teleportasi pada tingkat partikel akan mulai terealisasi.
25. Pada tahun 2030, penanaman otak buatan sudah dapat dilaksanakan.
Nah, sudah siapkah Anda menyambut teknologi-teknologi anyar tersebut?
(Indah PM/infokomputer.com)
Selengkapnya...
25 Teknologi Masa Depan ( Future Technology Prediction)
Tips Deteksi Kebohongan Lewat Mata
Pernahkah anda merasa dibohongi? atau ingin tahu apakah dia sedang berbohong atau tidak?
Selain menatap matanya, liatlah arah bola matanya. Sebuah penelitian di Amerika menyebutkan bahwa orang yang sedang berbohong bola matanya akan mengarah ke kanan. Saat bola matanya ke kanan, saat itu juga pikirannya melayang untuk ‘menyusun’ kebohongan yang akan diucapkan. Tentu saja kesimpulan ini tidak bisa segera disimpulkan sebelum anda benar-benar meneliti kebenarannya.
Jadi?
silakan tes diri sendiri dan sahabat-sahabat anda, apakah sering melirik ke kanan atau ke kiri ketika sedang bicara. Mungkin anda akan mendapatkan suatu kebenaran dari sana.
Selengkapnya...
Tips Pacaran Jarak Jauh / LDR ( Long Distance Relationship
Pacaran jarak jauh itu bisa menyenangkan atau membuat kita menderita bahkan sampai ketingkat membosankan tergantung dari segi mana kita memandang dan menjalaninya.
Oke..Setelah kita ngalor ngidul seharian suntuk,kita langsung saja bahas Tips Menjaga Hubungan Pacaran Jarak Jauh. Tips ini sudah mendapatkan izin dari DEPKES dan terbukti tidak mengandung Melamin. Tipsnya sudah mau dibagikan sekarang atau kita mau jalan-jalan dulu nengok Informasi Busby Seo Test dan Peserta Busby seo test dari Indonesia?? Ga usah?? Kalo begitu kita langsung aja, dah siap?? Pegangan yaaa.. Dan tipsnya adalah:
1. Menjaga Komunikasi
Ini adalah salah satu bagian paling vital ditubuh wanita eh maksudnya dalam hubungan pacaran baik itu jarak dekat maupun jarak jauh tetap Rp2000. Komunikasi yang tidak lancar akan menjadi batu sandungan dalam suatu hubungan pacaran jarak jauh. Sesekali kirimkan dia Sms Cinta yang "Menggigit", tapi jangan terlalu sering karena Do'i mungkin akan merasa bosan bahkan malah balik "menggigit "anda."Tapi Chik..Pulsaku ga cukup buat ngirim Sms Cinta, Soalnya pacarku di Amrik!!", Makanya baca cara Sms Gratis Lewat Internet atau Sms Gratis Facebook dan Friendster . Beruntunglah kalian wahai pemuda yang hidup di jaman sekarang, karena semuanya lebih dimudahkan!! Selain berkomunikasi lewat Handphone
, ada baiknya juga menggunakan teknologi tahun satu yaitu Kantor Pos. Kirimkan Do'i surat cinta yang adalah tulisan tangan anda sendiri, berikan tanda tangan atau Gincu. Walaupun agak Ndeso tapi entah kenapa surat kadang lebih menyentuh hati. Makanya jangan heran kalau anda biasa mendengar di media elektronik tentang surat putusan perceraian bukan Email Putusan Perceraian atau Sms Putusan Perceraian .
2. Percaya dan Kepercayaan
Tumbuhkan rasa percaya antara kalian. Saling percaya adalah modal utama untuk membangun hubungan pacaran jarak jauh. Jika sudah ada rasa saling percaya diantara kalian, saya yakin walaupun pasangan anda tinggal dibulan sedangkan anda di bumi, semuanya akan baik2 saja.
3. Jadwal Pertemuan
Aturlah jadwal pertemuan anda dengan sang Kekasih tercinta. Lebih bagus lagi jika anda melakukan SiDak (Inspensi Mendadak), sehingga ada efek kejutan atau Suprianto eh surprise, tapi perhatikan dan cari informasi tentang rutinitas dan jadwal kerja do'i. Jangan sampai anda berkunjung ke kotanya sementara dia juga lagi keluar kota (Mungkin Mengunjungi yang Lain).
4. Hindari Rasa Bosan terhadap Pasangan
Dalam Hubungan Pacaran Jarak Jauh, Rasa bosan adalah salah satu penyebab hancurnya suatu hubungan. Jika anda mulai merasa bosan, Coba pandangi fotonya (yang udah dicetak, bukan klise foto) lagi dan bayangkan masa-masa indah bersama do'i. Jangan bayangkan yang jorok-jorok plisss!! Berpikirlah seribu enam ratus delapn puluh tiga kali jika anda mau mengatakan saya bosan kepadanya. Seperti kata teman saya itu hanyalah perasaan yang muncul sesaat. Benarkah demikian?? Yang bisa jawab angkat tangan, karena ini adalah pertanyaan rebutan.
5. Pikirkan matang-matang Mau dibawa kemana Hubungan ini
Tidak semua orang bisa menjalani hubungan jarak jauh dengan baik. Perlu banyak kesabaran dan usaha untuk melewati itu semua. Coba pertimbangkan positif dan negatif hubungan yang tengah dijalani. Apakah anda dan pasangan bahagia? Apakah anda lebih sering bertengkar daripada bermesraan? Apakah hubungan berubah menjadi buruk setelah kekasih pindah ke kota lain? Dan berbagai hal lainnya.Jika setelah ditimbang ternyata hal buruk lebih unggul, tak ada salahnya anda berpikir dua kali empat sama dengan delapan untuk melanjutkan hubungan jarak jauh. Jangan tergesa-gesa mengakhiri hubungan, bicarakan dulu baik-baik dengan Do'i. Beri alasan dan argumen yang tepat. Pada akhirnya, akan sangat baik jika anda dan pasangan bisa menemukan jalan keluar. Siapa tahu adanya perubahan malah akan membuat lebih mesra. Tapi jika tidak, kenyataan pahit memang harus ditempuh. Lagian siapa yang mau terus-terusan sedih dan menderita karena cinta.
Nah sudah pada mengerti semua?? "Sudah Pak Guruuuu!!", kalo memang jodoh ga bakalan kemana-mana. Jadi jangan takut y anak-anak karena hubungan jarak jauh itu tenyata bisa kita siasati dengan tips-tips diatas. Kalo anda mempunyai tips-tips yang lain, tolong dibagikan agar teman-teman yang lain bisa belajar dan mendapat sedikit masukan.
50 Tips Cara Diet dan Menurunkan Berat Badan
Tips cara diet yg sehat
Langsing dan cantik impian semua wanita. Walaupun tidak mudah untuk dilakukan akan tetapi banyak wanita rela menahan lapar dan berolahraga berjam-jam. Diet yang baik bukanlah dengan cara berpuasa tapi juga pengaturan makanan berdasarkan umur dan aktivitas. Berikut beberapa tips yang dijamin membuat diet Anda lebih baik dan sehat.
1. Hindari pemikiran semua atau tidak sama sekali. Berpuasa bukanlah cara terbaik untuk menurunkan berat badan. Makanlah secukupnya dan atur asupan kalori secara bijaksana.
2. Potonglah buah-buahan yang Anda suka dalam potongan kecil untuk menggantikan snack yang tidak sehat.
3. Hindari memakan cemilan dari toples, anda akan tidak sadar berapa banyak yang telah masuk ke dalam mulut Anda. Taruhlah didalam piring atau cukup ambil segenggam.
4. Jika Anda termasuk orang yang menyukai roti, pilihlah yang wholegrain.
5. Hindari makanan yang mengandung lemak lebih dari 10 persen. Baca label informasi nutrisi di dalam kardus makanan.
6. Catatlah makanan yang telah Anda santap selama 2 minggu. Percayalah Anda akan terkejut!
7. Mentega memiliki kandungan lemak jenuh. Hindari atau ganti dengan yang rendah lemak.
8. Bawalah botol air minum kemanapun Anda pergi. Dengan begitu Anda tidak akan terdehidrasi dan juga lebih sedikit kemungkinan untuk memilih minuman yang bersoda ataupun terlalu banyak gula.
9. Cobalah detoxification, untuk mengeluarkan racun dalam tubuh Anda
10. Snack baik bagi Anda untuk mencegah makan siang atau malam yang berlebihan.
11. Carilah teman atau partner untuk berdiet bersama. Cara ini akan membuat Anda berdua bias saling memotivasi.
12. Carilah tahu kebiasaan Anda yang merusak program diet. Jika Anda suka mengemil roti menuju gym, gantilah rute Anda!
13. Minumlah banyak air mineral
14. Sayuran rendah di kalori akan tetapi jangan dimasak terlalu lama karena kandungan gizi dapat berubah.
15. Jika Anda terbiasa makan besar spada akhir pekan.Usahakan snack yang rendah lemak dan kalori tersimpan baik di lemari!
16. Selalu pilihlah porsi terkecil dari menu restoran yang ada
17. Belilah sebuah juicer dan mulailah buat kreasi jus Anda sendiri. Jangan lupa untuk mencoba jus sayuran. Kaya vitamin dan lebih sedikit fruktosa.
18. Jangan berpikir bahwa salad selalu aman dikonsumsi. Mereka biasanya juga dikombinasikan dengan mayonnaise dan keju.
19. Sikatlah gigi Anda jika keinginan ngemil muncul. Rasa makanan menjadi buruk setelah Anda menyikat gigi.
20. Ingin menyantap coklat? Pilihlah low fat coklat!
21. Porsi makan bertambah selagi PMS? Lawan dengan mengkonsumsi kacang Almond. Mereka memberi banyak protein dan juga mengurangi keinginan ngemil makanan manis.
22. Pilihlah makanan yang direbus, berkuah, di tim, atau dibakar sebelum Anda memilih yang digoreng.
23. Pilihlah seledri sebagai teman diet yang setia mulai sekarang.
24. Perhatikan bagaimana wanita langsing memesan makanan. Cari tahu dan jadikan rahasia mereka, rahasia Anda.
25. Gunakanlah sumpit untuk memperlambat makan Anda.
26. Hindari mengemil disaat Anda bosan, gantikanlah dengan hal-hal yang ingin Anda lakukan tapi tidak sempat!
27. Jangan berpikir bahwa Anda akan mulai berdiet setelah melalui masa stress. Percayalah masa ini akan selalu ada! Sebaliknya persiapkan diri Anda untuk menghadapi masa-masa ini dan tetap fokus kepada diet Anda.
28. Jam 3 adalah waktu snack favorit. Pilihan terbaik untuk meningkatkan energi meliputi pisang, kacang, dan low fat yoghurt.
29. Cobalah untuk lebih memilih kualitas daripada kuantitas.
30. Tambahkan cabai atau rempah-rempah pedas untuk meningkatkan metabolisme tubuh Anda.
31. Tambahkan es kedalam minuman Anda. Karena tubuh Anda membutuhkan energi untuk menyesuaikan minuman tersebut dengan suhu tubuh. Yang pada akhirnya akan membakar lemak Anda!
32. Siapkan semua makanan Anda sendiri daripada makanan siap saji. Akan lebih mudah bagi Anda untuk mengontrol asupan gula dan kalori yang dipakai.
33. Untuk mengalahkan rasa lapar ketika memasak, mulailah dengan menyantap sepiring besar salad!
34. Ketika membaca artikel tentang diet yang cocok dengan Anda. Gunting dan tempelkanlah dikulkas Anda!
35. Dapatkan tidur yang cukup! Kelelahan berkepanjangan akan menyebabkan Anda meraih makanan yang tinggi kalori.
36. Susu kedelai merupakan alternatif yang lebih baik untuk mengkonsumsi susu rendah lemak!
37. Kurangi garam Anda!
38. Taruhlah foto di kulkas untuk memotivasi Anda!
39. Go Green! Pilihlah sayuran hijau ataupun teh hijau yang akan memberi kontribusi pada kesehatan Anda! (http://www.cara-diet.blogspot.com)
40. Pilihlah yang diet jika Anda terpaksa minum soda.
41. Untuk pembakaran lemak secara maksimal maka Anda diharuskan untuk mengkonsumi kacang-kacangan!
42. Sangat mudah untuk membuat temu janji di restoran ataupun kafe, Akan tetapi pilihlah tempat yang tidak akan membuat Anda harus makan! Seperti olahraga ataupun kerajinan tangan!
43. Pilihlah tangga daripada lift ataupun eskalator.
44. Hitung budget Anda untuk makanan ataupun snack. Anda bisa mengalokasikan dana tersebut untuk keperluan lain.
45. Pisang adalah makanan terbaik sebelum Anda memulai berolahraga. Pisang dipenuhi dengan potassium yang akan membantu dengan otot dan kadar air dalam tubuh Anda.
46. Jangan lakukan hal lain ketika Anda sedang makan. Jika Anda makan sambil membaca ataupun sambil menonton, Anda akan segera mengasosiasikan kedua kegiatan ini. Anda akan segera makan begitu TV dinyalakan.
47. Pastikan Anda mendapatkan cukup matahari. Vitamin D akan membantu Anda mendapatkan lebih banyak kalsium yang akan lebih mempercepat proses metabolisme.
48. Cobalah Herbal Tea secara bergiliran dan pilihlah favorit Anda. Percayalah ini investasi terbaik untuk kesehatan Anda.
49. Gigitlah makanan Anda secara perlahan-lahan!
50. Minumlah segelas air dengan perasan jeruk lemon untuk membantu meningkatkan metabolisme Anda!
Semoga Tips-tips dietnya berguna buat teman-teman semua.
Selamat berdiet !!
__________________
Selengkapnya...
Tips Menghemat Baterai Laptop dan Menjaga Tetap Awet
Berikut beberapa tips untuk menghemat baterai laptop anda biar tetap awet dan tidak cepat ngedrop :
1. Lepaskanlah baterai laptop anda, saat anda menggunakan laptop langsung dengan colokan kabel listrik.
2. Bila anda menggunakan laptop dengan tenaga baterai, sedapat mungkin jangan sambil dicolokkan ke listrik (sambil di charge).
3. Pastikan power baterai anda benar-benar habis dengan sendirinya. jadi biarkanlah laptop anda mati sendiri saat baterai habis, jangan anda shutdown terlebih dahulu. (untuk keamanan pekerjaan, pastikan simpan “pekerjaan” anda saat alarm critical / low batterai mulai berbunyi.
4. Sedapat mungkin, charge laptop anda pada posisi laptop mati. biasanya terdapat indikator lampu yang menunjukkan posisi pengecharge an dan posisi saat baterai sudah penuh.
5. Segera cabut colokan dari laptop anda saat di charge ketika lampu indikator baterai penuh telah menyala.
6. Pastikan suhu laptop terhindar dari suhu ekstrim (ex : di dalam mobil di siang hari dll).
Selengkapnya...
Wisata Madiun - Dumilah Park and Waterboom
Dumilah Park - Masyarakat Madiun dan sekitarnya sebenarnya sangat menunggu akan adanya ruang publik yang dapat menjadi ruang berapresiasi dan berekreasi. Ruang publik dimana masyarakat akan mendapatkan kenyamanan dan kegembiraan tanpa gangguan hiruk pikuk aktivitas kota.
Dumilah Park menawarkan konsep taman di jantung kota Dumilah Park sendiri dijamin kebersihannya. Madiun. Agar masyarakat Madiun dan sekitarnya bisa merasakan hal yang berbeda dari tempat-tempat tujuan wisata lainnya. Dumilah Park memberikan solusi bagi masyarakat kota yang jenuh dengan aktivitas keseharian, dan ingin menyegarkan suasana dengan beberapa fasilitas yang ada diantaranya Garden Zone, Water Zone, Games Zone dan Pujasera. Garden Zone, merupakan wilayah taman yang asri dimana mata memandang akan merasakan kesejukan. Water Zone berupa sarana kolam renang yang sangat dijaga kualitas airnya. Selain itu akan segera di buka juga beberapa fasilitas lain dari water zone seperti kiddy pool, kolam tanding dan kolam arus.Pujasera atau Pusat Jajanan Selera Rakyat yang ada di lingkungan
Dumilah Park dapat dijadikan simbol upaya masyarakat Madiun mempertahankan eksistensi kelokalannya. Eksistensi bahwa Madiun pun bisa menjadi salah satu tujuan wisata seperti kota-kota besar lainnya.Bila upaya tersebut berhasil maka Madiun tidak hanya menjadi tujuan wisata saja, tapi juga akan menghidupkan sektor lainnya seperti ekonomi, pendidikan dan sosial budaya.
Dumilah Park bisa menjadi pioner terciptanya Madiun sebagai kota wisata belanja, wisata budaya, wisata pendidikan, wisata tekhnologi, dan tentu saja wisata alam. Semua itu akan terwujud bila ada sinergi yang baik dari Dumilah Park, pemerintah daerah dan masyarakat. Dumilah Park akan memulai dengan konsep kenyamanan bagi keluarga berekreasi melalui garden zone, waterzone dan pujasera yang berkualitas, aman dan sehat.
Geliat untuk menjadikan Dumilah Park sebagai tempat wisata diakhir pekan bagi keluarga di wilayah eks karesidenan madiun mulai terlihat. ini diketahui dengan mulai ramainya Dumilah Park di setiap akhir Pekannya.
Siswono, warga gemarang madiun, mengatakan bahwa dia bersama keluarganya ke dumilah park karena ingin membuktikan informasi dari teman-teman seprofesinya bahwa di Madiun sudah ada tempat wisata baru. " iya mas, minggu kemarin teman saya baru aja dari Dumilah Park. katanya disini bisa main air dan renang sepuasnya." Dia juga mengatakan bahwa pilihannya untuk mengajak keluarganya berkunjung ke dumilahpark sebagai acara pengisi akhir pekannya.
Agus Purwanto, kepala bagian perawatan waterzone sendiri mengakui bahwa di setiap minggunya area waterzone selalu dipenuhi pengunjung." lumayan sih..dari baru buka jam 7 pagi sampai mau tutup jam 7 malem masih banyak pengunjungnya." Dia juga mengatakan bahwa pada setiap akhir minggu memang bagian waterzone memberikan pengawasan extra dikarenakan banyaknya pengunjung yang masuk di 4 kolam yang di sediakan.
Seperti diketahui Dumilah Park memiliki empat kolam yang bisa dinikmati untuk para pengunjungnya yaitu kolam arus, kiddie pool, water boom dan kolam tanding. Dumilah Park yang sudah beroperasi mulai bulan juli 2009 telah menjadi pilihan masyarakat madiun dan sekitarnya untuk berakhir pekan
Selengkapnya...
Belajar Pascal - Procedure Pada Pascal -
Prosedur (procedure) merupakan suatu blok kode program yang disusun untuk menyelesaikan masalah umum. Misalkan dalam bahasa pemrograman pascal dikenal prosedur-prosedur seperti writeln, clrscr, textbackground, textcolor, readln, dsb. Pemanggilan prosedur-prosedur tersebut bervariasi antara satu prosedur dengan prosedur yang lainnya. Misalkan prosedur clrscr yang berfungsi untuk menghapus seluruh tulisan di layar monitor dan meletakkan posisi kursor di X=0 dan Y=0. Prosedur clrscr dalam pemanggilannya tidak membutuhkan parameter; prosedur writeln/write berufungsi untuk mencetak keluaran (output) ke layar monitor. Prosedur writeln/write bisa dipanggil dengan mengikutkan parameter atau tanpa mengikutkan parameter. Sebagai contoh diinstruksikan ke penterjemah (compiler) Pascal untuk memindahkan posisi kursor turun satu baris (Nilai Y Bertambah) dan X tetap di posisi 0 seperti terlihat pada kode berikut:
begin
writeln;
end.
Pada kode di atas dipanggil prosedur writeln tanpa diikuti parameter. Pascal memahami bahwa bila pemanggilan prosedur writeln tanpa parameter maka posisi kursor di monitor berubah yaitu kursor kembali ke posisi X=0 (Carriage Return) dan Posisi Y tambah Satu – Turun Satu Baris (Line Feed).
Contoh lainnya kita bisa menyuruh prosedur writeln untuk mencetak perkalian 10*10:
begin
writeln(10*10);
end.
Kode di atas dapat dijelaskan bahwa kita memanggil prosedur writeln dengan mengirimkan parameter perkalian 10*10. Karena prosedur writeln merupakan prosedur yang sudah siap pakai (built in procedure) atau sudah didefenisikan oleh pascal makan detail dari instruksi di dalam prosedur writeln tidak kita ketahui dengan pasti.
Kita juga bisa menyuruh perintah writeln untuk mencetak untaian karakter (string) “Respati Yogyakarta”:
begin
writeln(‘Respati Yogyakarta’);
end.
Atau gabungan dari nilai dan konstata seperti berikut:
begin
writeln(10*10,’Respati Yogyakarta’);
end.
Keluwesan prosedur writeln tentu akan sangat membantu dalam pemberian perintah ke komputer.
Prosedur Buatan Pemakai
Pascal memungkinkan programmer untuk membuat prosedur sendiri (user defined procedure). Tata cara (syntax) pendeklarasian prosedur buatan pemakai adalah:
procedure namaprosedur([par1,par2,par3,...parn]);
{deklarasi variabel}
{deklarasi prosedur}
{deklarasi fungsi}
{deklarasi konstanta}
{deklarasi label}
begin
end;
Prosedur yang telah dikelarasikan selanjutnya dapat dipanggil dari program utama atau dari prosedur itu sendiri atau prosedur lainnya.
Berikut ini akan dibuat suatu prosedur untuk mencetak alamat Unriyo Yogyakarta:
Program CetakAlamat;
uses crt;
procedure Alamat();
begin
writeln(‘Universitas Respati Yogyakarta’);
writeln(‘Jln.Laksda Adisucipto Km.6,3 Depok, Sleman, Yogyakarta’);
end;
Begin
clrscr;
{Memanggil Prosedur Alamat}
Alamat();
End.
Prosedur Berparameter
Prosedur yang diberi tugas khusus dapat menerima parameter sesuai dengan kebutuhan. Misalkan terdapat diinginkan prosedur untuk mencetak bilangan 1 s.d N. Disini nilai N tidak pasti, bisa 10, 20, 100. Untuk itu pada saat pemanggilan prosedur kita kirimkan nilai N dan prosedur selanjutnya memproses pencetakan angka 1 s.d N.
Program CetakAngka;
Uses Crt;
Procedure CetakAngka1Sd(N: Byte);
Var
I: Byte; {Deklarasi Lokal}
Begin
For I:=1 To N Do
writeln(I);
End;
{Program Utama}
Begin
{Bersihkan layar}
clrscr;
{Panggil Prosedur Cetak 1 s.d 20}
CetakAngka1SD(20);
{Panggilan Lagi Prosedur Cetak Angka 1 s.d 100}
CetakAngka1SD(100);
Readln; {Tunggu Penekanan Tombol Enter}
End.
Parameter Nilai dan Parameter Acuan
Secara umum parameter yang dikirimkan ke prosedur merupakan parameter nilai artinya nilai parameter tidak akan berubah setelah pemanggilan prosedur. Bila diinginkan perubahan nilai parameter setelah pemanggilan prosedur, parameter seperti ini disebut parameter acuan.
Buatlah prosedur untuk menghitung jumlah deret berikut:
1/1+1/2+1/3+…1/N
Diinginkan banyaknya N tidak pasti dan sekaligus hasil penjumlahan terlihat setelah pemanggilan prosedur. Dengan demikian dibutuhkan 2 (dua) buah parameter yaitu N (parameter nilai) dan Jumlah(parameter acuan).
Program Jumlah_Deret;
Uses Crt;
Procedur Jumlah (N : Byte; Var Jumlah : Real);
Var
I : Byte;
Begin
Jumlah:=0;
For I:=1 To N Do
Jumlah:=Jumlah + 1/I
End;
Var
Cacah_Data : Byte;
Hasil : Real;
Begin
clrscr;
Cacah_Data:=10;
{Panggil Prosedur}
Jumlah(Cacah_Data,Hasil);
writeln(‘Jumlah Deret’,Hasil:8:2);
Readln;
End.
Lingkup Variabel
Lingkup variabel (variabel scope) menggambarkan daya akses dari variabel tersebut. Dalam Pascal terdapat 2 (dua) jenis ruang lingkup yaitu ruang lingkup global dan lokal. Ruang lingkup global menandakan bahwa variabel tersebut akan dikenali diseluruh kode program. Ruang lingkup lokal menandakan bahwa variabel tersebut hanya dikenal ditempatnya dideklarasikan.
Misalkan terdapat program seperti berikut:
Var
IGlobal : Byte;
Procedure LokalSatu;
Var
ILokal1 : Byte;
Begin
ILokal1:=10;
Writeln(ILokal1,IGlobal);
End;
Procedure LokalDua;
Var
ILokal2 : Byte;
Begin
ILokal2:=20;
Writeln(ILokal2,IGlobal);
End;
{Program Utama}
Begin
IGlobal:=10;
Lokal;
End.
Pada kode di atas variabel IGlobal akan dikenali di seluruh kode program (baik di Program Utama, Prosedur LokalSatu, Prosedur LokalDua). Sedangkan variabel ILokal1 hanya akan dikenal di prosedur LokalSatu. Begitu juga variabel ILokal2 hanya akan dikenal di prosedur LokalDua.
Kita perhatikan lagi kode program berikut:
Program Lingkup_Lingkup;
Var
I : Byte;
Procedure Terluar;
Var
ITerluar : Byte;
Procedure Terdalam;
Var
ITerdalam : Byte;
Begin
ITerdalam:=20;
writeln(I,ITerluar,ITerdalam);
End;
Begin
ITerluar:=10;
{Panggil Prosedur Terluar}
End;
{Program Utama}
Begin
I :=5;
Terluar;
End.
Pada kode program di atas I bersifat global artinya akan dikenali di program utama, prosedur terluar dan prosedur terdalam. Variabel ITerluar akan bersifat global di prosedur tersebut sehingga variabel tersebut akan dikenali prosedur-prosedur yang dideklarasikan dalam prosedur tersebut. Namun variabel ITerluar tidak akan dikenali oleh Program Utama. Variabel ITerdalam hanya akan dikenali oleh Prosedur Terdalam.
Prosedur Rekursif
Prosedur yang memanggil dirinya sendiri disebut sebagai prosedur rekursif. Misalkan terdapat kode program seperti berikut ini:
Procedure Cetak;
Begin
writeln(‘Respati’);
{Prosedur Memanggil Dirinya Sendiri}
Cetak;
End;
{Program Utama}
Begin
{Panggil Prosedur}
Cetak;
End.
Kode program di atas dapat dijelaskan sebagai berikut:
1. Mulai
2. Panggil Prosedur Cetak
3. Cetak string ‘Respati’
4. Panggil Prosedur Cetak
5. Cetak string ‘Respati’
6. Panggil Prosedur Cetak
7. Cetak string ‘Respati’
8. dst
Pemanggilan terhadap dirinya sendiri akan tetap dilakukan Prosedur Cetak karena tidak ada pernyataan yang menghentikan pemanggilan. Pemanggilan ini akan terus berlangsung terus-menerus (continues call).
Untuk mengatasi masalah ini maka perlu dibuat suatu pernyataan yang membatasi pemanggilan prosedur. Misalkan kode program di atas kita ubah seperti berikut ini:
Var
I : Byte;
Procedure Cetak;
Begin
IF (I<=5) Then
begin
writeln('Respati');
{Prosedur Memanggil Dirinya Sendiri}
Cetak;
I:=I+1;
end;
End;
{Program Utama}
Begin
I:=1;
{Panggil Prosedur}
Cetak;
End.
Pada kode di atas prosedur Cetak hanya akan dipanggil sebanyak 5x seperti yang dinyatakan dalam kondisi IF (I<=5). Jika I>5 maka prosedur Cetak tidak akan dipanggil lagi. Umumnya ditentukan suatu kondisi yang memberhentikan pemanggilan prosedur pada dirinya sendiri.
Parameter Bertipe Array
Parameter bertipe array dapat dikirimkan ke prosedur dengan sedikit perbedaan dari parameter bertipe konvesional (byte, word, integer, real).
Program Jumlah_Data;
Const
N=100;
Type
Data : Array[1..N] Of Single;
Var
AData : Data;
Procedure Jumlah(DataA : Data,Cacah:Byte)’
Begin
For I:=1 To N Do
Jlh:=Jlh+DataA[I];
writeln(‘Jumlah Data Adalah’,Jlh:12:0);
End;
{Program Utama}
Begin
{masukkan data}
AData[1]:=70;
AData[1]:=65.5;
AData[1]:=89;
AData[1]:=77;
AData[1]:=64;
AData[1]:=78.5;
{Panggil Prosedur Jumlah Data}
Jumlah(AData,6);
Readln;
End.
Latihan Prosedur
Diketahui data berat mahasiswa Prodi Sistem Informasi seperti dibawah ini:
65,78,58,60,63,56,65,69,77
Buatlah prosedur untuk :
1.menginputkan N Buah data
2.menghitung jumlah, rata-rata dan standar deviasi berat
3.mengurutkan data secara menaik (ascending)
4.mengurutkan data secara menurun (descending)
5.melihat isi array
Untuk menyelesaikan kasus tersebut akan dibuat menu dalam bentuk pilihahan sehingga memudahkan dalam penggunaan program.
Menu Pilihan
1. Input Data
2. Tentukan Jumlah, Rata-Rata dan Standar Deviasi
3. Urutkan Data Secara Menaik
4. Urutkan Data Secara Menurun
5. Tampilkan Isi Array
Pilihan Anda [1..5] :
Program Statistik;
Uses Crt;
Const
N = 100;
{Deklarasi Prosedur Input Berat}
Procedure Input_Berat(Berat_Mhs : Berat; N : Byte);
Var
I : Byte;
Begin
For I:=1 To N Do
Begin
write(‘Masukkan Berat Ke’,I,’:');readln(Berat_Mhs[I]);
End;
End;
{Program Utama}
Var
Ulang : Boolean;
Pil : ShortInt;
Begin
Ulang:=True;
While (Ulang) Do
Begin
clrscr;
gotoxy(25,1);write(‘M E N U U T A M A’);
gotoxy(25,2);write(‘————————-’);
gotoxy(25,3);write(‘1. Input Data’);
gotoxy(25,4);write(‘2. Tentukan Jumlah, Rata-Rata, Standar Deviasi’);
gotoxy(25,5);write(‘3. Urutkan Berat Secara Menurun’);
gotoxy(25,6);write(‘4. Urutkan Berat Secara Menaik’);
gotoxy(25,7);write(‘5. Tampilkan Array’);
gotoxy(25,8);write(‘0. Selesai’);
pil:=-1;
while (pil<0)or (pil>5) do
begin
gotoxy(25,9);write(‘Pilihan Anda [0..5] : ‘);readln(pil);
end;
{Uji Pilihan}
Case (Pil) Of
1 : Begin {Input Data Berat}
End;
2 : Begin {Tentukan Jumlah, Rata-Rata dan Standard Deviasi}
End;
3 : Begin {Urutkan Secara Ascending}
End;
4 : Begin {Urutkan Secara Descending}
End;
5 : Begin {Tampil Isi Array}
End;
0 : Begin {Program Selesai}
End;
End; {Akhir Case}
End;{Akhir While}
End. {Akhir Program}
