[simple - reto] iteraciones .net

[_katze_]

Hola a todo bueno para que agamos algo y sea mas divertido propongo lo siguiente solo con iteraciones....

dado dicha secuencia de numeros

Código [Seleccionar] Expandir

1 15 10 5 0 2 15 10 5 0 3 devemos realizar una iteracion que nos de esa

secuencia...simple pero al que se le valla ocurriendo mas lo vamos haciendo,, espero que tenga futuro el pos

dejo mi primera solucion

Código [Seleccionar] Expandir


'1 15 10 5 0 2 15 10 5 0 3
Dim i As Integer

Dim j As Integer


For i = 1 To 3

Debug.Print i
If i = 3 Then Exit For
For j = 15 To 0 Step -5

Debug.Print j

Next j

Next i


[Keyen Night]

Una forma más matemática y complicada, tarde 30 minutos

Código (vb.net) [Seleccionar] Expandir

'1 15 10 5 0 2 15 10 5 0 3

        Dim Zero As Byte = 0
        Dim _Return As String = ""
        Dim _Mod As Byte = 0

        For x As Byte = 0 To 15

            _Mod = x Mod 5

            If _Mod = 0 Then
                If Zero > 0 Then
                    _Return += Zero.ToString & " "
                End If
                Zero += 1
            Else
                If Zero > 1 Then
                    _Return += (20 - (_Mod * 5)) & " "
                End If
            End If

        Next

        Console.WriteLine(_Return)
        Console.ReadKey()

[_katze_]

bn man gracias por hacerlo....esperemos mas user para que hagan su iteracion tmb...