Algoritma Pencarian Sequential

Imports System.Console

Module Pencarian_Sequential

    Sub main()

        WriteLine(StrDup(30, "-"))

        WriteLine("Sequential_Searching")

        WriteLine(StrDup(30, "-"))

        Dim input, input2 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()

        For i = 0 To input - 1

            If arr(i) = input2 Then

                WriteLine("Data Berada Pada Array ke - " & i)

            End If

        Next

        ReadKey()

    End Sub

End Module