Menampilkan Bilangan Prima dengan Bahasa Pemrograman Delphi

Kemarin sempat ditanya seorang teman yang tentang bagaimana menampilkan bilangan prima dengan bahasa pemrograman Delphi. Bilangan prima ditampilkan secara berurut dari bilangan 1 - 100.

Begini ceritanya, pengertian Bilangan Prima adalah bilangan yang hanya memiliki 2 faktor yaitu bilangan 1 dan bilangan itu sendiri. Ceritanya dilanjut di bawah ya, bingung kalo cuma teorinya aja..

Berikut kutipan Source Code nya:

procedure TForm1.btn_PrimaClick(Sender: TObject);
var Range     : array[1..100] of Integer;
    i,j              : integer;
    bil_Prima  : Integer;
begin
  for i:=2 to 100 do
    begin
      Range[i]:=i;
      for j:=2 to i-1 do
      begin
        bil_Prima:=(i mod j);
        if bil_Prima=0 then Range[i]:=0;
      end;
        if Range[i]<>0 then mmo1.Lines.Add(IntToStr(i));
    end;
  end;

 Hasil Compile-annya :

Keterangan:

Logika yang dipakai adalah menghitung hasil dari modulasi dengan mengulang bilangan-bilangan sebelum bilangan i.
Bingung ya..

dan seterusnya

Jika kita melihat var j, bilangan sebelum 3 seharusnya adalah 2 dan 1. Namun, kenapa yang dipakai hanya bilangan 2, ini karena angka 1 bukan bilangan standar. 

Prosesnya yaitu mengulang hasil modulasi, apabila terdapat salah satu bilangan yang tersebut habis dibagi (i mod j) maka FALSE. Begitu juga sebaliknya, jika masih tersisa angka dari proses mod maka bernilai TRUE.

Maw download source yang lebih lengkap, silakan KLIK DISINI

Read More

Sadar Resiko

Malang, 11 Oktober 2013

Banyak hal yang terjadi dan lupa tuk dijadikan ulasan di blog ku ini. Tersirat memang, ingin ku tulis goresan-goresan peristiwa yang terjadi dan ku alami sendiri. Namun, lupa menjadi salah satu alasan tak ter-update-nya tulisan blog ku ini.. hehhe

Aku bisa mengendarai motor sekarang!!!.. Hmm betapa senangnya bisa mandiri tanpa harus menunggu orang yang maw nganter. Mengendarai motor matic sungguh mudah ternyata, o.O itu pun jika mengendarai di lapangan sepi,. wkwkwkkw.. Kendala sangat memungkinkan untukku jika aku tak punya keberanian. Kekhawatiran orangtua yang (maybe) trauma anaknya dulu pernah mengalami kecelakaan ketika dibonceng. Namun dengan segala upaya aku pun berusaha meyakinkan dengan mengendarai motor keliling kampung, lalu ke atm via jalan raya, ke Matos (Malang Town Square), sampai puncaknya yaitu dari rumah ke Gadang (parkiran) dengan kawalan bapak tentunya (maklum masih awal).. Hingga kemudian dilepas kawalan tersebut. Aku sadar, bahwa akan ada banyak sindiran dari teman-teman kantor yang melihatku dikawal,, hmm ini demi meyakinkan ortu bahwa aku udah bisa, cuek aja!!!

Alhasil, jika ada pengumuman dari mulut ke mulut bahwa akan ada kemacetan menuju kantor, awalnya sempat ragu, namun langsuuung GOOOoo!! Malang-Turen mengendarai motor Beat. Dengan kecepatan 40-55 aku gas-rem-gas-rem.. heh apalagi kalo ada truk besar muatan banyak, wuidhiiiii.. dan yang nyeremin jika ada motor yang berlawanan arah nyeberang tanpa riting,,. wewewewe.,, Tapi akhirnya pulang pergi Malang - Turen dengan selamat, meski aku sadar bahwa aku belum memiliki sesuatu yang penting selain STNK.

Aku kira dengan meyakinkan ortu kalo aku udah bisa kendarai motor itu sudah cukup, eeh ortu malah menginginkan aku ikut tes SIM,, wewhh lihat kantor SIM saja udah langsung deg-deg-an, trus terasnya ada bentuk lahan tempat tes yang sudah disediakan tiang-tiangnya, lekukan jalannya yang membentuk angka 8 .. aku bisa gag yaa.. Suatu ketika (kemarin lusa) aku memberanikan diri mengurus SIM dari ujian teori yang udah LULUS dengan nilai 66, hingga berhenti di ujian praktek. hwakakakk.. aku gag lolos... saat melewati tiang-tiang, kakiku mengambang, gag bisa imbang jika kakiku kunaikkan ke atas motor, eehh di jalan lurus, ban depan masuk ke lahan rumput, aku rem dong, nah lhoohh mesin motor tiba-tiba mati.. Astaghfirullaahhh.. penguji datang dan mengatakan ""Besok Kamis datang ujian lagi ya"... dalam hati berkata, "EMMOOOOOOOOHHHHHHHH!!!!!"

