REPETICION FINITA
ESTRUCTURA REPETITIVA 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.
Su forma general es:
para cont desde valor_inicial hasta valor_final hacer
inicio
acciones
fin
cont es la variable contador. La primera vez que se ejecutan las acciones situadas entre inicio y fin, la variable cont tiene el valor especificado en la expresión valor_inicial. En la siguiente repetición, cont se incrementa en una unidad, y así sucesivamente, hasta alcanzar el valor_final. Cuando esto ocurre, el bucle se ejecuta por última vez y después el programa continúa por la instrucción que haya a continuación.El incremento de la variable cont siempre es de 1 en cada repetición del bucle, salvo que se indique otra cosa. Por esta razón, la estructura “para ” tiene una sintaxis alternativa:
para cont desde valor_inicial hasta valor_final inc|dec paso hacer
inicio
acciones
fin
De esta forma, se puede especificar si la variable cont debe incrementarse (inc) o decrementarse (dec) en cada repetición, y en qué cantidad (paso).
EJERCICIO DE APLICACION...
Proceso Bucle_finito
escribir " 1-opcion1";
escribir " 2-opcion2";
escribir " 3-opcion3";
escribir " 4-opcion4";
definir opciones como real;
escribir "ingrese numero";
leer opciones;
Segun opciones Hacer
1:
definir z,D,dd,k como real;
definir inicio1,final1 como real;
k=0.0175
inicio1=110;
final1=500;
D=inicio;
escribir "ingrese valor para dd";
leer dd;
Para D<-inicio1 Hasta final1 Con Paso 15 Hacer
z=138*ln(D/dd)*(1/rc(k));
escribir "la respuesta es ",z;
Fin Para
2:
definir pzt,a,v,t,k,z como real;
definir inicio3, final3 como real;
definir inicio2,final2 como real;
inicio2=50;
final2=100;
z=inicio;
incial3=1
final3=10
escribir "ingrese valor para w";
leer w;
escribir "ingrese valor para wo";
leer wo;
Para z<-inicio2 Hasta final2 Con Paso 5 Hacer
escribir "para una impedancia de Z =",z;
Para t<-incial3 Hasta final3 Con Paso 1.5 Hacer
pzt=a*cos(2*pi*v*t+k*z);
Escribir "el ultrasonido P(z,t)=",Pzt,"para Z= ",Z, "y tiempo =" , t;
Fin Para
Fin Para
3:
definir r,z1,z2 como real;
definir inicio4,final4 como real;
escribir "ingrese valor para z1";
leer z1;
inicio4=7;
final4=26;
z2=inicio4;
Para z2<-inicio4 Hasta final4 Con Paso 0.5 Hacer
r=(z2-z1)/(z2+z1);
escribir "el resultado es ",r;
Fin Para
4:
definir p,v,n,r,t como real;
definir inicio5,final5 como real;
inicio5=50;
final5=900;
t=inicio;
escribir "ingrese valor para n";
leer n;
escribir "ingrese valor para r";
leer r;
escribir "ingrese valor para v";
leer v;
Para t<-inicio5 Hasta final5 Con Paso 150 Hacer
p=(n*r*t)/v;
escribir "el resultado es ",p;
Fin Para
De Otro Modo:
escribir "es imaginario"
Fin Segun
FinProceso