SubProceso Corriente_t()
//Definir variables publicamente
Dimension Corriente(100);
//Asignacion
Inicio=1;
Final=50;
i=1
Definir W,Io,t como real;
Escribir "Ingrese velocidad angular";
Leer W;
Escribir "Ingrese Corriente 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 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;
Mientras i<=FINAL Hacer
Escribir "El Resultado Es: ", Pote(i);
i=i+1
FinMientras
Fin SubProceso
SubProceso CAMPO_MAGNETICO()
Dimension Campo(100);
INICIAL= 2.5;
FINAL= 8;
i=1
L=50
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
Proceso Magallanes
//declaracion
Definir OPCION1 Como Entero;
Escribir "***** MENU ****** ";
Escribir "1) Campo Maganetico ";
Escribir "2) Potencia";
Escribir "3) Corriente(t)";
Escribir " INGRESE UNA OPCION ";
Leer OPCION1;
Segun OPCION1 Hacer
1: CAMPO_MAGNETICO();
2:Potencia()
3: Corriente_t();
De Otro Modo:
Escribir "Esa opcion no existe";
Fin Segun
FinProceso