FLORES NAVARRO JHONNY     UNICA

SubProceso Retorno3 <-Resistencia(Z1,Z2)
    Rt<- Z2-Z1/Z2+Z1;
    Retorno3<- Rt
Fin SubProceso
SubProceso Retorno2 <- Impedancia(D,b)
    k1<-0.085
    Zt<- 138*ln(D/b)*(1/rc(k1));
    Retorno2<-Zt
Fin SubProceso
SubProceso Retorno1 <- Corriente (V,Re,XL,XC)
    I<- V/rc((Re^2)+(XL-XC)^2);
    Retorno1<-I
Fin SubProceso
SubProceso Retorno <- Atenuacion ( A,r,t,Z )
    k<- 0.085;
    G<- A*cos((2*Pi*t)+(k*z));
    Retorno<-G
Fin SubProceso

Algoritmo SUB_PROCCESO____NAVARRO
    Definir OPCION1 Como Entero;
    Escribir "****************MENU**************** ";
    Escribir "1) CORRIENTE ";
    Escribir "2) IMPERANCIA";
    Escribir "3) RESISTENCIA";
    Escribir "4) ATENUACION";
    Escribir "   INGRESE UNA OPCION "; 
    Leer OPCION1;
    
    Segun OPCION1 Hacer
        1:
            Definir I,V,Re,XL,XC como real
            Escribir "Ingrese la Impedancia Capacitiva";
            Leer XC;
            Escribir "Ingrese el Voltaje";
            Leer V;
            Escribir "Ingrese la Resistencia";
            Leer Re;
            Escribir "Ingrese la Impedancia Inductiva ";
            Leer XL;
            
            R<- Corriente (V,Re,XL,XC);
            Escribir "La Corriente  es:", R;
        2:
            Definir Zt,D,b,k1 como real
            Escribir "Ingrese D";
            Leer D;
            Escribir "Ingrese el b";
            Leer b;
            R<- Impedancia(D,b);
            Escribir "La Impdedancia es:", R;
        3:
            Definir Rt,Z1,Z2 como real
            Escribir "Ingresar Impedancia1";
            Leer Z1;
            Escribir "Ingresar Impedancia2";
            Leer Z2;
            R<- Resistencia(Z1,Z2);
            Escribir "La Resistencia es:", R;
        4:
            Definir G,A,r,t,k,Z como real;
            Escribir "Ingrese Amplitud";
            Leer A;
            Escribir "Ingrese el Radio";
            Leer r;
            Escribir "Ingrese el Tiempo";
            Leer t;
            Escribir "Ingrese la Impedancia";
            Leer Z;
            R<- Atenuacion ( A,r,t,Z );
            Escribir "La atenuacion es:", R;
        De Otro Modo:
            Escribir "Fuera de Rango";
    Fin Segun
FinAlgoritmo