Algoritmo menu

Algoritmo menu

Definir opcion Como Real;

Definir eleccion Como Real;

Definir base,altura,resultdo1 Como Real;

Definir radio,resultado2 Como Real;

Definir Bs2,Bs1,alt2,resultado3 Como Real;

Definir num1 Como Entero;

Definir num2 Como Entero;

Definir num3 Como Entero;

Definir suma Como Real;

Definir resta Como Real;

Definir multiplicacion Como Real;

Definir division Como Real;

Mostrar " ---------=MENÚ=---------";

Mostrar "1.Áreas";

Mostrar "2.Operaciones";

Mostrar "3.Salir";

Mostrar " ---------¿Qué opción deseas--------";

Leer opcion;

Si (opcion=1) Entonces

Mostrar "1-Triángulo";

Mostrar "2-Círculo";

Mostrar "3-Trapecio";

Mostrar "4-Salir";

Mostrar " --------¿Qué opción desea usted eligir para sacar el área de las siguientes figuras?--------";

Leer eleccion

Si (eleccion=1) Entonces

Mostrar "¿Cúanto mide la altura?";

Leer altura;

Mostrar "¿Cúanto mide la base?";

Leer base;

resultdo1=(base*altura)/2;

Mostrar "El área de tu triángulo mide: ",base,"*",altura,"/2","=",resultdo1;

FinSi

Si (eleccion=2) Entonces

Mostrar "¿Cúal es el valor del radio?";

Leer radio;

resultado2=(3.1416)*(radio^2);

Mostrar "El área de tu circulo es de: ","3.1416 *",radio,"^2 ","=",resultado2;

FinSi

Si (eleccion=3) Entonces

Mostrar "¿Cúal es el valor de la base mayor?";

Leer Bs2;

Mostrar "¿Cúal es el valor de la base menor?";

Leer Bs1;

Mostrar "¿Cúal el valor de la altura?";

Leer alt2;

resultado3=((Bs2+Bs1)*(alt2))/2;

Mostrar"El área de tu trapecio es de: ",Bs2,"+",Bs1,"*",alt2,"/2","=",resultado3;

FinSi

Si (eleccion=4) Entonces

Mostrar " -----FIN DEL PROGRAMA-----";

FinSi

Si (eleccion>=5) Entonces

Mostrar " ----OPCIÓN INVALIDA-----";

FinSi

FinSi

Si (opcion=2) Entonces

Mostrar "1.Suma";

Mostrar "2.Resta";

Mostrar "3.Multiplicación";

Mostrar "4.División";

Mostrar "5.Salir";

Mostrar "¿Qué operación desea utilizar?";

...