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. 

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: