Home > Mata Kuliah > Algoritma Pemrograman > Contoh Algoritma Iterasi dalam Visual Basic

Contoh Algoritma Iterasi dalam Visual Basic

Algoritma iterasi pada tutorial kali ini hanya memanfaatkan (for next) atau kalau dalam pseudo code biasa disebut dengan traversal (mbuh bener po ra 😀 ).

Contoh kasus yang akan diselesaikan dengan menggunakan bahasa visual basic kali ini adalah sebagai berikut :

Misal ada 24 data dengan tipe yang sama akan diproses secara berurutan dengan aturan sebagai berikut :

data ke 1 – 13 akan di proses terlebih dahulu, lalu kemudian setelah selesai kembali lagi data ke 2 – 14 akan di proses lagi, dan seterusnya sampai data ke 12 – 24 akan di proses.

Jika sudah selesai sampai data yang terakhir (12-24), maka pemrosesan data akan diulangi kembali dari awal seperti pada langkah pertama sebanyak n kali.

———–

karena ane yo bingung jelasinnya, jadi langsung tak kasih kode dan penjelasannya didalamnya, semoga gak tambah pusing hehe . .

Sub Main()
        Try
            Dim array(23) As String
            'inisialisasi data 
            For i As Integer = 0 To 23
                array(i) = "data ke - " + i.ToString
            Next
            'pengennya looping dari 0 - 12, 1-13, dst sampai 11-23 

            'untuk interval, karena requestnya 12 ya jadi disini pakai 12
            Dim interval As Integer = 12
            'jadi setelah looping pengennya looping balik awal lagi dengan ketentuan maksimum looping sebanyak 5 kali
            Dim maksimumLooping As Integer = 5

            For r As Integer = 1 To 5
                Console.WriteLine("Iterasi ke -" + r.ToString)
                'mulai looping dari 0 sampai interval - 1 (tetep 12 kali karena indeksnya dimulai dari 0) 
                For p As Integer = 0 To interval - 1
                    'looping ke dua kali 
                    For k As Integer = p To interval + p
                        Console.WriteLine(array(k))
                    Next
                    Console.WriteLine()
                Next

            Next
            Console.ReadLine()


        Catch ex As Exception
            Console.WriteLine(ex.Message())
        End Try

    End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *