Proceso Animacion
Escribir " <<< PRESIONE UNA TECLA >>> ";
Esperar Tecla;
Definir final, barco, a como Texto;
Definir i,j,estado como Enteros;
Definir opcion Como Entero ;
Para i<-1 hasta 4 Hacer
Borrar Pantalla;
Escribir " ANIMACION EN : ",4-i;
Esperar 1 Segundo;
FinPara
Para i<-1 hasta 25 Hacer
Borrar Pantalla;
Para j<-i hasta 13 Hacer
Escribir ""
;
// 13 espacios vacios
FinPara
si i>1 Entonces
finsi
Esperar 1/i Segundo;
FinPara
Escribir "";
Escribir " QUE PELICULA DESEA VER ? ";
Escribir "";
Escribir " 1) PARA TITANIC EN 3D ";
Escribir " 2) PARA RAPIDO & FURIOSO 7 ";
Leer Opcion ;
Segun Opcion Hacer
1:
Para i<-1 hasta 30 Hacer
Borrar Pantalla;
Para j<-i hasta 21 Hacer
Escribir ""
;
// 10 espacios vacios ¿Porqué son diez?!!!!
FinPara
si i>1 Entonces
finsi
Esperar 1/i Segundo;
FinPara
Escribir "";
Escribir "";
Esperar 2600 Milisegundos;
Borrar Pantalla;
Dimension barco[7];
barco[1]<- " ____ ____ ____ ";
barco[2]<- " | | | | | | " ;
barco[3]<- " | | | | | | ";
barco[4]<- " ________|____|_____|____|____|____|_______ ";
barco[5]<- " \ / ";
barco[6]<- " \ [] [] [] [] [] [] [] [] / ";
barco[7]<- " \____________________________________/ ";
a<-" ";
Borrar Pantalla;
Para i<-1 hasta 66 hacer
Si i<30 Entonces
Escribir " x x x x x x x x x x x x x";
Escribir " x x x x x x x x x x x x ";
Escribir "";
Escribir "";
Escribir "";
Escribir "";
Escribir " QUE BELLA NOCHE... " ;
Escribir "";
Escribir "";
Escribir "";
Sino
si i<45 Entonces
Escribir " x x x x x x x x x x x x x ";
Escribir " x x x x x x x x x x x x x ";
escribir "";
Escribir "";
Escribir "";
Escribir "";
Escribir " ¡¡ OH NO !! MIRA UN AISBER..." ;
Escribir "";
Escribir "";
Escribir "";
Sino
Escribir " x x x x x x x x x x x x x ";
Escribir " x x x x x x x x x x x x x ";
Escribir "";
Escribir "";
Escribir "";
Escribir " VAMOS A CHOCAR !! ";
Escribir "";
Escribir "";
Escribir "";
FinSi
FinSi
Para j<-1 hasta 7 hacer
escribir a, barco[j] ;
// a = 7 espacios vacios ++
FinPara
Escribir "...................................................................................................._/\ ";
Escribir " _/ \_ ";
escribir " _/ \ ";
escribir " _/ \ ";
escribir " / \ " ;
Esperar 200 Milisegundos;
Borrar Pantalla;
a = a + " ";
FinPara
2:
Escribir "ESTAMOS TRABAJANDO !";
de Otro Modo:
Escribir "Usted esta digitando un numero incorrecto, por favor vuelva a intentar. ";
FinSegun
FinProceso