TITANIC

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

Mariposa !

Pseint "MARIPOSA"

Dimension flor[14];

flor[1]<- "                    ";
flor[2]<- "                    ";
flor[3]<- "                    " ;
flor[4]<- "                    ";
flor[5]<- "                    ";
flor[6]<- "                    ";
flor[7]<- "                    ";
flor[8]<- "                    ";
flor[9]<- "  o o     ";
flor[10]<-" o 0 o    ";
flor[11]<-"  o o     " ;
flor[12]<-"   |      ";
flor[13]<-"   |      ";
flor[14]<-"          ";


Dimension mari1[16];

mari1[1]<- "               ¶¶_            ";
mari1[2]<- "    ¶¶¶¶¶¶      ¶¶    ¶¶      ";
mari1[3]<- "   ¶¶¶¶¶¶¶¶¶     ¶  ¶   ¶¶    ";
mari1[4]<- "  ¶¶¶¶¶¶¶¶¶¶¶¶   ¶_¶ ";
mari1[5]<- " ¶¶¶______¶¶¶¶   ¶    ¶¶¶¶¶";
mari1[6]<- " ¶¶¶_________¶¶_¶__¶¶¶¶¶¶¶¶¶¶ ";
mari1[7]<- " ¶¶¶_________¶¶__¶¶¶¶¶¶¶¶¶¶¶¶ ";
mari1[8]<- " ¶¶¶_________¶¶¶¶¶¶______¶¶¶¶ ";
mari1[9]<- "  ¶¶_________¶¶¶_________ ¶¶¶ ";
mari1[10]<-"  ¶¶________¶¶¶__________¶¶¶  ";
mari1[11]<-"   ¶¶______¶¶¶__________¶¶¶   ";
mari1[12]<-"    ¶¶¶___¶¶¶________ ¶¶¶¶    ";
mari1[13]<-"   ¶¶¶¶¶¶_¶_ ¶  ¶¶¶¶¶¶        ";
mari1[14]<-" ¶¶¶¶_ ¶¶¶    ¶¶¶  ¶¶¶¶      ";
mari1[15]<-" ¶¶¶¶¶¶¶¶      ¶¶¶¶¶¶¶¶¶     ";
mari1[16]<-"  ¶¶¶¶¶          ¶¶¶¶¶¶      ";



Dimension mari2[16];

mari2[1]<- "               ¶¶_";
mari2[2]<- "                ¶¶    ";
mari2[3]<- "                 ¶   ¶ ¶¶ ";
mari2[4]<- "                 ¶ ¶ ";
mari2[5]<- "                 ¶  ";
mari2[6]<- "                ¶ ";
mari2[7]<- "              ¶¶ ";
mari2[8]<- "             ¶¶¶¶";
mari2[9]<- "             ¶¶";
mari2[10]<-"            ¶¶";
mari2[11]<-"           ¶¶¶";
mari2[12]<-"          ¶¶¶";
mari2[13]<-"          ¶¶";
mari2[14]<-"          ¶"  ; 
mari2[15]<-"         ¶¶" ;
mari2[16]<-"      ¶";