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.

​​

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.

​

​

​

​

​​​

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