CARA PENGURUTAN SELECTION SORT

STMIK YADIKA BANGIL

119229078

Hay teman-teman kali ini aku mau bikin tutorial pengurutan bilangan menggunakan cara selection sort.

Selection sort merupakan teknik sorting yang paling sederhana, hal pertama yang akan dilakukan algoritma selection sort adalah menemukan elemen terkecil dalam array kita dan menukarnya (swap) dengan elemen yang ada di posisi pertama, kemudian algoritma ini akan mengulangi hal yang sama lagi yaitu mencari elemen terkecil yang ada di dalam array dan kemudian menukarnya (swap) dengan elemen yang ada di posisi kedua (mengingat elemen di posisi pertama sudah berhasil kita sorting).

Pertama siapkan project baru lalu masukkan script seperti di bawah ini.

Module Module1

    Sub Main()
        Console.WriteLine("Bubble Sorting using Function")
        Console.WriteLine()

        Dim angka(4) As Integer
        Dim batas As Integer

        batas = 0

        While batas < 5

            Console.Write(" Masukkan Angka {0} :", batas + 1)
            Console.Write(" ")
            angka(batas) = Console.ReadLine()

            batas = batas + 1
        End While

    End Sub

End Module

Disini aku mencontohkan hanya 5 bilangan saja ya. Hasilnya,

gambar 1

Kalian bisa mengacak bilangan tersebut sesuai selera kalian. Di gambar 1 saya memakai bilangan 6,9,4,5,1.

Untuk mengurutkan dengan cara SELECTION SORT. Kita perlu sedikit menambahkan script. Script dimasukkan di bawahnya  End While dan di atasmya End Sub ya guys jangan sampai salah

        Dim posisi As Integer
        Dim posisi_pembanding As Integer

        While posisi < 5
            posisi_pembanding = posisi + 1
            While posisi_pembanding < 5
                'pengecekan 
                If angka(posisi) > angka(posisi_pembanding) Then
                    'ditukar
                    Dim sementara As Integer
                    sementara = angka(posisi)
                    angka(posisi) = angka(posisi_pembanding)
                    angka(posisi_pembanding) = sementara

                Else
                    'kosong

                End If
                posisi_pembanding = posisi_pembanding + 1
            End While
            posisi = posisi + 1
        End While
        Dim Indeks As Integer
        Console.WriteLine(" Hasil Dari Pengurutan Angka tersebut ... ")
        Console.Write(" ")
        Indeks = 0
        While Indeks < 5
            Console.Write(" ")
            Console.Write(angka(Indeks))
            Indeks = Indeks + 1
        End While

        Console.ReadLine()

Script di atas akan menampilkan hasil dari bilangan acak yang kalian tulis menjadi bilangan berurutan sesuai SELECTION SORT, yaitu bilangan terkecil ke bilangan terbesar dengan cara membandingkan dan menukar. Variabel array akan mengulang hingga bilangan tersebut berurutan dari yang terkecil ke terbesar. Hasil.

gambar 2

Semoga postingan ini bermanfaat untuk kalian, semangat belajar ya semoga berhasil :)

TERIMA KASIH