FLORES NAVARRO JHONNY     UNICA

SubProceso TENCION()
    Escribir "INGRESE LA POTENCIA"
    Leer P;
    Escribir "INGRESE LA CORRIENTE"
    Leer I2;
    INICIAL3=60;
    FINAL3 =120;
    Para ANG<-INICIAL3 Hasta FINAL3 Con Paso 10 Hacer
        V<-P/(rc(3)*I2*ANG);
        Escribir "LA TENCION:", V;
    Fin Para
    
Fin SubProceso

SubProceso IMPERANCIA()
    Escribir "INGRESE IMPERANCIA INDUCTIVA"
    Leer XL;
    Escribir "INGRESE IMPERANCIA CAPACITIVA"
    Leer XC;
    INICIAL2=12;
    FINAL2 =18;
    Si XL<>XC Entonces
        Para R<-INICIAL2 Hasta FINAL2 Con Paso 0.5 Hacer
            Z<-rc(R^2+(XL-XC)^2);
            Escribir "LA IMPERANCIA:", Z;
        Fin Para
    Sino
        Escribir "DATO ERRADO"
    Fin Si
    
Fin SubProceso

SubProceso VOLTAGE()
    Escribir "INGRESE LA VELOCIDAD IMPERANCIA"
    Leer L;
    Escribir "INGRESE LA CORRIENTE ANGULAR"
    Leer I1;
    INICIAL1=60;
    FINAL1 =120;
    Si L<100 y L<=200 Entonces
        Para W<-INICIAL1 Hasta FINAL1 Con Paso 5 Hacer
            VL<-W*L*I1;
            Escribir "EL VOLTAJE DE FASE:", VL;
        Fin Para
    Sino
        Escribir "DATO ERRADO"
    Fin Si
Fin SubProceso

SubProceso INDUCTANCIA()
    Escribir "INGRESE LA FUERZA MAGNETICA"
    Leer FM;
    Escribir "INGRESE LA CORRIENTE"
    Leer I;
    INICIAL=10;
    FINAL =100;
    Si I<>0 Entonces
        Para N<-INICIAL Hasta FINAL Con Paso 5 Hacer
            L<- (FM*N)/I;
            Escribir "LA INDUCTANCIA ES:", L;
        Fin Para
    Sino
        Escribir "INGRESE I<>0"
    Fin Si
Fin SubProceso

Proceso PROCEDIMIENTO_SIMPLE
    //DECLARACIONES PUBLICAS
    Definir L,FM,N,I Como Real;
    Definir INICIAL,FINAL Como Entero
    
    Definir VL,W,I1 Como Real;
    definir INICIAL1,FINAL1 Como Real;
    
    Definir Z,XL,XC,R Como Real;
    Definir INICIAL2,FINAL2 Como Real;
    
    Definir V,P,I2 Como Real;
    Definir INICIAL3,FINAL3 Como Real;
    
    // MENU
    Definir OPCION1 Como Entero;
    Escribir "ALUMNO FLORES N-J"
    Escribir "************ MENU ******************* ";
    
    Escribir "1) INDUCTANCIA ";
    Escribir "2) VOLTAGE DE FASE (UNRA)";
    Escribir "3) IMPERANCIA";
    Escribir "4) TENSION";
    
    Escribir "***************************************";
    Escribir "   INGRESE UNA OPCION "; 
    Leer OPCION1;
    
    Segun OPCION1 Hacer
        1:
            INDUCTANCIA(); // INVOCACION
        2:
            VOLTAGE();     // INVOCACION
        3:
            IMPERANCIA();  // INVOCACION
        4:
            TENCION();     // INVOCACION
        De Otro Modo:
            Escribir "Fuera de Rango";
        Fin Segun
    
FinProceso