PseInt_Practica16b_PerimetrosAreas

Proceso practica26_PerimetrosAreas
    // Se necesita que un programa que calcula perimetros y areas, para lo cual aparece
    // un menu con tres opciones (1. Perimetros, 2. Areas, 3. Salir) dentro de las primeras
    // 2 opciones aparece otro menu con 4 opciones (1.Triangulo, 2. Cuadrado, 3.Circulo
    // 4. Regresar). Dentro del cual solo se puede volver al menu principal
    // presionando la opcion 4.


    // Este ejercicio contiene el ciclo MIENTRAS...HACER, Condicion multiple SEGUN... HACER y
    // Condicion simple SI...ENTONCES

    menuPrincipal <- 0;
    submenu <- 0;
    lado <- 0

    Escribir "=== MENU PRINCIPAL ===";
    Escribir " 1. Perimetros ";
    Escribir " 2. Areas ";
    Escribir " 3. Salir ";
    Leer menuPrincipal;
    Mientras menuPrincipal <> 3 Hacer
        Escribir " == SubMenu ==";
        Escribir " 1. Triangulo ";
        Escribir " 2. Cuadrado ";
        Escribir " 3. Circulo ";
        Escribir " 4. Regresar ";
        Leer submenu
        Segun submenu Hacer
            1:
                Escribir "Cual es el lado del Triangulo?"
                Leer lado;
                Si menuPrincipal = 1 Entonces
                    //Calcular perimetro
                    resultado <- lado * 3
                    Escribir "El perimetro del triangulo es: ", resultado
                Sino
                    resultado <- lado * lado
                    Escribir "El area del triangulo es: ", resultado
                FinSi

            2:
                Escribir "Calculo del cuadrado"
                // Aqui van los calculos
            3:
                Escribir "Calculo del circulo"
            De Otro Modo:
                // Repetimos el menu principal
                Escribir "=== MENU PRINCIPAL ===";
                Escribir " 1. Perimetros ";
                Escribir " 2. Areas ";
                Escribir " 3. Salir ";
                Leer menuPrincipal;
        FinSegun

    FinMientras

FinProceso