Reto 3

RETO #3

Pasos para la resolución.

Este fue el reto más difícil de todos, ya que para lograr el objetivo, había que ejecutar muchos procedimientos.

Los primeros pasos son sencillos, porque uno se ayuda con el libro de texto o los ejemplos brindados en los CD`s, sin embargo el uso de controles me fue imposible resolverlo, ya que sola no podía entender su funcionamiento.

Creo que retos como este, hacen que uno reflexione y analice cada paso que se solicita en el reto, lo cuál pone en evidencia el nivel desarrollado que hasta el momento se ha alcanzado en cuanto a programación.
Lastimosamente no encontré la manera de terminarlo, sin embargo eso no quiere decir que no voy a seguir intentándolo.

Ejecutable
sites.google.com/site/microparadigma/reto-3-progra-2

Procedimientos.

para INICIAR
textonuevo "instrucciones [-200 180][400 200]
ftamañoletra 18
fletra "|Arial|
festilo "negrita
fcolortexto "magenta
Es [A continuación se presenta el despegue de un avión, usted podrá activar la velocidad del viento, utilizando un control, haciendo que el paracaidista caiga en diferente lugar. :-)]
espera 80
Remueve "instrucciones
fija "pregunta "pos [105 80]
pregunta [¿Cuál es tu nombre?]
da "nombre respuesta
textonuevo "saludo [-250 180] [400 200]
ftamañoletra 18
fletra "|Arial|
festilo "negrita
fcolortexto "magenta
saludo, inserta [Hola ||] inserta respuesta 
es []
es [¡Adelante vamos a jugar!]
espera 50
Remueve "saludo
pregunta [¿Deseas jugar? Si respuesta es si, entonces escribe una "S" y si no quieres escribe una "N"]
si respuesta = "S [despegue]
si respuesta = "N [anuncia [Hasta pronto]]
fin

para empezar
fijacontador 10
fin

para contar
fijacontador contador - 1
si contador = 0 [mt alto]
espera 10
contar
fin

para vuelo
cumplelista [avion[t1 t2 t3 t4 t5 t6]] [dile :avion ffig 36 mt espera 5 et]
 fin

para despegue
empezar
contar
vuelo
fin