Trabajo Jueves
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
Trabajo Viernes
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
Proceso Funcion1
// declaracion
Definir OPCION1 Como Entero;
Escribir "***** MENU ****** ";
Escribir "1) Corriente ";
Escribir "2) Impedancia";
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 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 Zt,D,b,k1 como real
Escribir "Ingrese D";
Leer D;
Escribir "Ingrese b";
Leer b;
//Invocar
R<- Impedancia(D,b);
Escribir "La Impdedancia es:", R; //Respuesta
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; //Respuesta
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;
//Invocar
R<- Atenuacion ( A,r,t,Z );
Escribir "La atenuacion es:", R; //Respuesta
De Otro Modo:
Escribir "Fuera de Rango";
Fin Segun
FinProceso