Algoritmo Desarrollado en Clases

​

//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