funciones y procedimientos con parámetros
subProceso retorno <- campo_magnetico (i,n,l,pm);
Z2<-(u*i*n)/l;
retorno<-Z2;
finsubproceso
subproceso GG5 <- CAIDA_TENSION (i,p,s);
Definir RO,cosfi como real;
RO<-0.0175;
cosfi <- 0.85;
F <- (RO*RC(3)*i*p*cosfi)/s;
GG5 <- F;
finsubproceso
subproceso RETORNAR <- CORRIENTE (V,R,XL,XC);
Z <-V/(RC(R*R+(XL+XC)*2));
RETORNAR <- Z;
finsubproceso
Proceso FUNCIONES_MÚLTIPLES
DEFINIR Z,R,I,V,XL,XC COMO REAL;
DEFINIR F,RO,i,p,s,dv,cosfi COMO REAL;
DEFINIR N,L,I,PM,CM COMO REAL;
Definir OPCION Como Entero;
Escribir "****MENU****";
Escribir "1)CORRIENTE";
Escribir "2)CAIDA DE TENSION";
Escribir "3)CAMPO MAGNETICO";
Escribir "ingrese opcion";
leer OPCION;
Segun OPCION Hacer
1: Escribir "CORRIENTE";
Definir Z,R,I,V,XL,XC Como Real;
Escribir "ingrese voltaje";
leer V;
Escribir "ingrese la resistenci";
leer R;
Escribir "ingrese la impedancia inductiva";
leer XL;
Escribir "ingrese la impedancia capacitiva";
leer XC;
R<-corriente(X,R,XL,XC);
Escribir "la corriente es :",R,
2: Escribir "CAIDA DE TENSION";
Definir F,RO,i,p,s,dv,cosfi como real;
Escribir " ingrese corriente ";
leer i;
Escribir "ingrese potencia";
leer p;
Escribir "ingrese seccion ";
leer s;
dv <- CAIDA_TENSION (i,p,s);
Escribir "la caida de tension es :",dv;
3: Escribir "CAMPO MANETICO";
Definir N,L,I,PM,CM Como Real;
Escribir "ingrese la corriente";
leer I;
Escribir "ingrese numero de espiras";
leer N;
Escribir "ingrese longitud";
leer L;
Escribir "ingrese la permeabilidad magnetica";
leer PM;
CM <- CAMPO_MAGNETICO (I,N,L,PM);
Escribir "el campo manetico es :",CM;
FinSegun
FinProceso