SubProceso Retorno4<- Tiempo_Alto ( Ra,Rb,C )

    Ta<- 0.7*(Ra+Rb)*C
    Retorno<-Ta
    
Fin SubProceso

 

SubProceso Retorno3 <- Volumen_de_Desplazamiento(Desp)
    VolD<-1/4*Pi*D^2
    Retorno3<- Rt
Fin SubProceso

SubProceso Retorno2 <- Eficiencia_Volumetrica (Va,Vb,D)
    Ev<- Va-Vb/VD
    Retorno2<-Ev
Fin SubProceso

SubProceso Retorno1 <- Corriente (V,Re,XL,XC)
    I<- V/rc((Re^2) + (XL-XC)^2);
    Retorno1<-I

Fin SubProceso

Proceso Funcion1

    // declaracion

    Definir OPCION1 Como Entero;

    Escribir "***** MENU ****** ";

    Escribir "1) CORRIENTE ELECTRICA";

    Escribir "2) EFICIENCIA VOLUMETRICA";

    Escribir "3) VOLUMEN DE DESPLAZAMIENTO";

    Escribir "4) TIEMPO ALTO";

    Escribir "   INGRESE UNA OPCION "; 

    Leer OPCION1;

    

    Segun OPCION1 Hacer

        1:

            Definir I,V,Re,XL,XC como real

            Escribir "Ingrese el Voltaje";

            Leer V;

            Escribir "Ingrese la Resistencia";

            Leer Re;

            Escribir "Ingrese la Impedancia Inductiva ";

            Leer XL;

            Escribir "Ingrese la Impedancia Capacitiva";

            Leer XC;

            //Invocar

            R<- Corriente (V,Re,XL,XC);

            Escribir "La Corriente  es:", R; //Respuesta

            

        2:

            Definir Ev,Va,Vb,VD como real

            Escribir "Ingrese Volumen A";

            Leer Va;

            Escribir "Ingrese Volumen B";

            Leer Vb;

            Escribir "Ingrese VD";

            Leer VD;

            //Invocar

            R<- Eficiencia_Volumetrica (Va,Vb,D);

            Escribir "La Eficiencia Volumetrica es:", R; //Respuesta

        3:

            Definir VolD,Desp como real

            Escribir "Ingresar Desplazamiento";

            Leer Desp;

            R<- Volumen_de_Desplazamiento(Desp);

            Escribir " El Volumen de Desplazamiento es:", R; //Respuesta

        4:

            Definir Ta,Ra,Rb,C como real;

            Escribir "Ingrese ResistenciaA";

            Leer Ra;

            Escribir "Ingrese el ResistenciaB";

            Leer Rb;

            Escribir "Ingrese valor del condensador";

            Leer C;        

            //Invocar

            R<- Tiempo_Alto (Ra,Rb,C);

            Escribir " Tiempo Alto es:", R; //Respuesta

        De Otro Modo:

            Escribir "Fuera de Rango";

    Fin Segun

FinProceso