Programacion

Proceso planeta
Escribir "Bienvenido a la Nave Espacial";
OPC<-Verdadero;
Escribir "elegir el planeta donde desea dirigirse";
Escribir "1.Luna 2.Jupitel 3.Venus 4.Saturno";
Leer planeta;
Si planeta="1" Entonces
Escribir "has elegido a la Luna";
Escribir "introduzca velocidad inicial ";
Leer vi;
Escribir "desea aumentar la velocidad?, responda si o no" ;
Leer r1;
Si r1= "si" o r1= "SI" Entonces
Escribir "introduzca la velocidad ";
Leer velocidad1;
a<-384 / velocidad1;
Escribir "has aumentado";
Escribir "dentro de pocos minutos llegaremos" ;
Escribir "gracias por esta elecion1...: ) ";
Sino
Si r1="no" o r1="NO" Entonces
Escribir "Dentro de una hora llegaremos";
Escribir "gracias por esta elección...: )";
Sino
Escribir "Error de escritura";
FinSi


FinSi
Sino
si planeta="2" Entonces
Escribir "Has elegido la jupitel";
Escribir "introduzca velocidad inicial ";
Leer vi;
Escribir "desea aumentar la velocidad?, responda si o no" ;
Leer r2;
Si r2= "si" o r2= "SI" Entonces
Escribir "introduzca la velocidad ";
Leer velocidad2;
a<-997 / velocidad2;
Escribir "has aumentado";
Escribir "dentro de pocos minutos llegaremos" ;
Escribir "gracias por esta elección...) ";
Sino
Si r2="no" o r2="NO" Entonces
Escribir "Dentro de una hora llegaremos";
Escribir "gracias por esta elección...)";
Sino
Escribir "Error de escritura";
FinSi

FinSi
Sino
si planeta="3" Entonces
Escribir "has elegido la Venus";
Escribir "introduzca velocidad inicial ";
Leer vi;
Escribir "desea aumentar la velocidad?, responda si o no" ;
Leer r3;
Si r3= "si" o r3= "SI" Entonces
Escribir "introduzca la velocidad ";
Leer velocidad3;
a<-1465/ velocidad3;
Escribir "has aumentado";
Escribir "dentro de pocos minutos llegaremos" ;
Escribir "gracias por esta elección...) ";
Sino
Si r3="no" o r3="NO" Entonces
Escribir "Dentro de una hora llegaremos";
Escribir "gracias por esta elección...";
Sino
Escribir "Error de escritura";
FinSi

FinSi
Sino
si planeta="4" Entonces
Escribir "has elegido la saturno";
Escribir "introduzca velocidad inicial ";
Leer vi;
Escribir "desea aumentar la velocidad?, responda si o no" ;
Leer r4;
Si r4= "si" o r4= "SI" Entonces
Escribir "introduzca la velocidad ";
Leer velocidad4;
a<-2465/ velocidad4;
Escribir "has aumentado";
Escribir "dentro de pocos minutos llegaremos" ;
Escribir "gracias por esta elección...) ";
Sino
Si r4="no" o r4="NO" Entonces
Escribir "Dentro de una hora llegaremos";
Escribir "gracias por esta elección...)";
Sino
Escribir "Error de escritura";
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi





FinProceso