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)
Comments