SubProceso Fuerza1 <-FUERZA(m,a)

Fuerza1<-m*a;

FinSubProceso

SubProceso

Z <-RES(LAMBDA,d) Z<-20*Ln(LAMBDA/(4*pi*d));

FinSubProceso

​

SubProceso RETORNO <-AT(NPS,D,d1) RETORNO<-NPS-20*Ln(D/d1);

FinSubProceso

​

SubProceso N_REYNOLDS <-NDR(v,D1,p,n) N_REYNOLDS<-(v*D1*P)/n;

FinSubProceso

 

Proceso EJERCICIOS

Escribir "1.-FUERZA"

Escribir "2.-RESISTENCIA DEL SONIDO" Escribir "3.-ATENUACION DEL SONIDO" Escribir "4.-NUMERO DE REYNOLDS"

Leer opciones

Segun opciones Hacer

1: Escribir "FORMULA DE LA FUERZA"

 Definir R,Z, m, a, F como Real;

Escribir "MASA:";

Leer m;

Escribir "ACELERACION:";

Leer a; R<-Fuerza(m,a);

Escribir "LA FUERZA ES:", R; 2:

​

Escribir "RESISTENCIA DEL SONIDO"

Definir PL, LAMBDA, d, a como Real;

Escribir "ONDA LAMBDA:"

Leer LAMBDA;

Escribir "DISTANCIA:"

Leer d; R<-RES(LAMBDA,d)

Escribir "LA RESISTENCIA DEL SONIDO ES: ", R; 3:

 

Escribir "ATENUACION DEL SONIDO"

Definir R ,NPS ,D ,d1 como Real;

Escribir "NUMERO DE PULSOS:"

Leer NPS;

Escribir "DIAMETRO MAYOR:"

Leer D;

Escribir "DIAMETRO MENOR:"

Leer d1; R<-AT(NPS,D,d1)

Escribir "LA ATENUACION DEL SONIDO ES:", R; 4:

Escribir "NUMERO DE REYNOLDS"

Definir NR, v, D1, P, n como Real;

Escribir "VELOCIDAD DEL FLUIDO:"

Leer v;

Escribir "DIAMETRO DEL TUBO:"

Leer D1;

Escribir "DENSIDAD DEL FLUIDO:"

Leer p; n<- 0.001

Escribir "Coeficiente de Viscocidad del Agua a 20°:", n; NR<-NDR(v,D1,p,n)

Escribir "EL NUMERO DE REYNOLDS ES:", NR;

 

De Otro Modo: Escribir "OPCION INCORRECTA" FinSegun FinProceso