Calculadora Básica (PSeInt)

Calculadora nº1


Proceso sin_titulo

Escribir "Eliga la operacion:";
Escribir "1=Suma";
Escribir "2=Resta";
Escribir "3=Multiplicacion";
Escribir "4=Division";
Leer a;
Escribir "Introduzca dos cifras";
Leer b;
Mientras b<0 Hacer
Escribir "Este numero no es valido, Introduzca otro";
Leer b;
FinMientras
Leer c;
Mientras c=0 Hacer
Escribir "Valor 0 no sirve";
Leer c;
FinMientras
Si a=1 Entonces
Escribir "Vas a sumar";
d<-b+c;
Sino
Si a=2 Entonces
Escribir "Vas a restar";
d<-b-c;
Sino
   si a=3 Entonces
   Escribir "Vas a multiplicar";
d<-b*c;
Sino
   si a=4 Entonces
   Escribir "Vas a dividir";
d<-b/c;
           Finsi
Finsi
Finsi
FinSi
Escribir "Tu resultado es:";
Escribir d;
FinProceso

Calculadora nº2

Proceso sin_titulo

//Entrada

n1<-0

n2<-0

menu<-0

Escribir "Ingrese dos numeros para posteriormente elegir la operacion a realizar";

Escribir " ";

Escribir "Inserte primer numero: ";

leer n1;

Escribir "Inserte segundo numero: ";

leer n2;

Escribir " ";

Escribir "Menu de Opciones";

Escribir " ";

Escribir "(1) Sumar";

Escribir "(2) Restar";

Escribir "(3) Multiplicar";

Escribir "(4) Dividir";

Escribir "(5) Porcentaje (X por ciento de Y)";

Escribir " ";

leer menu;

escribir " ";

//Proceso//Fin

segun menu Hacer

1: Escribir "Vas a sumar";

  Escribir "La suma es: ",n1+n2;

  

2: escribir "Vas a restar";

  Escribir "La resta es: ",n1-n2;

3: Escribir "vas a multiplicar";

  Escribir "La multiplicacion es: ",n1*n2;

4: Escribir "Vas a Dividir";

Mientras n2=0 Hacer

  Escribir "Divides por 0. Resultado Indefinido";

  Escribir " ";

  Escribir "Vuelve a insertar el segundo numero:";

  leer n2;

   FinMientras

  Escribir "La division es: ",n1/n2;

  

5: Escribir "El ",n1," por ciento de ",n2," es: ",(n1/100)*n2;

  De Otro Modo:

  Escribir "No se encuentra numero de operacion";

  

  FinSegun

  

FinProceso

*(Se les ha creado una opción de menú)