Pencarian di blog ini

Senin, 20 Juni 2011

Membuat Program Pengurutan Angka Menggunakan Array Dengan Bahasa Pascal

Tanpa banyak omong langsung aja deh:



{Program Pengurutan Angka}

uses wincrt;
type
data=array[1..100] of integer;
var a:data;
    b,i,j,k,l,temp:integer;
begin

write('Jumlah angka yang akan di urutkan: ');readln(b);
for i:=1 to b do
begin
write('Masukkan angka ke-',i,': ');readln(a[i]);
end;
for i:=1 To b-1 do
 for j:=i+1 to b do
  if a[i]>a[j] then
   begin
   temp:=a[i];
   a[i]:=a[j];
   a[j]:=temp;
   end;
   writeln;
   writeln('Data yang sudah diurutkan:');
   for i:=1 to b do
   write(a[i],' ');
end.

Semoga bermanfaat!!

Berikan Aku Ciuman Terakhirmu

Seorang preman berwajah garang sedang mengendarai motor Harleynya, ketika melewati seorang gadis cantik bergaun panjang yang sedang berdiri di atas jembatan layang.

Ia menghentikan motornya dan bertanya : "Apa yang sedang kamu lakukan?"

Jawab sang Gadis : "Saya ingin bunuh diri..."

Mengambil kesempatan ini sang preman berkata: "Kalau begitu sebelum kamu melompat, berikan saya ciumanmu yang terakhir."

Sang gadis pun menciumnya. Setelah ciuman berakhir, sang preman dengan wajah berseri-seri berkata: "Mengapa kamu ingin bunuh diri? Ciumanmu begitu panas dan menggairahkan. Pasti banyak lelaki yg akan tergila-gila dengan ciumanmu ini."

Dengan sedih sang gadis menjawab : "Saya ingin bunuh diri karena orangtua dan keluarga saya menentang saya berpakaian dan berdandan seperti wanita..." 

Antara Cinta Dan Kentut

CINTA dan KENTUT tidak bisa ditahan, keduanya bisa menjadi lega bila terlaksana.

CINTA tertahan = Sengsara, KENTUT ditahan = Menderita

Kalau CINTA dan KENTUT keras bersuara, tentu perasaan kita lega.

CINTA terkesan malu-malu tapi mau, KENTUT bikin malu-maluin baunya.

CINTA tanpa rasa, bukan CINTA namanya, KENTUT tak berbau, bukan KENTUT namanya.

CINTA itu rapuh, KENTUT itu bau.

CINTA itu halus, KENTUT itu virus.

CINTA diam-diam membuat orang mabuk kepayang, KENTUT diam-diam membuat orang mabuk kepalang.

CINTA bagi kebanyakan orang muda, "Ahhh, CINTA monyet...!"
KENTUT didepan banyak orang, "Sialan, monyet lu...!"

CINTA dan KENTUT sama-sama sering dicari:
Kalau sudah CINTA: "Dimana engkau duhai kekasih?"
Kalo sudah KENTUT: "Siapa nih yang KENTUT? Hayoo, ngaku gak...?!!!"

CINTA berlebih membuat orang terbuai, KENTUT berlebih membuat orang terkulai.

CINTA menyatukan persepsi, KENTUT menyatukan emosi. 

Sabtu, 11 Juni 2011

Motivasi Hari Ini Oleh Mario Teguh dan Kawan-Kawanya

Motivasi hari ini oleh Mario Teguh dan kawan-kawannya, semoga termotivasi :

"Hentikanlah kebiasaanmu membandingkan kekuranganmu dengan kelebihan orang lain."
(Mario Teguh)

"Bila anda gagal hari ini, jangan pernah menyerah. Ulangi terus kegagalan anda sampai atasan/komandan anda menyerah."
(Mario Tegar)

"Jangan pernah menyerah... Benturkanlah kepala anda ditembok atau batu, maka akan keluar darah/minimal benjol."
(Mario Bross)

"Jika modal usaha Anda habis untuk aktivitas usaha Anda, setor terus modal Anda sekalipun tidak mendatangkan hasil bila kurang gadaikan saja apa yg bisa jd uang."
(Mario Tekor)

