Proceso FORMULAS_BUCLE_2
    //INICIO
    //DECLARACION
    Definir opciones Como Entero
    //ELEGIR OPCION FORMULA
    Escribir "***********MENU***********"
    Escribir "1)FORMULA DE LA CORRIENTE DE CALOR"
    Escribir "2)FORMULA DE POTENCIA REACTIVA"
    Escribir "3)FORMULA DE ENERGIA POTENCIAL ELECTRICA"
    Escribir "SELECCIONE UNA FORMULA:"
    Leer opciones
    Segun opciones Hacer
        1:
            Escribir "FORMULA DE LA CORRIENTE DE CALOR"
            //INICIO
            //DECLARACION
            Definir C ,A , TC, TF, L, INICIAL, FINAL, INICIAL1, FINAL1, H como Real;
            //ASIGNACION
            Escribir "INGRESE LA TEMPERATURA DE FOCO EN FRIO:"
            Leer TF;
            Escribir "INGRESE LA CONDUCTIVIDAD TERMICA:"
            Leer C;
            Escribir "INGRESE LA AREA TRANSVERSAL DEL CONDUCTOR:"
            Leer A;
            INICIAL=100;
            FINAL=200;
            TC=INICIAL;
            //PROCESO
            Para TC<-INICIAL Hasta FINAL Con Paso 10 Hacer
                Escribir "PARA TEMPERATURA EN FOCO CALIENTE:", TC;
                INICIAL1=5;
                FINAL1=10;
                L=INICIAL1;
                Para L<-INICIAL1 Hasta FINAL1 Con Paso 1 Hacer
                    Escribir "PARA LONGITUD DEL CONDUCTOR:", L;
                    H<-C*A*(TC-TF)/L
                    //RESULTADO
                    Escribir C, "*", A, "*", "(",TC,"-", TF, ")", "/", L, "=", H;
                    Escribir "LA CORRIENTE DE CALOR ES:", H;
                Fin Para
            Fin Para
            //FIN
        2:
            Escribir "FORMULA DE POTENCIA REACTIVA"
            //INICIO
            //DECLARACION
            Definir P_REACTIVA, P_APARENTE, P_INDUCTIVA, INICIAL, FINAL como Real;
            //ASIGNACION
            Escribir "INGRESE LA POTENCIA INDUCTIVA:"
            Leer P_INDUCTIVA;
            INICIAL=5000;
            FINAL=10000;
            P_APARENTE=INICIAL;
            //PROCESO
            Para P_APARENTE<-INICIAL Hasta FINAL Con Paso 100 Hacer
                Escribir "PARA POTENCIA APARENTE:", P_APARENTE;
                P_REACTIVA<-RC(P_APARENTE-P_INDUCTIVA)
                //RESULTADO
                Escribir "RAIZ", P_APARENTE, "-", P_INDUCTIVA,"=", P_REACTIVA;
                Escribir "LA POTENCIA REACTIVA ES:", P_REACTIVA;
            Fin Para
            //FIN
        3:
            Escribir "FORMULA DE ENERGIA POTENCIAL ELECTRICA"
            //INICIO
            //DECLARACION
            Definir K ,Q1 , Q2, R, U, INICIAL, FINAL, INICIAL1, FINAL1, INICIAL2, FINAL2 como Real;
            //ASIGNACION
            Escribir "INGRESE LA CONSTANTE ELECTROSTATICA:"
            Leer K;
            INICIAL=61;
            FINAL=100;
            Q1=INICIAL;
            //PROCESO
            Para Q1<-INICIAL Hasta FINAL Con Paso 15 Hacer
                Escribir "PARA CARGA 1:", Q1;
                INICIAL1=10;
                FINAL1=60;
                Q2=INICIAL1;
                Para Q2<-INICIAL1 Hasta FINAL1 Con Paso 8 Hacer
                    Escribir "PARA CARGA 2:", Q2;
                    INICIAL2=1;
                    FINAL2=20;
                    R=INICIAL1;
                    Para R<-INICIAL2 Hasta FINAL2 Con Paso 2 Hacer
                        Escribir "PARA DISTANCIA ENTRE CARGAS:", R;
                    U<-(K*Q1*Q2)/R
                    //RESULTADO
                    Escribir "(", K, "*", Q1, "*", Q2, ")", "/", R, "=", U;
                    Escribir "LA ENERGIA POTENCIAL ELECTRICA ES:", U;
                    Fin Para
                Fin Para
            Fin Para
            //FIN
        De Otro Modo:
            Escribir "NO HA SELECCIONADO UNA FORMULA"
        Fin Segun
FinProceso
//FIN