Estructuras repetitivas finita (Para)
​
En muchas ocasiones se conoce de antemano el número de veces que se desean ejecutar las acciones del cuerpo del bucle. Cuando el número de repeticiones es fijo, lo más cómodo es usar un bucle “para”, aunque sería perfectamente posible sustituirlo por uno “mientras”.
La estructura “para” repite las acciones del bucle un número prefijado de veces e incrementa automáticamente una variable contador en cada repetición.
​
Ejemplo en Pseint
​
escribir "---------------"
escribir "Formulas Ramdon"
escribir "---------------"
escribir ""
escribir "----------------------------------"
escribir "1. Impedancia de una Linea Coaxial"
escribir "2. Formula de Ultrasonido"
escribir "3. Formula Ft=Fo*cos(W*T)"
escribir "4. Formula R<-(Z2-Z1)/(Z2+Z1)"
escribir "----------------------------------"
escribir ""
leer opciones
escribir ""
Segun opciones Hacer
1:
definir D1,D2,K,Z Como Real
DEFINIR INICIAL ,FINAL COMO ENTERO
escribir "Escribir Diametro Menor"
LEER D1
escribir ""
K=0.0175
INICIAl=110
FINAL =500
Para D2<-INICIAL Hasta FINAL Con Paso 15 Hacer
z<-138* ln(D2/D1)*(1/rc (k))
escribir "z :",z;
Fin Para
2:
definir Pzt,A,V,T,K,Z,INICIAL2,FINAL2 Como Real
DEFINIR INICIAL1,FINAL1 COMO ENTERO
escribir "Escribir Amplitud"
LEER A
escribir ""
escribir "Escribir Velocidad"
LEER V
escribir ""
K=0.0175
INICIAL1 =50
FINAL1 =100
INICIAL2 = 1
FINAL2=10
Para Z<-INICIAL1 Hasta FINAL1 Con Paso 5 Hacer
escribir ""
escribir "-----------------------------------------------------------------"
ESCRIBIR "Para una Impedancia en Z: ",Z
escribir "-----------------------------------------------------------------"
escribir ""
Para T<-INICIAL2 Hasta FINAL2 Con Paso 1.5 Hacer
Pzt<-A*COS(2*PI*V*T + K*Z)
Escribir "EL ULTRA SONIDO: ",Pzt," Para Z: ",z," y tiempo:",t;
Fin Para
Fin Para
3:
DEFINIR Ft,Fo,W,T COMO REAL
ESCRIBIR "Escribir Fo"
leer Fo
ESCRIBIR "Escribir W"
leer W
inicial= 10
final= 20
t=inicial
Para T<-inicial Hasta final Con Paso 2 Hacer
Ft=Fo*cos(W*T)
Escribir "LA FRECUENCIA ES: ",FT ," Para Fo:",Fo," y el T: ",t;
FinPARA
4:
definir R,Z1,Z2 Como Real
DEFINIR INICIAL,FINAL COMO ENTERO
escribir "Ingresar Z2"
LEER Z2
escribir ""
INICIAL =100
FINAL =900
Para Z1<-INICIAL Hasta FINAL Con Paso 10 Hacer
R<-(Z2-Z1)/(Z2+Z1)
Escribir "La Rezonancia es: ", R;
Fin Para
De Otro Modo:
escribir "FUERA DE RANGO"
Fin Segun FinProceso