"Tak ada pekerjaan yg berat. Pekerjaan seberat apapun akan terasa ringan apabila tidak dikerjakan"
(Mario Ngeluh)

"Jika anda merasa lelah dengan pekerjaan anda, maka tidurlah, maka 1 masalah sudah terselesaikan."
(Mario Tepar)

"Jangan pernah mikir kerjaan terus, enjoy ur life, forget about everything that's bothering u... let's get this party started!"
(Mari yo Dugem Mareee)

"Mulai dari yang mudah dan ringan, yang rumit dan berat nanti juga ada org lain yang ngerjain..."
(Mario Tega)

"Mulailah dari yang kecil... karena semua yang besar dulunya juga kecil."
(Mario Erot)

Kesuksesan bisa diraih karena usaha
Usaha ada karena kemauan
Kemauan tercipta karena ada cita-cita
Cita-cita berasal dari mimpi
Mimpi ada karena tidur...
So... Jika ingin sukses marilah kita TIDUR
(Mario Tengil)

"Tak ada pekerjaan yg berat. Jika merasa berat posisikan diri anda jangan di bawah, cobalah di atas. Jika masih terasa berat gantilah pasangan anda."
(Mario Ozawa)

Membuat Program Fibonacci Dengan Menggunakan Function Dalam Bahasa Pascal


Ini adalah Program Fibonacci Dengan Menggunakan Function Dalam Bahasa Pascal,




Source Codenya:



Hasil Program:

Membuat Program Faktorial Dengan Menggunakan Function Dalam Bahasa Pascal

Ini adalah program Faktorial dengan menggunakan Function, semoga bermanfaaf.




Source Code:


Hasil Program:

Senin, 30 Mei 2011

Percakapan Anak Alay dan Tidak Alay

Bacalah dengan seksama, di jamin ngakak, kalau gk ketawa saya makan sandal!



A= anak alay

B= kata si A, B adalah kakak kelasnya







Gak ada angin gak ada ujan tiba tiba di Hpnya si B (bukan nama sebenarnya, lagian tega amat kalo ada orangtua yang ngasih nama anaknya "Be") muncul sms dr nomer yang gak dikenal....



A = Alluw kag! Leh knal? Ap kBrx?

B = Wa'alaikumsalam Warohmatullahi Wabarokatuh. .. Dengan hormat, sampainya pesan ini, saya akan memberitahukan bahwa kabar saya baik-baik saja.... Maaf beribu-ribu maaf, Ini gerangan nomer siapa ya? Kok acap kali sms nomernya ga ke save ya? (bales sepanjang mungkin)



A = Owh ea muuph lupa ng@s1h s4L4m,,,, Ini EnDoet LuThuwna EmbeM C@ianK Cmu@na. Inged gag kag? Eh, kug blzna pjg bgd ch? Gi ng4ps?

B = Yaiyalah panjang.... Lagian ga dibayar perhurup inih! Gw lagi mabok nerjemahin kata2 lo nih. Keypadnya ilang2an ya? Oh elo.... Eh, siapa tadi? Tembem semua? Perasaan temen-temen gw kalopun ada yang tembem paling sebagian dipipi doang. Ga sampe seluruh badan dah.



A = Huft ...Plz dund...bkn t3mb3m cmu4, tp âۉ„¢emb3m c@iank cMuanaâۉ„¢. W AD klaz xmp lw dlu. J4h@d bgd d3ch......fufufuuu :âۉ„¢

B = Yeeee mana gw apal. Adek kelas gw kan ada banyak. Bayangin misal sekelas ada 25 murid cewe. Dikali 9 kelas. Nah, itung ndiri dah tuh ada berapa! Itu belom dari sekolah2 laen. Mereka kan gw anggep adek kelas gw semua walopun mereka ga nganggep gw. Coba? Masa iya gw apalin atu2. Lu kira gw petugas sensus! Eh itu sebenernya huruf âۉ„¢aâۉ„¢ mau lo ganti apasih? Jadi angka 4 apa a keong (@)? Satu aja ribet apalagi dua gw bacanya. Plin-plan lo ah



A = Ea muâۉ„¢uph kag.... Abzn udh kbi@s44n kag. Jng mrh dund... hix... hix... Oh ea y.. Kn ad bnyk ea... muv dh muv.. Eh kag, w inged loh qt dlu prNh kut xkul PeNcak sLt bReng jG.

B= Jorok lo ah



A = Pencak SILAT kak!!!

B = Ooohhh.... Nah itu bisa nulis bener



A = Tp w kluwar paz 5aBuk quNink. Gag kwt. Uji4nna bRad bGd

B = Gw ga pernah ikut pencak silat. Gw ikut cheers. Yang dipaling atas formasi piramida kan gw. Lagi pula kalo gw ikut pencak silat, sabuknya ga muat.



A = Iyh yng bn3r kag? Bc4nd@ aj dh wkwkwkwkwkwkwkwkwk! !!

B = Etdah lo ketawanya serem amat kayak burung gagak.



A = Eh kag BTW n0m3r hpx kog ckep amad ch? Ky orangx

B = Nama gw bukan betawi.



A = Mksd w âۉ„¢by the wayâۉ„¢

B = Kenapa emang JALANnya?



A = OMONG-OMONG! !!!

B = Oh... ga tau nih.. Beruntung aja dapet nomer bgini



A = Dpt dri m4n4 kag?

B = Hadiah es orson. Penting amat



A = Kag kuq fesbukx lum d k0nfr1m?

B = Confirm! Bukan Kon-frim! Oh yang foto profilnya dari atas sambil manyun2 itu lo ya? Gw kira fanpage-nya Suneo. Belom-belom. Ntar deh kalo angel foto lo udah bener. Eh, unyeng2 lo ada 5 ya? Ampe keliatan. Banyak amat. Situ pake ekstensen unyeng2?



A = Iyh ka2g bC@nd4 aj@ dh. 1tukan ageâۉ„¢ ngetrend kag futu dri @ta5. Mak1n gaG kli4t@n mukax, makin keyenz!

B = Yaiyalah. Gimana mau keren kalo muka lo keliatan. Coba dong sekali-sekali foto profilnya diganti pake fotokopi. Burem, perkecil, bolak-balik. gitu.



A = Mangx uj14n!

B = Biar ga keliatan muke lu. Katanya makin ga keliatan makin kerennn... Gw yakin asli lo ga sebagus di foto kan? Nih udah gw confirm. Eh, itu foto2 lo banyak banget yang jari tangan angka satu dimulut. Lagi ngelonin orok sapa lo? ya ampun.. Lo ga juling foto dari atas semua?



A = Gag. Udh b1aza k0g. Eh, kag mang gi onlen ea? Onlen d kul ap dihumz?

B = Eh kalo bahasa alaynya âە¿½onlen di WC SPBUâە¿½ apaan? Salah semua tuh option lo



A = Ih... kakak joyokkkk...

B = Kadir ga diajak?



A = Itu Doyok kaaaggg.... Yah, w lgi gaG onlen niyh kag. Cb klo qt smâە¿½ onlen, kn bs chat b4r3ng

B = Kita? Lo aja kali ama kawan2 lo. Lagian yang minta lo biar onlen sapeh?!



