Viernes

 

SubProceso POTENCIA()
    Dimension Pote(100)
    Definir rad Como Real
    INICIAL= 6;
    FINAL= 12;
    i=1
    A=5
    Escribir "Ingrese el Voltaje: ";
    Leer V;
    Escribir "Ingrese la Corriente:";
    Leer I;
    Mientras i<=FINAL Hacer
        rad<-(2*PI*A)/360
        Pote(i)<-V*I*cos(rad)
        i<-i+1;
        A<-A+5
    FinMientras
    i=1;
    //A=50;
    Mientras i<=FINAL Hacer
        Escribir "El Resultado Es: ", Pote(i);
        i=i+1
    //    A= A+5
    Fin Mientras
    
    
Fin SubProceso

SubProceso CAMPO_MAGNETICO()
Dimension Campo(100);
INICIAL= 2.5;
FINAL= 8;
i=1
L=5
Escribir "Ingrese la Permeabilidad: ";
Leer u;
Escribir "Ingrese la Corriente: ";
Leer I ;
Escribir "Ingrese el Numero de Espiras";
Leer N;
    Mientras i<=FINAL Hacer
        Campo(i)<-(u*I*N)/L
        i<-i+1;
        L<-L+0.5
    FinMientras
    i=1;
    L=50;
    Mientras i<=FINAL Hacer
        Escribir "El Resultado Es: ", Campo(i);
        i=i+1
        L= L+0.5
    Fin Mientras
    Max<-Campo(100)
    Si Campo(i)>Max Entonces
        Max<-Campo(i)
    Sino
        Max<-Max
        Escribir "El Maximo Valor es", Max;
    Fin Si
Fin SubProceso

SubProceso Corriente_t()
    Dimension Corriente(100);
    Definir Max1 como Real
    INICIAL = 1;
    FINAL = 10;
    i=1
    t=5
    Escribir "Ingrese la Frecuencia Angular: ";
    Leer W;
    Escribir "Ingrese la Corriente Inicial:" ;
    Leer Io;
    Mientras i<=FINAL Hacer
        Corriente(i) <- Io*sen(W*t)
        i<-i+1;
        t=t+0.5;
    FinMientras
    i=1;
    t=50;
    Mientras i<=FINAL Hacer
        Escribir "La t", t, "La I(t)", Corriente(i);
        i=i+1
        t= t+0.5
    Fin Mientras
    //Para Hallar Maximo
    i=1
    Max1<-Corriente(1)
    Repetir
        Si Corriente(i)<-Max1 Entonces
            Max1<-Corriente(i)
        Sino
            Max1<-Max1
            Escribir "El Maximo Valor es: ", Max1;
        Fin Si
        i<-i+1
    Hasta Que (i<=FINAL)
        

Fin SubProceso

Proceso VECTORES
    Definir i, INICIAL, FINAL Como Entero
    INICIAL = 1;
    FINAL = 10;
    Definir OPC Como Entero
    Escribir "CAMPO";
    Escribir "POTENCIA";
    Escribir "CORRIENTE";
    Escribir "Ingrese una Opcion";
    Leer OPC;
    Segun OPC Hacer
        1:
            CAMPO_MAGNETICO()
        2:
            POTENCIA()
        3:
            Corriente_t();
        De Otro Modo:
            Escribir "Fuera de Rango";
        Fin Segun
    
FinProceso