SubProceso Impedancia()
    Escribir "Ingresar impedancia capacitiva";
    Leer XC;
    Escribir "Ingresar impedancia inductiva";
    Leer XL;
    INICIAL3=12
    FINAL3=18
    Si (XL<>XC) Entonces
        Para R<-INICIAL3 Hasta FINAL3 Con Paso 10 Hacer
            Z<-RC(R^2 +(XL-XC)^2)
            Escribir "La impedancia es:", Z;
        Fin Para
    Sino
        Escribir "Fuera de Rango"
    Fin Si
Fin SubProceso
SubProceso Tension()
    Escribir "Ingresar Potencia"
    Leer P;
    Escribir "Ingresar Corriente"
    Leer I1;
    INICIAL2=60
    FINAL2=120
    Para Q<-INICIAL2 Hasta FINAL2 Con Paso 10 Hacer
        V<-P/(RC(3))*cos(Q);
        Escribir "La tension es:", V;
    Fin Para
Fin SubProceso

SubProceso Voltaje_de_linea()
    Escribir "Insertar Corriente Inicial";
    Leer I0;
    Escribir "Insertar Inductancia";
    Leer L1;
    INICIAL1=60
    FINAL1=120
    
    Si 100<L1 y L1<200 Entonces
        Para W<-INICIAL1 Hasta FINAL1 Con Paso 5 Hacer
            Vl<-w*I0*L1
            Escribir "El voltaje de linea es:", Vl;
        Fin Para
    Sino
        Escribir "Fuera de Rango"
    Fin Si
Fin SubProceso
SubProceso INDUCTANCIA()
    Escribir "Ingrese la fuerza magmetica";
    Leer FM;
    Escribir "Ingrese la Corriente";
    Leer I;
    INICIAL= 10;
    FINAL=100;
    Si I<>0 Entonces;
        Para N<-INICIAL Hasta FINAL Con Paso 5 Hacer
            L<- (FM*N)/I
            Escribir "La inductancia es: ", L;
        FinPara
    Sino
        Escribir "Ingrese I<>0";
    FinSI
Fin SubProceso
Proceso multiple1
    // declaracion
    Definir OPCION1 Como Entero;
    Escribir "***** MENU ****** ";
    Escribir "1) Voltaje de fase (LINEA) ";
    Escribir "2) Tension";
    Escribir "3) Impedancia";
    Escribir "4) Inductancia ";
    Escribir "   INGRESE UNA OPCION "; 
    Leer OPCION1;
    
    Segun OPCION1 Hacer
        1:
            //Declaracion publica
            Definir Vl,w,L1,I0 Como Real
            Definir INICIAL1,FINAL1 Como Entero
            //ASIGNACION
            Voltaje_de_linea()
        2:
            //declaracion publica
            Definir V,P,I1,Q como Real;
            Definir INICIAL2,FINAL2 COMO ENTERO;
            //ASIGNACION
            Tension()
            
        3:
            //declaracion publica
            Definir Z,R,XC,XL como Real
            Definir INICIAL3,FINAL3 como entero
            //Asignacion
            Impedancia()
        4:
            //declaracion publica
            Definir L,FM,N,I Como Real;
            Definir INICIAL,FINAL Como Entero;
            //Asignacion
            INDUCTANCIA() //(1)Invocacion
            
        De Otro Modo:
            Escribir "Fuera de Rango";
    Fin Segun
    
    
FinProceso