Mini Calculadora

Programa de Pseint : Mini Calculadora 

Solución:

Proceso mini_calc
Definir n1,n2,resultado Como Real;
Definir op,res como cadena;
Escribir "Operaciones";
Escribir "Para la Suma Digite: + ";
Escribir "Para la Resta Digite: - ";
Escribir "Para la Multiplicacion Digite: x ";
Escribir "Para la Division Digite: / ";
Repetir
Repetir
Escribir "Que operacion desea realizar: ";
Leer op;
Hasta Que op="+" | op="-" | op="X" | op="x" | op="/"
Escribir "Ingrese primer numero: ";
Leer n1;
Escribir "Ingrese segundo numero: ";
Leer n2;
Si op="+" Entonces
resultado<-n1+n2;
Sino
Si op="-" Entonces
resultado<-n1-n2;
Sino
Si op="X" | op="x" Entonces
resultado<-n1*n2;
Sino
resultado<-n1/n2;
FinSi
FinSi
FinSi
Escribir "Resultado es: ", resultado;
Escribir "¿Desea realizar otra operacion? Escriba s para Si o n para No";
Leer res;
Hasta Que res="N" | res="n" | res="No" | res="no" | res="NO"
FinProceso