[laelamadjnun.info]- Straight Insertion Sort merupakan sebuah metode pengurutan dengan cara penyisipan langsung dengan proses membandingkan yang lebih kecil maka diakan berganti posisi di depan, pada mata kuliah struktur data kita membahas tentang metode ini, untuk flowchatnya anda bisa mencarai di website lain, pada kesempatan kali ini saya akan share source code Straight Insertion Sort yang sudah saya buat menggunakan VB 6.0 , seperti gambar di samping metodenya dia akan mengurutkan kata kebumen menjadi urut berdasarkan abjad yaitu menjadi beekmnu.
Source Codenya SBB:
Private Sub cmdeksekusi_Click()
Dim i, t, j As Integer
Dim a(100) As Integer
n = Len(Trim(Me.txtawal.Text))
For k = 1 To n
a(k) = Asc(Mid(Me.txtawal.Text, k, 1))
Next k
For i = 2 To n
t = a(i)
a(0) = t
j = i - 1
Do While t < a(j) a(j + 1) = a(j) j = j - 1 Loop a(j + 1) = t Next i For i = 1 To n kar = Chr(a(i)) kalimat = kalimat + kar Me.txtakhir.Text = kalimat Next i
End Sub
Proses pengurutan dengan metode penyisipan langsung dapat dijelaskan sebagai berikut : Data dicek satu per satu mulai dari yang kedua sampai dengan yang terakhir. Apabila ditemukan data yang lebih kecil daripada data sebelumnya, maka data tersebut disisipkan pada posisi yang sesuai. Akan lebih mudah apabila membayangkan pengurutan kartu. Pertama-tama anda meletakkan kartu-kartu tersebut di atas meja, kemudian melihatnya dari kiri ke kanan. Apabila kartu di sebelah kanan lebih kecil daripada kartu di sebelah kiri, maka ambil kartu tersebut dan sisipkan di tempat yang sesuai. Algoritma penyisipan langsung dapat dituliskan sebagai berikut : 1 i ← 1 2 selama (i
Nah Yang Ini Yang Make PHP Click SEMOGA MEMBANTU
oooo yaaaaa PASWORDNYA "laelamadjnun" tanpa tanda petik.
Terima kasih telah membaca artikel tentang Metode Penyisipan Langsung (Straight Insertion Sort) di blog TEKNOLOGI INFORMASI jika anda ingin menyebar luaskan artikel ini di mohon untuk mencantumkan link sebagai Sumbernya, dan bila artikel ini bermanfaat silakan bookmark halaman ini di web browser anda, dengan cara menekan Ctrl + D pada tombol keyboard anda.