PseInt_Practica16_PerimetrosAreas

Proceso practica26_PerimetrosAreasB
    // 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
    Mientras menuPrincipal <> 3 Hacer
        Escribir "=== MENU PRINCIPAL ===";
        Escribir " 1. Perimetros ";
        Escribir " 2. Areas ";
        Escribir " 3. Salir ";
        Leer menuPrincipal;
        // Este programa tiene un error. Descubrir cual es en tiempo de ejecucion.

        Mientras submenu <> 4 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
    FinMientras
    // El error es que en la primera pasada no se puede seleccionar la opcion 3 de salida porque no lo hace, ya que hace
    // el ciclo interior tambien

FinProceso