Saturday, March 11, 2017
Metode Penyisipan Langsung Straight Insertion Sort
Metode Penyisipan Langsung Straight Insertion Sort
[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.
Available link for download
