Algoritma Pencarian Biner

Imports System.Console
Module Pencarian_Biner

    Sub Main()

        WriteLine(StrDup(30, "-"))
        WriteLine("Binary_Searching")
        WriteLine(StrDup(30, "-"))
        Dim input, input2, hasil As Integer
        Dim n_awal, n_tengah, n_akhir As Integer
        Write("Masukkan Berapa Banyak Data = ") : input = ReadLine()
        Dim arr(input - 1) As Integer
        For i = 0 To input - 1
            Write("Data ke - " & i + 1 & " : ")
            arr(i) = ReadLine()
        Next

        Write("Array data yang ingin dicari = ") : input2 = ReadLine()
        n_awal = 1
        n_akhir = input
        For n_awal = 1 To n_akhir - 1
            n_tengah = (n_awal + n_akhir) \ 2
            If input2 < arr(n_tengah) Then
                n_tengah -= 1
            ElseIf input2 > arr(n_tengah) Then
                n_tengah += 1
            ElseIf input2 = arr(n_tengah) Then
                hasil = n_tengah
            End If
        Next
        WriteLine("Data berada pada array ke - : " & hasil)

        ReadKey()
    End Sub

End Module