BUBBLE SORT dengan bahasa pemrograman pascal..

2009-12-29T03:37:00.000-08:00

Sebenarnya, program ini merupakan program gagal. Hehehee.. :D

Jadi, pada awalnya saya ingin membuat program penyisipan pada linked list terurut. Tapi ternyata sulit melanjutkan koding programnya dengan kodingan program yang saya buat di bawah ini. Karena yang tercetak hanya infonya saja, saya bingung bagaimana cara mencetak linknya..

Hmm.. tapi program ini bisa dijalankan, hanya untuk mengurutkan data-data saja..

Program ini bisa digunakan untuk mengurutkan data-data dengan jumlah yang banyak, seperti yang ada dalam pelajaran statistika.

program urut;

uses crt;

(Merupakan nama program, jadi terserah Anda mau memberikan nama apa pada program yang Anda buat, saya menamakan program ini program urut.)

var i,j,x,n :integer;

a:array [0..10] of integer;

(Pendeklarasian variabel-variabel yang digunakan dalam program. Pada program ini saya mendeklarasikan variabel i, j, x, n sebagai integer, kemudian varibel a berupa array dengan tipe integer juga. Sebagai contah, array yang saya buat ini hanya terbatas pada 10 data, jika Anda ingin menginputkan lebih dari 10 data, bisa Anda ganti rangenya sesuai dengan yang Anda butuhkan.)

begin

clrscr;

write('Masukkan banyak data : ');

readln(n);

writeln;

(Blok program utama, diawali dengan begin, kemudian diikuti clrscr yang merupakan statement untuk membersihkan layar. Setelah itu, program akan mencetak kalimat masukkan banyak data, user pun akan menginputkan banyaknya data, inputan user ini akan disimpan dalam variabel n.)

for i := 1 to n do

begin

write('Data ke-',i,' = ');

readln(a[i]);

end;

(Blok perulangan dengan menggunakan for to-do, di mana program akan mengulang sejumlah n yang diinputkan sebelumnya. Perulangan ini akan mencetak data ke-i dan data yang diinputkan tersebut akan disimpan dalam variabel a[i] yang merupakan variabel array.)

clrscr;

for i := 1 to n-1 do

begin

for j:= i to n do

if a[j] <>

begin

x:=a[j];

a[j]:= a[i];

a[i] := x;

end;

write(a[i],' ');

end;

write(a[i+1]);

readkey;

end.

(Blok untuk proses pengurutan, saya menggunakan teknik pengurutan bubble sort, yaitu dengan membandingkan data pertama dengan data-data berikutnya, di mana data yang terkecil akan diletakan paling depan.)

Tampilan untuk menginputkan data-data yang akan diurutkan:

Tampilan dari data-data yang sudah diurutkan :

Okee..

Selamat mencoba!! Semoga bermanfaat.. :)

Winflip

2009-12-29T03:12:00.000-08:00

Bosan dengan tampilan windows XP Anda yang begitu-begitu saja..??
Jangan khawatir, ada aplikasi yang bisa membuat tampilan XP Anda terlihat lebih menarik. Winflip, merupakan aplikasi untuk membuat fungsi Alt-tab yang digunakan untuk memindahkan halaman menjadi terlihat lebih menarik. Dengan winflip, Anda bisa langsung melihat isi dari halaman-halaman yang akan Anda buka atau Anda operasikan.
Aplikasi ini sangat mudah digunakan. Cukup dengan mengklik icon winflip, maka Anda bisa langsung mengganti halaman-halaman windows dengan tampilan yang berbeda.
Tampilan dari penggunaan winflip pada windows XP :

all about me!!!

BUBBLE SORT dengan bahasa pemrograman pascal..

Winflip