A = Hix..Hix...Jahad :âۉ„¢( Kag kug lum bubu siyh? Kn udh mlm. Mang lum ngantug ea?

B = Gw ga pernah ikut MLM deh



A = âۉ„¢Malemâۉ„¢ Kag maksudx...

B = Udah gede ini. Lagian sembari ngelembur ngerjain tugas nih.



A= Cemangadh!

B = Hdagnamec



A = Paan tuch Kag???

B = Tulisan lo gw balik. Bingung gw nanggepin bahasa lo. Eh tulisan lo bisa di normalin dikit ga? Sedikiiit aja demi gw



A = Oh ea deh kag..

B = Eh, ko gw baca status-status lo semuanya ngambil dari lirik-lirik lagu ya??? Keabisan ide lo? Mana udah di âۉ„¢Likeâۉ„¢-in sendiri, trus ga ada yang comment pula.



A = Eaaa... Abisan w suka bgd kag sm lgu it. Co cweet bgd dech. It jga da lguâە¿½ knangan sm mantan w dlu

B = (Emang gw pikirin).



A = Ohiya kag! Bsk lusa jm 9 pgi d âە¿½salah satu stasiun tvâە¿½ nntn w ya!

B = Itu kan acara live musik itu kan?! Yang penontonnya satu panggung sama artis/bandnya. Trus sambil nari2 kompak banget dibelakangnya. Lo jadi artis toh sekarang? Grup band lo apa namanya? Salut gw. Pasti lo jadi vokalisnya ya? Apa lo soloist?



A = Bukan kag, gw jadi penontonx.

B = Huh?!!!!!!! (Keselek)



A = Ea, yng pnting msk tv kag! Gw ma rombongan udh nyiapin tarianx lho kag. Biar kompak nnti narix. Nama tarianx âە¿½Ngucek-Jemur- Ngucek-Jemurâە¿½. Tau dund kag ky gmana. Gag ngaruh deh mw bandx apa aliranx apa.

B = Trus kalo bandnya metal gimana??? Masa lo mau tetep joget âە¿½Ngucek-Jemurâە¿½?



A = Ya gag ap kag. Lgan band metal mah gag mgkin d hadirin kag. Kyk ga tau aja kag..

B = Yaudah deh, selamat joget ya. Kakak mo tidur dulu. Oia, besok lusa, pagi2 kakak ga bisa nonton situ joget âە¿½Ngucek-Jemurâە¿½. Soalnya kakak sibuk mau bikin anyam2an sedotan. Babay!



A = Bye... Met bubu kag. Eh kag, ntr jm2 bolax pa?

B = Hah?! Lo suka nonton bola pagi2 juga?



A = Yaelah bgadang nntn bola wajar x kag

B = Lo cowo apa cewe sih?!



A = Cow. Mang np?

B = Lah itu foto2 difesbuk?!



A = Itu mantanâە¿½ w kag. Fto w d album âە¿½Juzt Meâە¿½

B = ............ ......... ......... .......



A = Kag?

B = Eh iya sori. Udahan dulu ya. Gw baru ngeliat UFO nih. Bye!

Kamis, 12 Mei 2011

10 Pasukan Perang Paling Tangguh Sepanjang Sejarah

Karena lingkungan tugasnya terutama di medan perang, prajurit memang dilatih dan dituntut untuk bersikap tegas dan disiplin. Dalam kehidupan tentara memang dituntut adanya hirarki yang jelas dan para atasan harus mampu bertindak tegas dan berani karena yang dipimpin adalah para pasukan.Dan berikut merupakan pasukan-pasukan dunia yang paling tangguh dan terlatih sepanjang sejarah
Quote:
10. Aztecs

Spoiler for pict


Suku Aztec terkenal kejam dalam pertempuran. Mereka biasanya berpakaian seperti binatang elang atau jaguar. Mereka menggunakan senjata yang sangat primitif seperti clubs dan busur dengan sangat efektif. Cuachicqueh adalah prajurit yang bersumpah tidak akan mundur bila musuh datang. Mereka akhirnya dikalahkan oleh Spanyol dengan senjata modern yang jauh lebih baik.
Quote:
9. Mongol Warriors

Spoiler for pict


Mongol dianggap barbar dan liar. Mereka mendominasi daerah Eropa dan Asia dan paling terkenal dengan pasukan berkuda yang dipimpin oleh salah satu komandan militer besar dunia, Genghis Khan. Mereka sangat disiplin dan mahir dalam menggunakan busur dan panah di atas punggung kuda. Mereka menggunakan busur komposit yang bisa menembus melalui baju besi dan juga cukup mahir dengan tombak dan pedang. Mereka ahli perang psikologis dan intimidasi, dan membangun salah satu imperium terbesar di dunia yang pernah ada
Quote:
8. Mamluk

Spoiler for pict


Mamluk Seorang prajurit budak yang masuk Islam dan melayani para khalifah Islam dan para sultan Ayyubiyah selama Abad Pertengahan. Seiring waktu, mereka menjadi suatu kasta militer yang kuat dan sering mengalahkan pasukan Salib. Lebih dari sekali, mereka merebut kekuasaan untuk diri mereka sendiri, misalnya, Mesir berkuasa di Kesultanan Mamluk 1250-1517. Setelah mamluk telah masuk Islam, banyak yang terlatih sebagai prajurit kavaleri. Mamluk harus mengikuti perintah furusiyya, kode yang mencakup nilai-nilai seperti keberanian dan kemurahan hati, dan juga taktik kavaleri, menunggang kuda, memanah dan perawatan luka, dll
Quote:
7. Roman Legion

Spoiler for pict


Tulang punggung tentara Romawi yang menuju ke sebuah kerajaan yang tak tertandingi dalam hal ukuran dan kekuatan. Mereka biasanya infanteri berat dengan baju besi dan perisai model setelah Yunani kuno. Mereka adalah prajurit kombinasi ahli pedang, tombak dan perisai. Mereka terdiri dari para prajurit mahal yang mampu membuat senjata terbaik dan baja. Mereka disiplin, baik bersenjata, dan strategi besar yang berlangsung di luar kerajaan mereka
Quote:
6. Apache

Spoiler for pict


Apache seperti ninja dari Amerika. Mereka akan menyelinap dari belakang musuh dan menggorok tenggorokan musuh disadari. Mereka menggunakan senjata primitif yang kebanyakan terbuat dari kayu dan tulang. Mereka juga mahir dalam memakai senjata pisau dan melempar kapak
Quote:
5. Samurai

Spoiler for pict


Samurai adalah ksatria dari Jepang dan tuan dari katana. Mereka adalah tentara bersenjata berat dan memakai baju besi dan bersedia mati untuk tuannya. Mereka memegang pedang paling tajam di dunia dan dengan mudah bisa memotong musuh dalam dua kali gerakan. Mereka juga master dari Yumi (busur) dan menjadi salah satu penembak terbaik dunia. Mereka adalah prajurit profesional dan terlatih dan berjuang keras untuk mendapatkan kehormatan. Karena kebiasaan kekerasan yang mereka perbuat, para petani bangkit melawan mereka dan lahirlah ninja
Quote:
4. Ninja

Spoiler for pict


Ninja sangat ahli dalam teknik stealth dan sabotase. Mereka awalnya adalah kumpulan petani yang dilatih untuk mengalahkan para samurai perampok, tapi akhirnya menjadi pembunuh legendaris. Mereka dikenal dengan menggunakan pedang katana, sumpitan, Shuriken, dan kusarigama yang akan menjadi senjata pilihan. Mereka dikenal sebagai prajurit bayangan yang bersembunyi di malam hari. Mereka biasanya membunuh secara diam-diam. Mereka juga seniman bela diri besar yang menjalani pelatihan keras
Quote:
3. Vikings
Spoiler for pict


Viking, penteror dari Eropa. Prajurit yang paling ditakuti dunia kuno. Mereka menteror Eropa dengan serangan mereka dan juga merampok. Mereka ganas dalam pertempuran dan menggunakan senjata yang sesuai tinggi badan mereka. Mereka besar dan sesuai menggunakan kapak mereka, pedang, dan tombak. Mereka ahli dalam menaklukkan kota. Bahkan agama mereka hanyalah perang dan mereka percaya bila mati dalam suatu perang, maka akan hidup di tengah perang yang tak akan usai. Mereka semua akan menjadi tentara yang sangat tangguh, terbukti dari kehebatan mereka dalam menghancurkan target mereka
Quote:
2. Spartans

Spoiler for pict


Budaya Spartan ialah semua tentang perang dan pelatihan militer pria seumur hidup mereka. Mereka memiliki pepatah: “kembali dengan perisai atau lebih dari itu” yang berarti jangan kembali kecuali Anda menang. Mereka adalah beberapa prajurit paling tangguh di dunia yang pernah dilihat dan telah menjadi terkenal karena pertahanan terakhir mereka pada pertempuran Thermopylae. Mereka adalah master dalam perisai dan tombak yang kemudian ditiru oleh tentara lainnya
Quote:
1. Knights

Spoiler for pict


Knights adalah pejuang besar yang mengenakan baju pelindung di seluruh tubuh. Mereka adalah prajurit termahal, prajurit paling terlatih, dan memiliki baju besi, senjata dan kuda untuk melaksanakan tugas yang diberikan oleh Raja. Mereka adalah tentara yang sangat efektif yang telah berlatih selama hidup mereka
sumber: kaskus