de ante mano muchas gracias.
Este es el pseudocodigo que me dieron:
Citar
Proceso Juego_del_Ascensor
Definir Piso Como Entero;
Definir Ascensor Como Entero;
Definir Origen Como Entero;
Definir Destino Como Entero;
Definir Ok Como Logico;
Definir Dirección Como Entero;
Piso = 1;
Ascensor = 1;
Origen = 1;
Destino = 1;
Mientras Verdadero Hacer // Ciclo ocioso
Si Destino > Origen Entonces
Dirección = 1; // Sube
Sino
Dirección = -1; // Baja
FinSi
Para Ascensor <- Origen Hasta Destino Con Paso Dirección Hacer
Borrar Pantalla;
Escribir "=======";
Para Piso <- 8 Hasta 1 Con Paso -1 Hacer
Si Ascensor = Piso Entonces
Escribir Piso, " [--]";
Sino
Escribir Piso;
FinSi
Escribir "-------";
FinPara
Esperar 1 segundos;
FinPara
Origen = Destino;
Repetir
Ok = Verdadero;
Escribir "";
Escribir "Ingrese piso destino";
Leer Destino;
Si Destino = Origen Entonces
Ok = Falso;
Escribir "El ascensor ya está en ese piso, ingrese otro";
FinSi
Si Destino < 1 | Destino > 8 Entonces
Ok = Falso;
Escribir "El edificio tiene sólo 8 pisos, del 1 al 8. Reingrese";
FinSi
Hasta Que Ok
FinMientras
FinProceso
Definir Piso Como Entero;
Definir Ascensor Como Entero;
Definir Origen Como Entero;
Definir Destino Como Entero;
Definir Ok Como Logico;
Definir Dirección Como Entero;
Piso = 1;
Ascensor = 1;
Origen = 1;
Destino = 1;
Mientras Verdadero Hacer // Ciclo ocioso
Si Destino > Origen Entonces
Dirección = 1; // Sube
Sino
Dirección = -1; // Baja
FinSi
Para Ascensor <- Origen Hasta Destino Con Paso Dirección Hacer
Borrar Pantalla;
Escribir "=======";
Para Piso <- 8 Hasta 1 Con Paso -1 Hacer
Si Ascensor = Piso Entonces
Escribir Piso, " [--]";
Sino
Escribir Piso;
FinSi
Escribir "-------";
FinPara
Esperar 1 segundos;
FinPara
Origen = Destino;
Repetir
Ok = Verdadero;
Escribir "";
Escribir "Ingrese piso destino";
Leer Destino;
Si Destino = Origen Entonces
Ok = Falso;
Escribir "El ascensor ya está en ese piso, ingrese otro";
FinSi
Si Destino < 1 | Destino > 8 Entonces
Ok = Falso;
Escribir "El edificio tiene sólo 8 pisos, del 1 al 8. Reingrese";
FinSi
Hasta Que Ok
FinMientras
FinProceso