Hosh.hosh. aku shock... Entah kapan lagi aku kesana (belum ada rencana)

Berangkat dari rumah naik motor hingga Gadang, lalu motor diparkir di Gadang dan akupun menaiki kendaraan yang sering dipanggil Bison atau Bis. Seringnya sih Bison. Aku sadar memang Bison tuh memuat penumpang umum, jadi jikalau pagi tadi bau amis di seluruh ruang Bison,, yaa aku maklumi saja.. Tapi mbok ya'oo agak bersihan dikit gitu.. Biar penumpang tuh betah dan bisa jadi langganan. Apalagi paling sebel kalo ada bison yang secara fisik luarnya masih layak, tetapi di dalamnya wwuuuu knalpot mesinnya bocor kali yaa.. jadi bau knalpotnya merasuki seluruh ruang bison itu.. gimana para penumpang gag mabok semua.. Tapi yaaa.. mau gimana lagi.. kalo gag naik bison ato bis, trus mau ngendarai motor, yaa capek di jalan tiap harinya.

Dan yang paling mengenakkan dan sangat nyaman jika lagi ngantuk-ngantuknya, so terlelap tidur di bison dengan ayunan sleeping police yang sering diterjang bison tersebut.. wohohoho..

Bulan Besar / Dzulhijjah / Otober ini banyak undangan / invitation pernikahan beberapa teman baik yang berupa fisik hardcopy maupun via facebook. Wuiiihihihi.. makin banyak undangan, makin sering pula pertanyaan, ""Kapan Nikah??" .. Aku sadar bahwa itu akan terjadi, karena aku sadar pula akan umur. Ada nasehat orang yang bilang, "enak nikah seusia ini, nanti anak kita bisa lihat anak tumbuh dewasa dan kita pun usia masih muda serta fisik masih kuat.. " Hmmm iya.. tebal muka itu pasti, namun hanya senyuman yang aku bisa tunjukkan di hadapan orang yang bertanya. Dan aku yakin dan meyakini dari setiap pertanyaan yang mereka ajukan, sesekali aku menjawab dengan jawaban "SEGERA, Aaamiiin.." dan itu aku yakini sebagai Do'a.. (mana tahu ada malaikat lewat)..

.. Harus Sadar Resiko dan Hadapi dengan Senyuman ..

.. Insya Allah Berkah ..

.. Aamiin ..

Read More

Analysis Paralysis, makhluk apakah itu ?

Suatu saat, seekor lipan (yang kakinya banyak) mengejar seekor laba-laba. Kemudian laba-laba ini berhenti, menoleh sejenak, dan bertanya kepada si lipan, “Saya kagum dengan kamu, Lipan! Bagaimana cara kamu mengkoordinasikan kaki yang banyak itu?”

Lipan itu menjawab, “Saya tidak tahu. Saya tidak pernah memikirkan hal itu sebelumnya.”

Segera setelah itu, laba-laba kembali berlari, dan lipan mencoba untuk mengejar, tetapi kali ini ia tidak mampu karena ia tidak bisa membuat kakinya berjalan dengan baik lagi.

Kenapa si Lipan tidak berhasil mengejar si laba-laba.

Jawabnya : Kekacauannya berpikir diakibatkan oleh pertanyaan si lipan sehingga otaknya yang semula tidak terlalu memikirkan bagaimana kakinya melangkah akhirnya menjadi terbebani dengan bagaimana mengatur kaki-kakinya yang banyak agar tidak saling tersangkut serta ditambah kesibukannya sendiri memikirkan mana yang kiri dan mana yang kanan, mana yang duluan dan mana yang harus serentak.

Dari cerita ini ada pesan yang ingin disampaikan yaitu "berpikir atau analisa berlebih justru merugikan". Kondisi ini dikenal dengan istilah analysis paralysis atau paralysis of analysis. Dalam kondisi ini, justru keputusan apalagi tindakan/action tidak muncul. Sebuah keputusan memang bisa dipikirkan secara detail dari berbagai sudut pandang, berbagai pilihan, berbagai kemungkinan. Saat kita terus berusaha mencari solusi paling maksimal, kadang yang terjadi adalah kondisi ini. Waktu dan energi kita akan habis terkuras untuk memikirkan putusan mana yang akan diambil dengan alternatif yang sedemikian banyaknya.

Memang sulit untuk menentukan apakah kita sudah melakukan analisa berlebihan atau belum. Langkah yang bisa dilakukan adalah memilah analisa menjadi 2 atau 3 kategori (short term atau smaller scope, longer term atau larger scope). Lakukan analisa terbatas secara cepat untuk kemudian beralih menentukan solusi cepat. Sambil, pada saat bersamaan jika memungkinkan bisa saja melakukan analisa yang lebih komprehensif. Cara ini memang akan lebih menghabiskan energi dan waktu, tapi setidaknya bisa mengambil manfaat dan menghindari resiko dari analisa terlalu minim dan analisa berlebihan.

Tindakan Tegas lebih Penting daripada Analisis-Paralisis

