jueves, 23 de agosto de 2012

Animación PSEINT Ejemplo3


Proceso animacion3
    Definir i Como Entero;
    dimension cohete[9];
    cohete[1]<-"   /|\   ";
    cohete[2]<-"   |B|   ";
    cohete[3]<-"   |O|   ";
    cohete[4]<-"   |M|   ";
    cohete[5]<-"   |B|   ";
    cohete[6]<-"  //|\\  ";
    cohete[7]<-" ******* ";
    cohete[8]<-"* * * * *";
    cohete[9]<-" * * * * ";
    Para i<-1 Hasta 9 Con Paso 1 Hacer
        Escribir cohete[i],cohete[i],cohete[i],cohete[i],cohete[i];
    FinPara
FinProceso

No hay comentarios:

Publicar un comentario