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