EVP #9

Clase día martes

//formula para hallar la fuerza SubProceso Fuerza1 = FUERZA(m,a)     Fuerza = m*a; FinSubProceso //formula de la resistencia del sonido SubProceso     Z  = RESISTENCIA_SONIDO(LAMDA,d)     Z<-20*Ln(LAMDA/(4*pi*d)); FinSubProceso //formula atenuacion del sonido  SubProceso RETORNO <-ATENUACION_SONIDO(NPS,D,d1)     RETORNO<-NPS-20*Ln(D/d1); FinSubProceso //Formula de numero de reynolds SubProceso N_REYNOLDS <-NUMERO_DE_REYNOLDS(v,D1,p,n)     N_REYNOLDS<-(v*D1*P)/n; FinSubProceso

Proceso EJERCICIOS         //ELEGIR OPCION FORMULA         Escribir "***********MENU***********"         Escribir "1)Formula fuerza"         Escribir "2)Formula de la resistencia del sonido"         Escribir "3)Formula de la atenuación del sonido"         Escribir "4)Formula de número de reynolds"         Escribir "Seleccionar una formula:"         Leer opciones

        Segun opciones Hacer             1:                 //INICIO                 Escribir "Formula fuerza";                 Escribir "______________________";                 //DECLARACION                 Definir R,Z, m, a, F como Real;                 //ASIGNACION                 Escribir "INGRESE LA MASA:";                 Leer m;                 Escribir "INGRESE LA ACELERACION:";                 Leer a;                 //PROCESO                 R<-Fuerza(m,a);                 //RESULTADO                 Escribir "LA FUERZA ES:", R;                 //FIN

            2:                 //INICIO                 Escribir "2)Formula de la resistencia del sonido"                 Escribir "________________________________________"                 //DECLARACION                 Definir PL, LAMDA, d, a como Real;                 //ASIGNACION                 Escribir "INGRESE LA ONDA LAMDA:"                 Leer LAMDA;                 Escribir "INGRESE LA DISTANCIA:"                 Leer d;                 R<-RESISTENCIA_SONIDO(LAMDA,d)                 //RESULTADO                 Escribir "LA RESISTENCIA DEL SONIDO ES:", R;                 //FIN

            3:                 //INICIO                 Escribir "Formula de la atenuación del sonido"                 Escribir "________________________________________"                 //DECLARACION                 Definir R ,AT ,NPS ,D ,d1 como Real;                 //ASIGNACION                 Escribir "INGRESE EL NUMERO DE PULSOS:"                 Leer NPS;                 Escribir "INGRESE EL DIAMETRO MAYOR:"                 Leer D;                 Escribir "INGRESE EL DIAMETRO MENOR:"                 Leer d1;                 R<-ATENUACION_SONIDO(NPS,D,d1)                 //RESULTADO                 Escribir "LA ATENUACION DEL SONIDO ES:", R;                 //FIN

            4:                     //INICIO                 Escribir "Formula de número de reynolds"                 Escribir "__________________________________"                 //DECLARACION                 Definir NR, v, D1, P, n como Real;                 //ASIGNACION                 Escribir "INGRESE LA VELOCIDAD DEL FLUIDO:"                 Leer v;                 Escribir "INGRESE EL DIAMETRO DEL TUBO:"                 Leer D1;                 Escribir "INGRESE LA DENSIDAD DEL FLUIDO:"                 Leer p;                 n<- 0.001                 Escribir "Coeficiente de Viscocidad del Agua a 20°:", n;                 NR<-NUMERO_DE_REYNOLDS(v,D1,p,n)                 //RESULTADO                 Escribir "EL NUMERO DE REYNOLDS ES:", NR;                 //FIN

            De Otro Modo:                 Escribir "NO HA SELECCIONADO UNA FORMULA"         Fin Segun FinProceso //FIN