canal visual basic .net

Recursos Visual Basic.NET, VB.NET, Manuales de programación, Tutoriales, Foros de programación, Comunidad de programadores

Usuarios activos:  134

Manuales : Solución ejemplo bucles

Posible solucion Ejemplo 3
Bucles

Antes de realizar una implementacion de nuestro problema debemos tener en cuenta algo que puede ser que se nos haya pasado por alto. Observa que en el enunciado del problema se nos dice que el Robot puede estar en cualquiera de las 4 primeras posiciones al igual que el bloque A. Por lo tanto puede ser que el bloque quede colocado en la posicion 1 y el brazo en la 2. Con lo que tendremos que pensar alguna manera para hacer que el brazo, estando en cualquier posicion, pueda recorrer cada una de las posiciones mirando si en ellas está el bloque A.

Pasemos a la implementacion del código y a su correspondiente explicacion.

Mientras Posicion <> 1 hacer. Miramos si la posicion del bloque es deferente a 1.
     MoverIzq Movemos a la izquierda.
FinMientras Pasamos otra vez al principio del Mientras.
Mientras Posicion <> 5 hacer Cuando ya nos encontramos en la posicion 1, empezamos otro bucle hasta la posicion 5.
     Si BloqueEncima = "A" entonces Miramos en la posicion actual si tenemos el bloque A encima.
          CogerBloque Si es así lo cogemos.
     FinSi Finalizamos el Si.
     MoverDer Movemos nuestro Robot una posicion a la derecha
FinMientras Pasamos otra vez la principio del segundo Mientras.

En un principio lo que hemos hecho a sido mover el Robot a la posicion 1 con lo que nos hemos asegurado que ninguna de las posiciones se quedase sin mirar. Puede ser que de esta forma hayamos pasado dos veces por la misma posicion pero así nos aseguramos que de no dejarnos ninguna.

Cuando ya nos encontramos en la posicion 1 vamos pasando posicion por posicion mirando en cada una de ellas si tenemos el bloque A. Si en la posicion que nos encontramos está el bloque A lo cogemos y seguimos nuestro camino hasta la quinta posicion, donde dará por finalizada la ejecucion del programa.

Visual Studio .VisualBasic.net .ADO.NET .ASP.NET .Framework .Crystal report
[Visual Basic .NET · Información legal · Condiciones de uso · Publicidad · Contacto · RSS novedades Foro · Inicio]
Un sitio web de Internelia (Ontecnia) © Copyright 2010 canalvisualbasic.net. Todos los derechos reservados