BUCLE FINITO
Proceso BUCLE_FINITO
Definir opciones Como Real
Escribir "INGRESE OPCION"
Leer opciones
Definir K como real
K=0.0175;
Segun opciones hacer
1:
Definir Z, DMEN, inicial, final Como Real
inicial = 110;
final = 500;
DMAY = inicial;
Para DMAY<- inicial Hasta final Con Paso 15 Hacer
Z = 138*Log*(DMAY/DMEN)*(1/RC(K));
Escribir "la impedancia es", Z;
FinPara
2:
Definir PZT, A, V, T, Z Como Real;
Definir inicial1, final1 Como entero;
Definir inicial2, final2 Como Real;
//ASIGNACION
Escribir "INGRESAR LA AMPLITUD";
Leer A;
Escribir "INGRESAR LA VELOCIDAD";
Leer V;
inicial1 = 50;
final1 <- 100;
inicial2 <- 1;
final2 <- 10;
Para Z<-inicial1 Hasta FINAL1 CON PASO 5 Hacer
Escribir "PARA UNA IMPEDANCIA DE Z= ",Z;
Escribir "---------------------------"
Para t<-inicial2 Hasta final2 Con Paso 1.5 Hacer
PZT <- A * COS (Z*PI*V*T + K*Z);
Escribir "EL ULTRASONIDO P(z,t)= ", Pzt, "PARA Z= ",Z , " Y TIEMPO T=", T;
FinPara
FinPara
3:
Definir Z1, Z2, R, INICIAL5, FINAL6, INICIAL7, FINAL7 Como Real
INICIAL5<- 2;
FIANAL5<- 10;
INICIAL6<- 20;
FINAL6<- 32;
Para Z1 <- INICIAL5 HASTA FINAL5 Con Paso 2 Hacer
Escribir "PARA UNA REFLEXION DE UNA ONDA=", R;
Escribir "-----------------------"
Para Z2 <- INICIAL6 Hasta FINAL6 Con Paso 2 Hacer
R = (Z2-Z1)/(Z2+Z1);
Escribir R;
FinPara
FinPara
4:
Definir W, M, P, V2, V1, INICIAL7, FINAL7 Como Real
M= 4;
P= 2;
V2= 10;
INICIAL7= 20;
FINAL7= 60;
Para V1 <- INICIAL7 Hasta FINAL7 Con Paso 2 Hacer
W = M * P * (V2-V1);
Escribir "EL TRABAJO ES=", W;
FinPara
FinSegun
FinProceso