Con un ciclo FOR, elaborar un menú el cual pida interesar 2 números, y posterior indicar la opción que se desee: sumar, restar, multiplicar, dividir y potenciar, agregar al menú una opcion de: "salir".
Proceso Suma_Resta_multiplicacion_Division_Potencia
Definir suma,resta,multi,Division,potencia,n,n2 Como Real;
Definir op Como Entero;
op <- 0;
Escribir 'Introduce el primer valor';
Leer n;
Escribir 'Introduce el segundo valor';
Leer n2;
Mientras op!=6 Hacer
Escribir ' 1. sumar ';
Escribir ' 2. Restar ';
Escribir ' 3. Multiplicar ';
Escribir ' 4. Dividir ';
Escribir ' 5. Potenciar ';
Escribir ' 6. Salir ';
Escribir ' Elija Una Opcion ';
Leer op;
Si op=1 Entonces
suma <- n+n2;
Escribir ' El Resultado Es: ',suma;
SiNo
Si op=2 Entonces
resta <- n-n2;
Escribir ' El Resultado Es: ',resta;
SiNo
Si op=3 Entonces
multi <- n*n2;
Escribir ' El Resultado Es: ',multi;
SiNo
Si op=4 Entonces
Division <- n/n2;
Escribir ' El Resultado Es: ',Division;
SiNo
Si op=5 Entonces
potencia <- n^n;
Escribir ' El Resultado Es: ',potencia;
SiNo
Si op=6 Entonces
Escribir ' Vuelva Pronto :) ';
SiNo
Escribir ' Dar Una Opcion Valida del Menu, Por Favor ';
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinMientras
FinProceso
Definir suma,resta,multi,Division,potencia,n,n2 Como Real;
Definir op Como Entero;
op <- 0;
Escribir 'Introduce el primer valor';
Leer n;
Escribir 'Introduce el segundo valor';
Leer n2;
Mientras op!=6 Hacer
Escribir ' 1. sumar ';
Escribir ' 2. Restar ';
Escribir ' 3. Multiplicar ';
Escribir ' 4. Dividir ';
Escribir ' 5. Potenciar ';
Escribir ' 6. Salir ';
Escribir ' Elija Una Opcion ';
Leer op;
Si op=1 Entonces
suma <- n+n2;
Escribir ' El Resultado Es: ',suma;
SiNo
Si op=2 Entonces
resta <- n-n2;
Escribir ' El Resultado Es: ',resta;
SiNo
Si op=3 Entonces
multi <- n*n2;
Escribir ' El Resultado Es: ',multi;
SiNo
Si op=4 Entonces
Division <- n/n2;
Escribir ' El Resultado Es: ',Division;
SiNo
Si op=5 Entonces
potencia <- n^n;
Escribir ' El Resultado Es: ',potencia;
SiNo
Si op=6 Entonces
Escribir ' Vuelva Pronto :) ';
SiNo
Escribir ' Dar Una Opcion Valida del Menu, Por Favor ';
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinMientras
FinProceso
No hay comentarios:
Publicar un comentario