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 Comment