Proceso FORMULAS_BUCLE_2
    //INICIO
    //DECLARACION
    Definir opciones, INICIAL, FINAL Como Entero
    //ELEGIR OPCION FORMULA
    Escribir "***********MENU***********"
    Escribir "1)FORMULA DE LA POTENCIA"
    Escribir "2)FORMULA DE CAPACITORES EN SERIE"
    Escribir "3)FORMULA DE FUERZA DE CAMPO MAGNETICO"
    Escribir "SELECCIONE UNA FORMULA:"
    Leer opciones
    Segun opciones Hacer
        1:
            Escribir "FORMULA DE LA POTENCIA"
            //INICIO
            //DECLARACION
            Definir P,V , I, FITA como Real;
            //ASIGNACION
            Escribir "INGRESE LA INTENSIDAD:"
            Leer I;
            INICIAL=110;
            FINAL=220;
            V=INICIAL;
            FITA=0.85;
            //PROCESO
            Para V<-INICIAL Hasta FINAL Con Paso 10 Hacer
                P<-V*I*COS(FITA)
                //RESULTADO
                Escribir "LA POTENCIA ES:"
                Escribir V, "*", I, "*", COS(FITA), "=", P;
            Fin Para
            //FIN
        2:
            Escribir "FORMULA DE CAPACITORES EN SERIE"
            //INICIO
            //DECLARACION
            Definir CE, C1, C2, C3 como Real;
            //ASIGNACION
            Escribir "INGRESE LA CAPACITANCIA 1:"
            Leer C1;
            Escribir "INGRESE LA CAPACITANCIA 3:"
            Leer C3;
            INICIAL=100;
            FINAL=200;
            C2=INICIAL;
            //PROCESO
            Para C2<-INICIAL Hasta FINAL Con Paso 15 Hacer
                A<-(1/C1)+(1/C2)+(1/C3)
                CE<-1/A
                //RESULTADO
                Escribir "LA CAPACITANCIA EQUIVALENTE O TOTAL ES:"
                Escribir 1/C1, "+", 1/C2, "+", 1/C3, "=", CE;
            Fin Para
            //FIN
        3:
            Escribir "FORMULA DE FUERZA DE CAMPO MAGNETICO"
            //INICIO
            //DECLARACION
            Definir INICIAL1,FINAL1 , Rad, Fuer_Camp_Mag, Beta, Vel, Carga, Posicion como Real;
            //ASIGNACION
            Escribir "INGRESE VELOCIDAD"
            Leer Vel;
            Escribir "INGRESE CAMPO MAGNETICO"
            Leer Beta;
            INICIAL=100;
            FINAL=300;
            Carga=INICIAL;
            //PROCESO
            Para Carga<-INICIAL Hasta FINAL Con Paso 50 Hacer
                //RESULTADO
                Escribir "LA FUERZA DE CAMPO MAGNETICO ES:"
                INICIAL1=10;
                FINAL1=50;
                Posicion=INICIAL1;
                Para Posicion<-INICIAL1 Hasta FINAL1 Con Paso 10 Hacer
                    Rad=(2*PI*Posicion)/360
                    Fuer_Camp_Mag<-Beta*Vel*Carga*Sen(Rad)
                Escribir "LA POTENCIA ES:"
                Escribir Beta, "*", Vel, "*", Carga, "*", Sen(Rad), "=", Fuer_Camp_Mag;
                Fin Para
            Fin Para
            //FIN
        De Otro Modo:
            Escribir "NO HA SELECCIONADO UNA FORMULA"
        Fin Segun
FinProceso
//FIN