Fungsi Case pada Program Pascal

Case (english) ~ atau dalam bahasa indonesianya "Kasus" merupakan fungsi yang ditulis dalam program Pascal. Jadi, fungsi ini adalah fungsi yang ditulis dalam program yang bertugas membagi kasus dengan pilihan-pilihan yang sudah ditentukan.
Agar lebih mudah dipahami Mari kita liha tutorialnya di bawah ini!

Program: Pascal IDE
1. Buka program Pascal IDE>File>New

2. Buat Program
Buat Program yang ingin kamu buat, Misalnya Program mengenai Penjualan Kertas di tempat percetakan foto copy. Dalam Kasus ini anda akan menemukan banyak macam jenis kertas yang di jual di tempat percetakan fotocopy maka dari itu kita dapat menggunakan perintah Case karena ini lebih sederhana dari if-then-else. untuk contoh format pengetikannya bisa anda lihat di bawah:
================================================
Program Penjualan_Kertas;
Uses Crt;
Var Kode, Jumlah, Harga :INTEGER;

Begin
Clrscr;

Writeln('Kode Kertas');
Writeln('1= Kertas Polio  Rp 150,-);
Writeln('2= Kertas Hvs A4  Rp 200,-);
Writeln('3= Legal F4  Rp 200,-);
Writeln('4= Hvs Warna  Rp 300,-);
Writeln('5= Kertas Karton  Rp 1000,-);

Writeln('Kode Kertas= ');
readln(Kode);
Writeln('Jumlah Kertas= ');
readln(Jumlah);
=================================================
Ket: Nah, Sekarang Kita masukkan Fungsi Case Of nya, Anda dapat menulis format case of seperti di bawah ini:
=================================================
Case Kode of
1: Harga : =(Jumlah*150);
2: Harga : =(Jumlah*200);
3: Harga : =(Jumlah*200);
4: Harga : =(Jumlah*300);
5: Harga : =(Jumlah*1000);
end;
==================================================
Ket: Sekarang Fungsi Case Of nya sudah selesai, tinggal kita selesaikan saja programnya
==================================================
Writeln('Harga= ','Rp ',Harga,',- ');
Readln(Harga);
end.
==================================================
PERHATIAN! untuk keterangan (Ket:) tidak usah ditulis karena itu hanya penjelasannya saja :)
Kalau sudah akan muncul tampilan seperti di bawah:

3. Periksa Program yang anda Buat!
Periksalahkembali program yang barusaja anda buat, dan Perbaikilah kalaunya ada yang salah, anda juga bisa menghiasi dengan menambah sedikit dekorasi sesuai keinginan anda >_<

4. Make
Jika program anda sudah benar maka anda dapat membuat program tersebut dengan perintah "MAKE" dengan menekan Ctrl+F9

Sekian tentang Fungsi Case Of yang saya ketahui, Mudah-Mudahan dapat bermanfaat ^^

Black Hat Hacker Terkenal Didunia

Black Hat Hacker (Hacker Jahat) adalah istilah slank komputer untuk seseorang yang terlibat dalam pembobolan / perusakan pada skuritas jaringan kemanan secara ilegal. Sedangkan White hat Hacker (Hacker Baik) adalah seorang hacker yang mempunyai tujuan untuk meningkatkan suatu keamanan sistem dalam internet. Banyak sekali dari White Hat hacker yang kita kenal hari ini seperti Steve Jobs dari Apple, Mark Zuckerberg dari Facebook atau Bill Gates dari Microsoft, dll. Namun tidak dipungkiri tidak sedikit dari mereka yang dari kalangan Hacker Putih dulunya adalah Black hat Hacker. Dan berikut ini daftarBlack Hat Hacker paling dikenal di dunia:

Kevin Poulsen

“Seorang pria yang baik di siang hari dan nampak jahat di malam hari”, begitulah yang dapat menggambarkan pemuda yang satu ini. Poulsen adalah seorang penjahat cyber paling terkenal di Amerika yang pernah ada. Untuk menjadi seorang peretas, Poulsen belajar sendiri secara otodidak. Salah satu aksi terbaik yang pernah dilakukannya adalah mengambil alih saluran telepon yang menuju stasiun radio Los Angeles KIIS-FM. Poulsen ditangkap oleh FBI akibat beberapa akun yang ia retas termasuk mail, kawat dan penipuan komputer, pencucian uang dan penggangguan pengadilan dan dihukum 51 bulan penjara dengan biaya $ 56.000 sebagai biaya kompensasi. Setelah dibebaskan, Poulsen mengubah dirinya sebagai seorang jurnalis dan menjauhkan diri dari masa lalunya yang melanggar hukum. Ia memulai bekerja sebagai wartawan di Security Focus, sebuah perusahaan keamanan berbasis di California. Disana, ia menulis tentang sistem keamanan teknologi informasi. Poulsen kini menjabat sebagai editor senior di Wired News, sebuah situs teknologi berbasis online.

Albert Gonzalez

Albert Gonzalez, lahir pada tahun 1981. Adalah seorang hacker komputer dan criminal computer yang dituduh mendalangi pencurian kombinasi kartu kredit dan kemudian dijual kembali lebih dari 170 juta kartu kredit dan nomor ATM dari 2005 hingga 2007, dan menjadi penipuan terbesar dalam sejarah. Gonjalez dan komplotannya menggunakan teknik injeksi SQL untuk membuat backdoor malware pada beberapa sistem perusahaan untuk meluncurkan paket sniffing yang digunakan untuk mencuri data komputer dari jaringan internet perusahaan. Gonzalez memiliki tiga dakwaan federal. Dan pada tanggal 25 Maret 2010, Gonzalez dijatuhi hukuman 20 tahun penjara federal.

Vladimir Levin

Levin terkenal pada 1990-an atas upaya hacking yang terkena kerentanan situs perusahaan yang populer, salah satu yang paling terkenal dalam hal ini menjadi Citibank. Levin, pada tahun 1994, mampu mengakses rekening Citibank milik pelanggan berbagai perusahaan. Dia menggunakan layanan dial-up wire transfer dan berhasil mentransfer uang dari rekening tersebut ke rekening yang terletak di Israel, Jerman, Amerika Serikat, Finlandia, dan Belanda. Levin memiliki kaki tangan di masing-masing lokasi. Namun, 3 dari antek-anteknya diawasi ketika mereka mencoba untuk menarik uang. Mereka ditangkap dan mereka semua memberi tanda-tanda yang menunjuk keberadaan Levin. Pada tahun 1995, Levin ditangkap. Pada akhir semua itu, Levin bisa berhasil, tetapi secara curang mentransfer sekitar $ 10,7 dolar dari rekening Citibank ke akun yang telah dia buat. Pada tahun 1997 dia dibawa ke Amerika Serikat dan mengaku bersalah atas konspirasi untuk menipu serta mencuri $ 3,7 juta. Dia dimasukkan ke dalam penjara selama 3 tahun dan diperintahkan untuk membayar $ 240.015.

Robert Tappan Morris

Pada November 1988, sebuah program jahat menyebar ke sekitar 6.000 mesin komputer berbasis Unix. Komputer yang jadi korban menjadi sangat lambat dan tidak bisa digunakan. Kerugiannya ditaksir mencapai jutaan dolar. Kejadian itu kemudian dikenang sebagai The Great Worm, The Great Worm of 1988 memiliki dampak besar pada ranah cyber. Bukan hanya sebagai worm yang awal menyebar di dunia, tapi juga karena membelalakkan mata dunia – terutama masyarakat non-TI pada sebuah bentuk “ancaman jahat” baru. Di balik worm itu adalah seorang brilian bernama Robert Tappan Morris. Ketika itu Morris masih bersekolah di Cornell University, alhasil worm itu pun dinamai sesuai nama belakangnya: Morris Worm.Kengerian yang ditimbulkan akibat Morris Worm diperburuk dengan tindakan yang oleh banyak kalangan dinilai berlebihan terhadap Robert Morris. 

RTM, demikian ia kadang disebut, menjadi orang pertama yang dihukum dalam Undang-Undang Computer Fraud and Abuse (Penyalahgunaan dan Penipuan dengan Komputer). Dia mendapatkan hukuman 3 tahun masa percobaan dan 4.000 jam layanan masyarakat. Selain itu, Morris juga harus membayar denda dan biaya-biaya lain yang totalnya hingga mencapai US$ 10.000. Kiprah Morris di dunia akademis menunjukkan potret seorang yang cukup brilian. Sebagai lulusan terbaik di Sekolah Menengah Atas, ia telah mencicipi tiga kampus mentereng di Amerika Serikat. Morris pertama kali kuliah di Harvard, lalu melanjutkan ke Cornell dan kembali ke Harvard sebelum akhirnya, hingga saat ini, menjadi Profesor di MIT.

Michael Calce

Michael Calce adalah seorang anak siswa SMA dari Westland, Quebec. Sejak muda ia sudah disebut seorang hacker tepatnya pada umur 15 tahun. Ketika ia sedang melakukan aksinya ia menyamarkan namanya menjadi “MafiaBoy”. Alasan mengapa dia disebut seorang hacker karena dia pernah meluncurkan serangan 9 dari 13 root server nama, namun gagal. Dan aksi terheboh nya pada tahun 2000, dia pernah mencoba menargetkan sasarannya terhadap situs-situs komersial besar seperti Yahoo, Ebay, CNN, Amazon.com, Dell, Inc, dan E-Trade, tetapi aksinya terhenti saat ia ditangkap sedang mengacak-acak situs-situs besar tersebut.

Algoritma & Pemrograman

Cara mencari Panjang Sisi Miring Segitiga Dengan Program Pascal

1. Buka Program "Pascal IDE" Sehingga muncul tampilan seperti ini, Lalu Klick "File > New"

2. Setelah itu masukkan data seperti di bawah ini :
========================================================
Program Sisi_Miring;
Uses crt;
Var alas,tinggi,miring : real;

Begin
Clrscr;
Write('Panjang Alas=');
Readln(alas);
Write('Tinggi Segitiga=');
Readln(tinggi);
miring:=sqrt((alas*alas)+(tinggi*tinggi));
Write('Panjang Kemiringan=',miring:2:2);
Readln;

End.
=========================================================
Setelah selesai maka tampilannya akan seperti ini

3. Setelah selesai mengetik seperti di atas maka Anda Perlu mengecek Program tersebut, Dengan Cara menekan "F9"
Jika anda sudah benar... maka akan muncul tampilan layar "Compile Succesful" seperti di bawah ini

Tetapi Jika Masih ada Pengetikan yang salah/ Tidak benar maka akan muncul tampilan seperti di bawah ini

Lakukan pengecekan sampai format pengetikan anda benar,

4. Setelah benar, maka anda dapat Mencoba Program anda dengan cara menekan "Ctrl+F9" Sehingga tampil layar hitam seperti di bawah ini

Anda dapat mencobanya dengan memasukkan format,
Misalnya :
Panjang alas 8
Tingi segitiga 6

lalu tekan "Enter" maka akan muncul hasil

Panjang kemiringan 10.00

Selamat Mencoba..... ^-^

Tanda-tanda Kalau Orang Akan Meninggal

Tidak mudah memang memprediksikan secara tepat kapan seseorang akan meninggal. Kematian itu sendiri bisa disebabkan sakit, kecelakaan atau sebab lainnya.
Pada kondisi normal seperti orang sakit biasanya seseorang akan menunjukkan gejala yang mengindikasikan bahwa hidupnya akan segera berakhir beberapa minggu lagi seperti dikutip dari Mayoclinic yaitu:
1. Merasa gelisah.Seseorang akan merasa tidak tenang serta sulit tidur, selain itu dia akan seringkali mengganti posisi saat tidur karena perasaan gelisah.
2. Menarik diri.Seseorang tidak ingin lagi terlibat dalam aktifitas sosial ataupun melakukan kegiatan favoritnya.
3. Sering mengantuk.Seseorang akan menghabiskan lebih banyak waktunya untuk tidur.
4. Kehilangan nafsu makan.Seseorang hanya akan makan dan minum dalam jumlah sedikit dan berbeda dari biasanya.
5. Mengalami jeda saat bernapas.Hal ini biasanya terjadi saat seseorang sedang tidur ataupun terjaga.
6. Luka yang sulit sembuh.Luka atau infeksi yang dialami mengalami kesulitan untuk disembuhkan.
7. Pembengkakan.Pada beberapa orang terjadi pembengkakan di daerah tangan, kaki atau bagian tubuh lain.
Proses sekarat mulai terjadi ketika tubuh tidak bisa mendapatkan asupan oksigen yang diperlukan untuk bisa bertahan hidup. Sel yang berbeda akan memiliki kecepatan kematian yang berbeda pula, sehingga panjangnya proses seseorang sekarat tergantung pada sel-sel yang kekurangan oksigen ini.
Sedangkan otak memerlukan oksigen dalam jumlah yang besar dan hanya memiliki sedikit oksigen cadangan. Sehingga kalo asupan oksigen berkurang maka akan mengakibatkan kematian sel dalam waktu 3-7 menit aja pren.
Beberapa tanda yang ditunjukkan oleh orang yang sekarat adalah lebih banyak tidur, hal ini untuk menghemat energi yang tinggal tersisa sedikit di tubuh. Ketika energi tersebut hilang, maka seseorang akan kehilangan nafsu untuk makan ataupun minum. Proses menelan pun menjadi sulit dan mulut akan sangat kering, sehingga memaksa orang yang sekarat untuk minum akan membuatnya tersedak.
Selain itu orang yang sekarat akan kehilangan kontrol pada kandung kemih dan ususnya, sehingga seringkali terlihat mengompol. Orang akan merasa bingung, gelisah dan tidak tenang karena tidak dapat bernapas dengan teratur. Ketika sel-sel di dalam tubuh mulai kehilangan sambungan, maka akan mengalami kejang otot.
Kematian akan semakin mendekat kalo kaki dan tangan terasa dingin dan mulai sedikit membiru akibat terhentinya aliran darah ke daerah tersebut. Tapi lama-kelamaan akan semakin menyebar ke bagian tubuh atas seperti lengan, bibir dan kuku. Selain itu orang menjadi tidak responsif, meskipun matanya terbuka tapi memiliki tatapan mata kosong atau tidak melihat sekelilingnya.
Setelah itu pernapasan akan terhenti sama sekali dan diikuti oleh berhentinya kerja jantung, maka secara klinis orang tersebut sudah mati karena tidak ada sirkulasi dan cadangan oksigen untuk bisa mencapai sel-sel di tubuh. Namun kematian klinis bisa dikembalikan melalui proses CPR (napas bantuan), transfusi atau ventilator. Tapi kalo 4-6 menit setelah kematian klinis tidak ada perubahan, maka itu artinya jantung sudah tidak bisa bekerja lagi.
Karena jantung sudah tidak bekerja, maka secara otomatis aliran darah dan oksigen ke seluruh tubuh dan otak juga akan terhenti pren. Akibat tidak adanya asupan oksigen dan darah ke otak, maka dalam hitungan beberapa detik otak juga akan mati dan disitulah akhir dari perjalanan hidup seorang manusia.

Nah, itu beberapa tanda-tanda orang yang akan meninggal. Percaya atau tidak, itu urusan kalian. Yang pasti jodoh, rezeki, dan matinya manusia hanya Tuhan yang tau pren. Semoga bermanfaat.

Pernikahan dengan Biaya Terkecil di Dunia

Unik, Pasangan Ini Menikah dan Resepsi Hanya Dengan Biaya Rp/ 17 Ribu

Siapa bilang pesta pernikahan itu membutuhkan biaya yang mahal, bahkan sampai ada yang habis ratusan juta Rupiah. Mereka yang bermewah-mewah pasti akan malu apabila tahu hal ini.

Sepasang pengantin baru asal Inverness, Skotlandia membuktikan bahwa menikah tidak perlu biaya yang mahal. Georgina Porteous dan suaminya Sid Innes melangsungkan pesta pernikahan mereka dengan biaya hanya 1 poundsterling atau sekitar Rp. 17,218.

Oh ya, walau mereka ini menikah dengan biaya pernikahan yang sangat minim (duit segitu bahkan ngga cukup untuk beli hamburger), tapi lengkap dengan cincin yang terbuat dari gading, gaun, bunga, kue, bahkan fotografer yang mengabadikan momen paling indah buat mereka itu. Mereka menikah tanggal 3 September 2013 kemarin.

Mari kita lihat salah satu foto pernikahan mereka yang bikin iri.

Kenapa kita membenci rekaman suara kita sendiri?

Kebanyakan orang tidak menyukai ketika mereka mendengar rekaman suara mereka sendiri. Mengapa?

Alasan mengapa kebanyakan orang tidak menyukai ketika mendengar rekaman suara mereka sendiri adalah karena mereka mendengar suara tersebut dalam dua keadaan yang berbeda.

Keadaan yang pertama adalah ketika gelombang suara yang bergetar menyentuh gendang telinga Anda, itulah bagaimana orang lain mendengar suara Anda. Keadaan kedua adalah ketika getaran di dalam tengkorak Anda yang dihasilkan oleh pita suara Anda merambat ke atas melalui tulang tengkorak dan menyentuh gendang telinga hingga ia bergetar.

Namun saat getaran tersebut merambat melalui tulang tengkorak, getaran akan menyebar dan pitch suara kita akan jauh lebih rendah sehingga memberikan nada yang false. Maka, ketika Anda mendengar rekaman suara Anda sendiri akan terdengar jelas lebih tinggi.

Suara yang ada dalam kepala kita saat kita berbicara berbeda dengan suara yang didengar oleh orang lain. Maka saat kita merekam dan akan terasa aneh ketika mendengarkannya kembali. Hal tersebut yang membuat kita kadang membenci rekaman suara kita sendiri.

5 Kehebatan Kopassus Hingga Diakui Dunia

Kasus penembakan empat tahanan Polda DIY di Lapas Cebongan, Sleman, DIY, yang dilakukan 11 personel Komando Pasukan Khusus (Kopassus), membuat publik kembali mengarahkan perhatiannya kepada pasukan elite milik TNI Angkatan Darat itu.

Dulu jelang Reformasi bergulir, Kopassus juga sempat membuat heboh publik. Saat itu Tim Mawar Kopassus diketahui menculik sejumlah aktivis pro demokrasi.

Meski demikian, prajurit Kopassus tak selalu berbuat negatif. Pasukan elite yang memiliki moto 'Berani, Benar, Berhasil' itu juga memiliki sederet prestasi yang membanggakan.

Tak tanggung-tanggung, prestasi yang dimiliki Kopassus tak hanya di dalam negeri, di dunia internasional Kopassus juga menjadi pasukan elite yang dipandang dan disegani dengan segudang prestasi.

Berikut lima kehebatan Kopassus hingga diakui dunia:

1. Kopassus juara menembak jitu

Keahlian menembak sasaran secara tepat menjadi syarat mutlak anggota pasukan elite seperti Kopassus. Sebab, berbeda dengan pasukan biasa, pasukan elite menjadi andalan untuk menjalankan tugas-tugas penting yang tentunya memiliki tingkat kesulitan yang tinggi.

Menembak tepat sasaran menjadi salah satu keahlian yang dimiliki Kopassus ketimbang pasukan elite dari negara lain. Dalam pertemuan Pasukan Elite Asia Pasific yang diselenggarakan pada Desember 2006, personel Kopassus meraih juara penembak jitu (sniper).

Canggihnya, senjata yang digunakan merupakan senjata buatan bangsa sendiri yang diproduksi oleh PT Pindad. Sementara, di posisi kedua diraih oleh pasukan elite Australia.

2. Kopassus peringkat 2 sukses operasi militer

Dunia internasional tak asing dengan nama Kopassus. Sebab, pasukan elite milik TNI itu dikenal memiliki segudang prestasi.

Pada pertemuan Elite Forces in Tactical, Deployment and Assault di Wina, Austria, Kopassus meraih peringkat dua dalam melakukan operasi militer strategis, seperti; intelijen, pergerakan, penyusupan, penindakan.

Sementara, di urutan pertama adalah pasukan elite Amerika Serikat Delta Force. Saat itu 35 pasukan elite dunia ikut unjuk gigi di ajang tersebut.

3. Kopassus peringkat 3 pasukan elite dunia

Kopassus merupakan salah satu pasukan elite terbaik di dunia. Berdasarkan urutan pasukan elite dunia versi Discovery Channel Military edisi 2008, Kopassus berada di posisi tiga pasukan elite dunia.

Sementara di posisi pertama diduduki United Kingdom's SAS, dan di posisi dua Israel's MOSSAD. Hal itu jelas membanggakan TNI dan Indonesia.

Sebab, Kopassus nyatanya mengalahkan pasukan-pasukan elite dari negara lain, salah satunya Amerika Serikat yang terlalu bergantung pada peralatan yang berbasis teknologi super canggih, akurat dan serba digital.

4. Skill Kopassus di atas rata-rata pasukan elite negara lain

Personel Kopassus tidak terlalu bergantung dan mengandalkan teknologi canggih. Karena itu, tiap personel Kopassus dituntut memiliki kemampuan bela diri yang cakap. Tak heran jika konon kabarnya satu prajurit Kopassus setimpal dengan lima prajurit biasa.

Hal itu tentu berbeda dengan pasukan negara maju seperti Amerika Serikat yang terlalu mengandalkan kecanggihan teknologi senjata yang dimilikinya. Narator Discovery Channel Military menyatakan, sebuah pasukan khusus yang hebat adalah pasukan yang mampu mencapai kualitas sempurna dalam hal kemampuan individu.

Kemampuan itu adalah kemampuan bela diri, bertahan hidup (survival), kamuflase, strategi, daya tahan, gerilya, membuat perangkap dan lain-lain.

5. Kopassus latih pasukan militer negara lain

Kehebatan yang dimilikinya Kopassus membuatnya disegani militer negara lain. Bahkan, sejumlah negara di dunia meminta Kopassus untuk melatih pasukan militernya, seperti negara-negara di Afrika Utara dan Kamboja.

80 Persen pelatih militer di negara-negara Afrika Utara diketahui menggunakan pelatih militer dari Kopassus. Para perwira Kopassus ditugaskan untuk melatih pasukan militer yang dimiliki negara-negara di benua hitam itu.

Sementara itu, Kamboja juga telah lama menggunakan pelatih militer dari Kopassus. Tak tanggung-tanggung, pasukan yang dilatih Kopassus adalah pasukan khusus bernama Batalyon Para-Komando 911. Pasukan itu merupakan bagian dari tentara Kerajaan Kamboja (Royal Cambodian Army).