Sebuah perusahaan maupun organisasi apapun, baik bisnis, sosial atau politik bertujuan untuk mendapatkan hasil.  Hasil yang diinginkan disebut sebagai “KEUNTUNGAN”.  Keuntungan yang bersifat nyata atau imateri adalah syarat berdirinya sebuah Organisasi.  Tentu untuk mendapatkan sebuah keuntungan perlu dijalankan namanya "Perencanaan Strategi dan Pelaksanaan Strategi".  "Strategic Planning dan Operational Planning" saling berbagi peran untuk mencapai Visi Misi Perusahaan (Organisasi) pada kisaran 30:70.  Hal ini sangat tampak bahwa Pencapaian Hasil dari Operational Planning memiliki Tingkat Dominasi lebih dibandingkan Strategic Planning.

Secara tidak langsung, para petinggi perusahaan (pemegang saham/pemodal) atau top manajemen akan selalu berkata “Putuskan apa yang akan dilakukan dan Lakukan hal itu Sekarang juga”.  Just Do It.  Sebab banyak perusahaan yang memelihara para pembual yang berbau “Omong Kosong” dan tentu saja sudah jelas bahwa “Tong Kosong Nyaring Bunyinya”.

Membangun organisasi yang "Sustain" memerlukan sebuah "Tindakan Tegas" dan tidak mengedepankan Analisa yang Bertele-tele (Analisis Paralisis).  Tindakan Tegas akan membawa kemenangan dibandingkan orang yang ragu-ragu.  Sudah terlalu banyak orang yang memiliki kemampuan analisa yang njelimet, opini, pendapat dan segudang argumen, namun masih langka orang yang memiliki ketegasan mengambil keputusan.

Berikut beberapa cara dari seorang pakar kepemimpinan yang dapat dilakukan dan kembangkan untuk membangun Iklim Ketegasan dalam berbagai Tindakan, yaitu :

1.     Jadikan Pengambilan Keputusan sebagai suatu Kebiasaan.

Pada awalnya mungkin keputusan yang diambil adalah buruk, namun dengan semakin sering berlatih maka Anda akan mahir dalam Pengambilan Keputusan yang Tepat.  Lebih baik Anda benar hanya 51% dari semua Keputusan yang diambil dibandingkan tidak dapat memutuskan apa-apa yang harus dilakukan.

2.     Jangan Tolelir Pengambilan Keputusan Terbalik.

Ketika Anda memberikan kepada seseorang untuk melakukan sebuah Pengambilan Keputusan jangan pernah menerima kembali pemecahan masalah ke pangkuan Anda.  Ini bukan cara belajar yang efektif, justru Anda tengah mematikan Potensi Pengembangan Diri seseorang.  Berikan kepada orang tersebut untuk menulis semua kemungkinan solusi yang ada di benaknya, urutkan prioritasnya dan pilih satu.  Maka Anda telah membantu dia untuk Berkembang dan berhenti membuang waktu Anda.

3.     Tuliskan Keputusan yang akan diambil secara Sederhana dan Jelas.

Kupas dengan jelas permasalahan yang ada dengan cara sederhana, alokasikan waktu untuk menganalisa informasi dan tentukan pilihan Anda sesuai Tenggat Waktu yang ada.  Ini akan menghindari Anda dari jebakan Analisis-Paralisis (analisa berlebihan), Kebimbangan dan Penundaan.

4.     Temukan Informasi Terbaik dalam Batas Waktu Anda.

Jika Anda menunggu informasi yang paling tepat, tentu akan menunggu selamanya, jangan pernah menunggu keadaan sempurna.  Segera tetapkan keputusan Anda dari informasi terbaik yang ada.

5.     Pertimbangkan sebanyak mungkin Alternatif.

Buat sebanyak mungkin solusi yang Anda bisa dan berikan masing-masing poin 1 sampai 10 untuk skala prioritas.  Anda tidak mungkin memiliki Solusi Optimal jika Anda tidak pernah memilikinya. Dalam dunia nyata akan ada sekurang-kurangnya beberapa pilihan yang baik dan Anda dapat memilih satu diantaranya.

6.     Gunakan Pendekatan Keseimbangan dalam Pertimbangan beberapa Alternatif.

Ketika cukup banyak alternatif yang Anda punya, maka lakukan analisa secara seimbang, dengan melihat kelebihan satu dan lainnya.  Lihat sisi Positif dan Negatif dari masing-masing Solusi Alternatif dan segera tetapkan pilihan Anda.  Hal ini pula yang dilakukan Benjamin Franklin dalam mengungkapkan sebuah ide dua ratus tahun lalu dan masih berlaku sampai saat ini.

7.     Ambil Tindakan dan Hargai Orang yang melakukannya.

Melihat adalah satu hal dan melihat apa yang Anda lihat adalah perkara lain.  Mengerti sesuatu juga satu hal dan belajar dari yang Anda mengerti adalah perkara lain.  Dan Bertindak dengan apa yang Anda pelajari adalah Hal Terpenting dalam sebuah Strategi Manajemen dan Kepemimpinan.

Mudah-mudahan bermanfaat bagi siapapun yang merasa dirinya pemimpin ataupun pimpinan. 

Sumber : Media Kepemimpinan

Read More