top of page
Buscar
Foto del escritorgregoriosoteloroyer

Evap 9

Martes

//Formula de 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 



Jueves

Ejercicio 1

1- Inicio

2-Declaración

V2,V1,V0 = Real

Campo(V2,V1,V0) = Real

3-Asignación

Leer (V2,V1,V0)

4-Proceso

R=Campo(V2,V1,V0)

5-Resultado

Escribir (R)

Fin algoritmo

//Zona de funciones

Campo (V2,V1,V0) = Real

     w = fv = (V2-V1)/V0

     Retornar (w)


Ejercicio 3

1- Inicio

2-Declaración

k,d = Real

Campo(k,d) = Real

3-Asignación

Leer (k,d)

4-Proceso

X=Campo (k,d)

5-Resultado

Escribir (X)

Fin algoritmo

//Zona de funciones

Campo (k,d) = Real

     w = UK = 1/2 * (k*d^2)

     Retornar (w)


Ejercicio 4

1- Inicio

2-Declaración

Fe,F,k,q1,q2,r = Real

Fuerza_Electrica(k,q1,q2,r) = Real

3-Asignación

Leer (k,q1,q2,r)

4-Proceso

X=Fuerza_Electrica (k,q1,q2,r)

5-Resultado

Escribir (X)

Fin algoritmo

//Zona de funciones

Fuerza_Electrica (k,q1,q2,r) = Real

     k=q*(10)^9

     Fe=(k*q1*q2)/r^2

     Retornar (Fe)


11 visualizaciones0 comentarios

Entradas Recientes

Ver todo

Evap 11

SubProceso Menor_() Dimension vector(10) Definir Inicial,Final,i Como Entero Inicial = 1 Escribir "Numero de elementos" Leer Final Si...

Comments


bottom of page