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.