Estructuras repetitivas finita

​

EJEMPLO 1 EN PSEINT
 

//campo magnetico
SubProceso campo()
    Escribir "calculo del campo magnetico";
    Escribir "ingrese la corriente";
    Leer i;
    Escribir "ingrese la permeabilida magnetica";
    Leer u;
    Escribir "ingrese longitud";
    Leer l;
    inicial2=10;
    final2=100;
    Si l<>0 Entonces
        Para n<-inicial2 Hasta final2 Con Paso 15 Hacer
            b=u*i*n/l;
            Escribir "el campo magnetico es",b, "cuando el numero es n ", n;
        Fin Para
    Sino
        Escribir "no se puede determinar"
    Fin Si
Fin SubProceso

​

​

//tension
SubProceso tension()
    Escribir "calculo del procedimiento de la caida de la tension";
    Escribir "ingrese la corriente";
    Leer i;
    Escribir "ingrese la seccion";
    Leer s;
    ang=0.88;
    dro=0.0175;
    inicial1=2.5;
    final1=10;
    Si s<>0 Entonces
        Para p<-inicial1 Hasta final1 Con Paso 0.5 Hacer
            t=(dro*rc(3)*i*p*cos(ang))/s;
            Escribir "la caida de la tension es", t, "cuando la potencia es p", p;
        Fin Para
    Sino
        Escribir "no se puede determinar"
    Fin Si
Fin SubProceso

​

​

//corriente
    SubProceso corriente()
        Escribir "calculo del procedimiento de la corriente";
        Escribir "ingresa la resistencia";
        Leer r;
        Escribir "ingrese la impedancia inductiva";
        Leer xl;
        Escribir "ingrese la impedancia capacitica";
        Leer xc;
        inicial=110;
        final=220;
        Si xl<>xc Entonces
            Para v<-inicial Hasta final Con Paso 10 Hacer
                i<-v/(rc(r^2+(xl-xc)^2));
                Escribir "la corriente es", i, "cuandoel voltaje v", v;
            Fin Para
        Sino
            Escribir "xl es diferente que xc"
        Fin Si
    FinSubProceso
    
    
    
    Proceso parametro1
    
    Definir i,v,r,xl,xc Como Real;
    definir t,dro,p,s,ang como real;
    definir b,u,n,l como real;
    definir inicial2,final2 como real;
    definir inicial1,final1 como real;
    definir inicial,final,opcion Como Entero;
    escribir " menu";
    escribir " 1-calculo de la corriente";
    escribir " 2-caida de tension";
    escribir " 3-campo magnetico";
    escribir " elija una opcion";
    leer opcion;
    Segun opcion Hacer
        1:
            corriente()
        2:
            tension()
        3:
            campo()
        De Otro Modo:
            escribir "no valido";
        Fin Segun
    
    
    
FinProceso

​
 

EJEMPLO 2 EN PSEINT

​

// voltaje
SubProceso voltaje()
    escribir " ingrese valor para vo";
    leer vo;
    escribir " ingrese valor para angulo";
    leer w;
    inicio3=2;
    final3=15;
    Si vo>4 Entonces
        Para t<-inicio3 Hasta final3 Con Paso 2 Hacer
            vol=vo*t*sen(w);
            escribir "el voltaje es ",vol;
        Fin Para
    Sino
        escribir " es indeterminado";
    Fin Si
Fin SubProceso

​

​

//energia cinetica
SubProceso energiacinetica()
    escribir " ingrese valor para u";
    leer u;
    inicio2=10;
    final2=20;
    Si u<>0 Entonces
        Para m<-inicio2 Hasta final2 Con Paso 2 Hacer
            ec=(m*u^2)/2
            escribir "la energia cinetica es ",ec;
        Fin Para
    Sino
        escribir " es indeterminado";
    Fin Si
Fin SubProceso

​

​

// inductancia
SubProceso inductancia()
    escribir " ingrese valor para fm";
    leer fm;
    escribir " ingrese valor para i";
    leer i;
    inicio=100;
    final=200;
    Si i>2 Y i<10 Entonces
        Para n<-inicio Hasta final Con Paso 1.5 Hacer
            l=fm*n/i
            escribir "la inductancia es ",l;
        Fin Para
    Sino
        escribir " es indeterminado";
    Fin Si
Fin SubProceso

​

​

Proceso formulas
    definir l,fm,i,n,ec,u,v,m,vo,vol,w,t,menu Como Real;
    definir inicio,final,opcion,inicio2,final2,inicio3,final3 Como Entero;
    Escribir  "menu";
    Escribir  "1-inductancia";
    Escribir  "2-energia cinetica";
    Escribir  "3-voltaje";
    escribir " ingrese opcion";
    leer opcion;
    Segun opcion Hacer
        1:
            inductancia()
        2:
            energiacinetica()
        3:
            voltaje()
        De Otro Modo:
            escribir "fuera de rango"
        Fin Segun

    
FinProceso