TOP

Visual Basic Consola - Repetitiva PARA 10




10.  Realizar un algoritmo que muestre la siguiente gráfica:

* * * * * *
* * * * *
* * * *
* * *
* * * *
* * * * *
* * * * * *


Imports System.Console
Module Module10
    Dim xn = 7
    Sub Main()
        For f = 1 To 7
            If f >= 5 Then
                xn = xn + 2
            End If
            For c = 1 To (xn - f)
                Write(" * ")
            Next
            WriteLine()
        Next
        ReadLine()
    End Sub
End Module


share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.