Laboratorio N°9

SubProceso Fuerza1 <- FUERZA (m,a)
Fuerza1<-m*a;
FinSubProceso
SubProceso Z <- RESISTENCIA_SONIDO(LAMDA,d)
Z<- 20*ln(LAMDA/(4*PI*d));
FinSubProceso
SubProceso RETORNO <- ATENUACIÓN_SONIDO (NPS,D,d1)
RETORNO <- NPS - 20*ln(D/d1);
FinSubproceso
Proceso funciones
Escribir "1. fuerza"
Escribir "2. Resistencia del flujo"
Escribir "3. Atenuación"

Leer variable;
Segun variable Hacer
1:
Definir R, Z, m, a, F Como Enteros;
Escribir "Ingrese la masa: ";
Leer m;
Escribir "Ingrese la aceleración: ";
Leer a;

R <- FUERZA (m,a);
Escribir "La fuerza es: ", R;
2:
Definir PL, LAMDA, d Como Reales;
Escribir "Ingrese la onda lamda: ";
Leer LAMDA;
Escribir "Ingrese la Distancia: ";
Leer d;

R <- RESISTENCIA_SONIDO (LAMDA,d);
Escribir "La rsistencia del sonido es: ", R;
3:
Definir R, AT, NPS, D, d1 Como Reales;
Escribir "Ingrese el número de pulsos: ";
Leer NPS;
Escribir "Ingrese la Diámetro mayor: ";
Leer D;
Escribir "Ingrese la Diámetro menor: ";
Leer d1;

R <- ATENUACIÓN_SONIDO (NPS,D,d1);
Escribir "La rsistencia del sonido es: ", R;
De Otro Modo:
Escribir "no es una opcion"
Fin Segun
FinProceso