SubProceso RETORNO <- ATENUACION (A, r, t, Z)//(2)
    
Fin SubProceso

SubProceso RETORNO <- CORRIENTE (v,R,XL,XC) //(2)
    I<- V/(rc(R^2)+((XL*XC)^2));
    RETORNO <- I //desarrollo
    
Fin SubProceso

SubProceso Retorno2 <- Impedancia(D,b)
    k1<-0.085
    Zt<- 138*ln(D/b)*(1/rc(k1));
    Retorno2<-Zt
Fin SubProceso

SubProceso RETORNO <- RESISTENCIA (Z1,Z2) //(2)
    R<- (Z2 - Z1)/ (Z2 + Z1);
    RETORNO <- R //desarrollo
    
Fin SubProceso

Proceso viernes
    
    Definir OPC Como Entero;
    Escribir "***** MENU ****** ";
    Escribir "1)Corriente";
    Escribir "2)Imperancia";
    Escribir "3)Resistencia";
    Escribir "4)Atenuación";
    
    Escribir "Ingrese una opción";
    Leer OPC;
    Segun OPC hacer
        1:    
            definir I,V,R,XL,XC Como Real
            escribir "ingrese el voltaje: ";
            leer V;
            escribir "ingrese la resistencia: ";
            leer R;
            Escribir "ingrese XL: ";
            leer XL;
            Escribir "ingrese XC: ";
            leer XC;
            //invocar
            I <- CORRIENTE (v,R,XL,XC) 
            
            
            escribir "La corriente es : ", I;
            
            
            
        2:
            Definir Zt,D,b,k1 como real
            Escribir "Ingrese D";
            Leer D;
            Escribir "Ingrese el b";
            Leer b;
            //Invocar
            R<- Impedancia(D,b);
            Escribir "La Impdedancia es: ", R;
            
            
        3:
            
            definir R,Z1,Z2 Como Real
            escribir "ingrese Z1: ";
            leer Z1;
            escribir "ingrese Z2: ";
            leer Z2;
            //invocar
            R <- RESISTENCIA (Z1,Z2) 
            
            
            escribir "La resistencia es : ", R;
            
            
            
            
        4:    
            
            definir G,A,r,t,k,Z como real;
            escribir "Ingrese la amplitud: ";
            leer A;
            escribir "Ingrese el radio : ";
            leer r;
            escribir "Ingrese el tiempo : ";
            leer t;
            escribir "Ingrese la imperancia: ";
            leer Z;
            //(1) invocar
            R<- ATENUACION (A, r, t, Z)//(1)
            escribir "La atenuación es: ", R; // (respuesta)
            
        De Otro Modo:
            escribir "Fuera de rango ";
        FinSegun

FinProceso