25 jul 2010

Estructura Do While Loop

La estructura Do While Loop nos permiten realizar bucles que se repiten mientras una condicion dada sea cierta, osea, cuando la condicion no se cumpla, se sale del bucle y se continua con el programa.

El seudocodigo es



01 MIENTRAS <Condicion> HACER
02     Accion 1
03     Accion 2
04     ...
05     Accion n
06 FIN MIENTRAS
El diagrama de flujo
Ejemplo: Escribir numeros mintras el contador sea menor o igual a 10


01 Module Module1
02 
03     Sub Main()
04         Dim contador As Integer
05         contador = 1
06         Do While contador <= 10
07             Console.WriteLine("Contador: " & contador)
08             contador = contador + 1
09         Loop
10         Console.Read()
11     End Sub
12 
13 End Module

A veces tambien es necesario que la "accion" se realice una ves antes de ejecutar la condicion del bucle While, para esto se utiliza la forma Do Loop While

El seudocodigo en español

01 REPETIR
02     Accion 1
03     Accion 2
04     ...
05     Accion 3
06 MIENTRAS QUE <condicion>
Y el diagrama de flujo


Ej.: El mismo ejemplo anterior pero esta ves la condicion esta al final


01 Module Module1
02 
03     Sub Main()
04         Dim contador As Integer
05         contador = 1
06         Do
07             Console.WriteLine("Contador: " & contador)
08             contador = contador + 1
09         Loop While contador <= 10
10         Console.Read()
11     End Sub
12 
13 End Module
Estos bucles se ejecutan cuando la condicion dada es verdadera (TRUE), pero si queremos que el ciclo se ejecuta mientras la condicion sea falsa (FALSE), debemos cambiar el WHILE por el UNTIL, quedando para el primer caso de la siguiente forma:


01 Module Module1
02 
03     Sub Main()
04         Dim contador As Integer
05         contador = 1
06         Do Until contador > 10
07             Console.WriteLine("Contador: " & contador)
08             contador = contador + 1
09         Loop
10         Console.Read()
11     End Sub
12 
13 End Module
Y para la segunda forma con la condicion al final:


01 Module Module1
02 
03     Sub Main()
04         Dim contador As Integer
05         contador = 1
06         Do
07             Console.WriteLine("Contador: " & contador)
08             contador = contador + 1
09         Loop Until contador > 10
10         Console.ReadLine()
11     End Sub
12 
13 End Module

2 comentarios:

Anónimo dijo...

gracias ^^

Anónimo dijo...

Chido chido,, estuvo padre carnal, me ayudo a comprender en un mundo de entendimiento y conocimiento de magia y poder junto con el unicornio del arcoiris magico que cuidadba el duende de orejas grandes XD XD XD Soy tu papi,, admitelo! C:

Publicar un comentario

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | cna certification