SubProceso i<- intensidad_de_corriente (p, r, t)
pii=3.14
i<- p/4*(pii)*r^2*t
Fin SubProceso
SubProceso r<-absorcion (cam)
r<-ln(2)/cam
fin subproceso
Proceso FUNCIONES
Escribir '*************MENU************'
Escribir '1: reynonds'
Escribir '2: PASO DEL SONIDO'
Escribir '3: ATENUACION'
Escribir '4: PLANTEA'
Escribir 'INGRESE UNA OPCION'
Leer proceso1
Segun proceso1 Hacer
1:
Escribir 'reynonds';
Escribir '*****************';
Definir z, r, v, D, ro, n Como real ;
// DEFINIR FUERZA (m,a) como enteros;
Escribir 'ingrese la velocidad: ';
Leer v;
Escribir 'ingrese el Diametro: ';
Leer D;
R<-reynonds (v,D)//(I)
Escribir 'el numero de reynonds es: ' ,R;
2:
Escribir 'intensidad de corriente';
Escribir '***********************';
Definir i, p, pii, r, t Como Real;
Escribir 'ingrese potencia: ';
Leer p;
Escribir 'ingrese radianes: ';
Leer r;
Escribir 'ingrese tiempo: ';
Leer t;
i<- p/(4)*(pii)*(r^2)*(t)
Escribir 'intensida de cprriente es: ' ,i;
3:
Definir a, r, cam Como Real;
Escribir 'calculo de absorcion';
Escribir " a=ln(2)/cam ";
Escribir '******************'
escribir "ingrese el campo magnetico"
Leer cm;
r<-absorcion (cam) // (I)
Escribir 'la absorcion es: ' ,R;
fin segun
FinProceso
MARTES
JUEVES
-jueves
SubProceso fv<-eficiencia (v2,v1,vd)
fv<-(v2-v1)/vd
fin subproceso
SubProceso r<-formula (l,pa,s)
r<-(l/pa)*s
fin subproceso
Proceso FUNCIONES
Escribir '*************MENU************'
Escribir '1: eficiencia volumetrica'
Escribir '2: formula '
Escribir 'INGRESE UNA OPCION'
Leer proceso1
Segun proceso Hacer
1:
Escribir 'eficiencia volumetrica';
Escribir '*****************';
Definir fv, v2, v1, vd Como real ;
Escribir 'ingrese el volumen dos: ';
Leer v2;
Escribir 'ingrese el volumen uno : ';
Leer v1;
Escribir " ingrese el vd: ";
leer vd;
fv<-eficiencia (v2,v1,vd)
Escribir 'eficiencia volumetrica es: ' ,fv;
2:
Escribir 'formula';
Escribir '*****************';
Definir r, l, pa, s Como real ;
Escribir 'ingrese la longuitud: ';
Leer l;
Escribir 'ingrese la permealidad absoluta : ';
Leer pa;
Escribir " ingrese el area : ";
leer s;
r<-formula (l,pa,s)
Escribir 'eficiencia volumetrica es: ' ,fv;
fin segun
fin proceso