Contoh program bubble sort pada pascal




















Buat temen-temen yang ingin belajar silahkan dipelajari. Berikut merupakan output dari program di atas. Unknown 1 November Tambahkan komentar. Muat yang lain Langganan: Posting Komentar Atom. Author Ardiansyahsw Lihat profil lengkapku. Daftar Teman. Only Greats Share!! WriteLn 'Data yang telah di urut :' ;. WriteLn '' ;. WriteLn Nama[I] ;. Bila Program dijalan amka outputnya adalah :.

Metode shell sort disebut juga dengan metode pertambahan menurun diminishing increment. Metode ini dikembangkan oleh Donald L. Shell pada tahun , sehingga sering disebut dengan Metode Shell Sort. Metode perbandingan dan pertukaran. Perbandingan dimulai dari separuh array yang akan disortir dengan separuh bagian yang lain. Algoritma utamanya adalah sebagai berikut:.

Ganti A[i], A[tempat] ;. INC baca ;. Insertion Sort adalah contoh lain dari metode pengurutan yang sederhana. Insertion Sort adalah kebalikan dari buble sort yang mengurutkan data dari belakang, Insertion Sort mengurutkan data dari depan. Ambil dua data pertama, urutkan sesuai yang diinginkan. Lalu sisipkan data ketiga ditempat semestinya lalu sisipkan data keempat ditempat semestinya diantara 3 data sebelumnya dan begitu seterusnya sampai semua data selesai diurutkan.

Data Asli. Langkah 1. Langkah 2. Langkah 3. Langkah 4. Mari lihat gambaran dari algoritma ini. Langkah pertama membadingkan data[0] dengan data[1]. Jika data[0] lebih besar maka pindahkan nilai data[0] ke data[1] dan sebaliknya.

Setelah data[0] selesai dibandingkan dengan semua data maka selanjutnya membandingkan data[1] dengan data[2], data[3], dan data[4] seperti proses sebelumnya hingga data[1] terisi oleh nilai terkecil kedua.

Begitu seterusnya hingga data menjadi terurut. Emoticon Emoticon. Blog Fakhri. Tags Pascal. Bubble sort metode gelembung adalah metode atau algoritma pengurutan dengan dengan cara melakukan penukaran data dengan tepat disebelahnya secara terus menerus sampai bisa dipastikan dalam satu iterasi tertentu tidak ada lagi perubahan.



0コメント

  • 1000 / 1000