top of page
Estructuras repetitivas finita (Para)

Introducción:

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 en PSeInt es:

Para variable_numerica<-valor_inicial Hasta valor_final Con Paso paso Hacer
        secuencia_de_acciones
    Fin Para

​

Ejemplo en PSeInt:

Proceso   Estructuras_Repetitivas_Finitas
    Escribir " 1) Opción 1";
    Escribir " 2) Opción 2";
    Escribir " 3) Opción 3";
    Escribir " 4) Opción 4"
    Definir opcion como real;
    Escribir "Ingrese una opción: ";
    Leer opcion;

    
    
    Segun opcion 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

Reductancia:

bottom of page