Home » , » Program Pengurutan Pascal

Program Pengurutan Pascal

Posted by Kamar Pekick on Thursday, 10 January 2013


Nama: Riky Kurniawan
Npm : 2001143500409
Kelas: s3d

Program bubble sort
            Proses pengurutan yang bekerja dengan cara berulang kali membandingkan elemen-elemen data satu sama lain dan menukar elemen data yang urutannya salah.
Proses bubble sort dilakukan sebanyak N-1 tahapannya, N adalah ukuran array pada setiap akhir langkah Ke-i.


Penjelasan program:
1. Procedure tukar(var a,b:integer)= membandingkan keadaan awal dan keadaan akhir dari suatu aktifitas dengan menyimpan nilai di variabel cadangan a dan b dengan tipe data integer.
2. procedure bubble_sort(var z:pengurutan; n:integer)= variabel cadangan untuk menyimpan nilai array
3. for i:=1 to n-1= melakukan perulang ke banyak nilai dan mengurangkan 1 untuk mencetak ke baris
4. for j:=1 to n-i= melakukan perulangan kebanyak nilai dan mengurangkan  ke nilai yang di simpan di i dan mencetak kekolom
5. if z[j] > z[j+1] then= membandingkan nilai array, jika nilai awal kecil maka tidak ada pertukaran
6. tukar z[j],z[j+1]= menukar posisi elemen
7. bubble_sort(data,n)= memanggil prosedur bubble sort dengan nilai yang sudah tersimpan
8.writeln(data[i])= mencetak hasil yang tersimpan dalam array

Output:
Program selection sort
                Proses pengurutan dengan memilih elemen maksimum/minimum array, lalu menempatkan elemen maksimum/minimum pada awal atau akhir array (tergantung dalam pengurutannya menaik atau menurun).  Jika array berukuran N, maka jumlah tahapannya adalah N-1.


Penjelasan program:
1. Procedure tukar(var a,b:integer)= membandingkan keadaan awal dan keadaan akhir dari suatu aktifitas dengan menyimpan nilai di variabel cadangan a dan b dengan tipe data integer.
2. procedure selection_sort(var z:pengurutan; n:integer)= variabel cadangan untuk menyimpan nilai array
3. for i:=1 to n-1  do= melakukan perulang ke banyak nilai dan mengurangkan 1 untuk mencetak ke baris
4. for j:=i+1 to n do= melakukan perulangan  ke nilai yang di simpan di I dan menambahkan 1 ke banyak nilai yang dimasukan dan mencetak kekolom
5. if z[i] > z[j] then= membandingkan nilai array, jika nilai awal kecil maka tidak ada pertukaran
6. tukar z[i],z[j]= menukar posisi elemen
7. selection_sort(data,n)= memanggil prosedur bubble sort dengan nilai yang sudah tersimpan
8. writeln(data[i])= mencetak hasil yang tersimpan dalam array

Outputnya:

Program insertion sort
                Proses pengurutan yang membandingkan dua elemen data pertama ,mengurutkannya ,kemudian mengecek elemen data berikutnya satu persatu dan membandingkannya dengan elemen data yang telah diurutkan. Proses ini dilakukan dengan menyisipkan sebuah elemen array yang diproses ketempat seharusnya. Proses ini dilakukan  sebanyak N-1 tahapan dengan indeks dimulai dari 0.
Proses pengurutan ini dilakukan dengan cara membandingkan data ke-i (dimana i dimulai dari data ke-2 sampai dengan data terakhir) dengan data berikutnya.  Jika ditemukan data yang lebih kecil maka data tersebut disisipkan kedepan sesuai dengan posisi seharunya.


Penjelasan program:
1. procedure insertionsort(var z:pengurutan; data:integer)= membandingkan keadaan awal dan keadaan akhir dari suatu aktifitas dengan menyimpan nilai di variabel cadangan z dengan nilai array dan data sebagai ke-banyak nilai dengan tipe data integer.
2. for i:=2 to data do= melakukan perulangan dengan ke-banyak nilai yang dimasukan dimulai dari data ke-2  sampai dengan data terakhir
3. nilai:=z[i]= nilai array yang disimpan
4. j:=i-1= nilai yang telah dimasukan ke-i dikurangkan 1
5. while (j>0) and (z[j]>nilai) do= melakukan perulangan dengan membandingkan nilai awal dan membandingkannya dengan nilai array yang disimpan
6. z[j+1]:=z[j]= membandingkan nilai array untuk penyisipan
7. j:=j-1= nilai yang dimasukan ke-j akan dikurangkan 1 untuk membandingkan nilai sebelumnya
8. z[j+1]:=nilai= membandingkan nilai array yang tersimpan dengan nilai yang dimasukan
9. insertionsort(x,n)= memanggil prosedur insertionsort dega nilai yang telah tersimpan
10. writeln(inilah pengurutannya:,x[i])= mencetak dan menampilkan nilai array yang sudah tersimpan dan terurut.    

Outputnya:


demikian program yang telah saya buat ini,, semoga bermanfaat untuk kalian para pembaca..

Thanks for reading & sharing Kamar Pekick

Previous
« Prev Post

1 komentar: