FLORES NAVARRO JHONNY     UNICA

SubProceso POTENCIA()
    Dimension POTENC(100);
    Definir RADIANES Como Real;
    INICIAL= 6;
    FINAL= 12;
    i=1
    X=5
    Escribir "INGRESE EL VOLTAJE: ";
    Leer V;
    Escribir "INGRESE LA CORRIENTE:";
    Leer IC;
    Mientras i<=FINAL Hacer
        RADIANES<-(2*PI*X)/360
        POTENC(i)<- V*IC*cos(RADIANES);
        i<-i+1;
        X<-X+5
    FinMientras
    i=1;
    Mientras i<=FINAL Hacer
        Escribir "EL RESULTADO SERA: ", POTENC(i);
        i=i+1;
    Fin Mientras
Fin SubProceso

SubProceso CAMPO_MAG()
    Dimension CAMPOM(300);
    Escribir "INGRESE EL NUMERO DE ESPIGAS"
    Leer N;
    u=0125;
    INICIAL=0.25
    FINAL=8
    L=INICIAL;
    INICIAL1=10;
    FINAL1=20;
    I1=INICIAL1;
    a=1;
    Para L<-INICIAL Hasta FINAL Con Paso 0.5 Hacer
        Para I1<-INICIAL1 Hasta FINAL1 Con Paso 1 Hacer
            CAMPOM(a)<-(u*I1*N)/L;
            a=a+1
            ULTIMO=a;
        Fin Para
    Fin Para
    Para a<-1 Hasta ULTIMO Con Paso 1 Hacer
        Escribir "EL CAMPO MAGNETICO(",a,")=", CAMPOM(a);
        a=a+1
    Fin Para
Fin SubProceso

SubProceso CORRIENTE_t()
    Dimension CORRIENTE(100);    
    INICIO=1;
    FINAL=50;
    i=1;
    t=5;
    Escribir "INGRECE LA FRECUENCIA ANGULAR"
    Leer W;
    Escribir "INGRESE LA CORRIENETE INICIAL"
    Leer Io;
    Mientras i<=FINAL Hacer
        CORRIENTE(i)<- Io + sen(W*t);
        i=i+1;
        t=t+0.5;
    Fin Mientras
    //VER LOS RESULTADOS
    i=1;
    t=50;
    Mientras i<=FINAL Hacer
        Escribir "PARA W=",W,"LA I(",t,")=" CORRIENTE(i);
        i=i+1;
        t=t+0.5;
    Fin Mientras
Fin SubProceso

SubProceso CONTAR_MAY_MEN()
    Dimension CORRIENTE(100);
    INICIO=1;
    FINAL=50;
    i=1;
    t=5;
    Escribir "INGRECE LA FRECUENCIA ANGULAR"
    Leer W;
    Escribir "INGRESE LA CORRIENETE INICIAL"
    Leer Io;
    Mientras i<=FINAL Hacer
        CORRIENTE(i)<- Io + sen(W*t);
        i=i+1;
        t=t+0.5;
    Fin Mientras
    //VER LOS RESULTADOS
    i=1;
    t=5;
    Mientras i<=FINAL Hacer
        Escribir "PARA W=",W,"LA I(",t,")=" CORRIENTE(i);
        i=i+1;
        t=t+0.5;
    Fin Mientras
    // CONTANDO MAYORES Y MENORES AL PRMEDIO
    i=1;
    MAXIMO=CORRIENTE(1);
    //MINIMO
    Repetir
        Si CORRIENTE(i)>MAXIMO Entonces
            MAXIMO<-CORRIENTE(i);
        Sino
            MAXIMO<-MAXIMO
        Fin Si
        i=i+1;
        
    Hasta Que i>=FINAL
    Escribir "****************************************"
    Escribir "LA MAXIMA CORRIENTE ES:",MAXIMO
    Escribir "****************************************"
Fin SubProceso

Proceso VECTORES_SEM_11_FNJ
    //DECLARACION PUBLICA(3)(4)
    Dimension CORRIENTE(100);
    Definir i,INICIO,FINAL Como real;
    Definir W,Io,t Como Real;
    INICIO=1
    FINAL=50
    
    //DECLARACION PUBLICA(POTENCIA)
    //Definir C_M,U,I,N,L Como Real;
    //Definir i,INICIO1,FINAL1 Como Entero;
    
    //DECLARACION PUBLICA CAMPO_MAG()
    Definir a,ULTIMO Como Real;
    Definir INICIAL,INICIAL1,FINAL1,MAXIMO,MINIMO Como real;
    Definir u,I1,N,L Como real;
    INICIAL=1
    FINAL=10
    // MENU
    Definir OPCION1 Como Entero;
    Escribir "ALUMNO FLORES N-J"
    Escribir "************** MENU ******************* ";
    
    Escribir "1) CAMPO MAGNETICO";
    Escribir "2) POTENCIA";
    Escribir "3) CORRIENTE";
    Escribir "4) CONTAR MAYOR Y MENOR AL PROMEDIO";
    
    Escribir "***************************************"
    Escribir "   INGRESE UNA OPCION "; 
    Leer OPCION1;
    
    Segun OPCION1 Hacer
        1: CAMPO_MAG()           // INVOCACION
        2: POTENCIA()            // INVOCACION
        3: CORRIENTE_t();        // INVOCACION
        4: CONTAR_MAY_MEN();     // INVOCACION
        De Otro Modo:
            Escribir "Fuera de Rango";
        Fin Segun
FinProceso