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.. :)
