Crear menú de opciones PSeInt

Hay gran variedad de aplicaciones de consolas o CLI (Command Line Interface) por sus siglas en ingles; en modo de texto que requieren de una forma de efectuar tareas múltiples sin tener que estar abriendo y cerrando una aplicación cada que se termina de ejecutar, por tal motivo se crean los menús y/o submenús de opciones.

  Hoy les vengo a mostrar un sencillo ejemplo en PSeInt de como implementar un pequeño menú de opciones básicas de operaciones matemáticas (suma, resta, multiplicación y división de dos números).

Screenshot:

Algoritmo:

Proceso MenuPrincipal
Definir op Como Entero;
op<-0;
Repetir
Limpiar Pantalla;
menu();
leer op;
Segun op Hacer
1:
operar(op);
2:
operar(op);
3:
operar(op);
4:
operar(op);
De Otro Modo:
Escribir "FIN...";
FinSegun
Hasta Que (op<1 || op>4);
FinProceso

SubProceso menu()
Escribir "1.- SUMA";
Escribir "2.- RESTA";
Escribir "3.- MULTIPLICACIÓN";
Escribir "4.- DIVISIÓN";
Escribir "5.- SALIR";
Escribir "";
Escribir "OPCIÓN: ";
FinSubProceso

SubProceso operar(opdr)
Definir op1,op2 como Real;
Escribir "operando 1:";
leer op1;
Escribir "operando 2:";
leer op2;
Segun opdr Hacer
1:
op1<-op1+op2;
2:
op1<-op1-op2;
3:
op1<-op1*op2;
4:
op1<-op1/op2;
De Otro Modo:

FinSegun
Escribir "Resultado: ",op1;
Esperar Tecla;
FinSubProceso