SubProceso voltaje ()
    escribir "Ingrese corriente";
    leer I;
    escribir "ingrese L";
    leer L;
    
    inicial1 <- 60
    final1<- 120

    si (L>100 y L< 200)entonces
        para  W<-INICIAL1 Hasta FINAL1 Con Paso 5 Hacer
            VL<-W*L*I
            Escribir "El Voltaje de Fase Es: ",VL ;
        Fin Para
    sino escribir "inductacia es :", L;
        
        
    FinSi
FinSubProceso

 

SubProceso Tension ()
    
    leer P;
    leer I;
    inicial <- 60 
    final<- 120
    para ang<- inicial hasta final con paso 10 Hacer
        rad<- (ang*2*pi)/360
        V<- P/(RC(3)*I* cos (rad))
        escribir "la tension es ", V;
    FinPara
    
    
FinSubProceso 

 

SubProceso Impedancia ()
    escribir "ingrese impedancia inductiva";
    leer XL;
    escribir "ingrese impedancia capacitiva";
    leer XC;
    inicial3=12 
    final3=18
    Si XL<>XC Entonces
        Para R<-inicial3 Hasta final3 Con Paso 0.5 Hacer
            Z<-RC((R^2)+((XL-XC)^2))
            Escribir "La Impedancia Es", Z;
        Fin Para
    Sino
        Escribir "impedancia inductiva y capacitiva deben de ser diferentes";
    Fin Si
    
    
FinSubProceso

Proceso procedimiento
    // declaracion
    definir I,RO,P,S,FP,CT,V,R,XL,XC COMO REAL
    Definir inicial, final, opcion Como Entero;
    Definir VL,W,L como real
    definir rad, ang como real
    
    
    
     //asignar 
Definir OPC Como Entero;
Escribir "***** MENU ****** ";
Escribir "1)voltaje de fase ";
Escribir "2)tensión de voltaje ";
Escribir "3)impedancia";
Escribir "   INGRESE UNA OPCION "; 
Leer OPC;
segun OPC hacer 
    1:
        voltaje()
        
    2:
        tension()
        
        
      3:impedancia()
    
    
    
FinSegun

 

    
FinProceso