MARTES
//1-FORMULA DE LA ENERGIA POTENCIAL ELECTRICA
SubProceso POTENCIAL()
Escribir "Ingresar la Constante Electrostatica";
Leer Const_Elect;
Escribir "Ingresar la Distancia entre Cargas";
Leer Dist_Carg;
Si Dist_Carg<>0 Entonces
Escribir "Ingrese la Carga 2";
Leer Carga_2;
INICIAL=20;
FINAL=100;
Para Carga_1<-INICIAL Hasta FINAL Con Paso 2.5 Hacer
Energ_Pot<-(Const_Elect*Carga_1*Carga_2)/Dist_Carg
Escribir "La Energia Potencial Electrica es:", Energ_Pot;
FinPara
SiNo
Escribir "Cambiar la Distancia entre cargas, el resultado es indeterminado"
FinSi
FinSubProceso
//2-LEY DE GAUSS
SubProceso GAUSS()
Escribir "Ingresar el Campo Electrico";
Leer Camp_Elect;
Escribir "Ingresar el Area";
Leer Area;
Si Area>5 Entonces
INICIAL=60;
FINAL=120;
Para Ang_E_A<-INICIAL Hasta FINAL Con Paso 10 Hacer
Rad<-(2*PI*Ang_E_A)/360
Flu_Elect<-Camp_Elect*Area*Cos(Rad)
Escribir "La Flujo Electrico es:", Flu_Elect;
FinPara
SiNo
Escribir "Cambiar el Area debe ser mayor a 5"
FinSi
FinSubProceso
//3-FORMULA DE LA RESISTENCIA DEL SONIDO
SubProceso RESIST_SONIDO()
Escribir "Ingresar el Diametro Mayor";
Leer D_Mayor;
Escribir "Ingresar el Diametro Menor";
Leer D_menor;
Si D_menor<>0 Entonces
INICIAL=200;
FINAL=300;
Para NPS<-INICIAL Hasta FINAL Con Paso 25 Hacer
Resist_Son<-NPS-20*Ln(D_Mayor/D_menor)
Escribir "La Resistencia del Sonido es:", Resist_Son;
FinPara
SiNo
Escribir "Cambiar el Diametro menor debe ser distinto de 0, es Indeterminado"
FinSi
FinSubProceso
Proceso EJERCICIOS
//DECLARACION PUBLICA
Definir Opcion, INICIO, FINAL como Entero
Definir Const_Elect, Dist_Carg, Energ_Pot, Carga_1, Carga_2, Flu_Elect, Camp_Elect, Ang_E_A, Area, NPS, Resist_Son como Real
//ELEGIR OPCION FORMULA
Escribir "***********MENU***********"
Escribir "1)FORMULA DE LA ENERGIA POTENCIAL ELECTRICA"
Escribir "2)LEY DE GAUSS"
Escribir "3)FORMULA DE LA RESISTENCIA DEL SONIDO"
Escribir "SELECCIONE UNA FORMULA:"
Leer opciones
Segun opciones Hacer
1:
POTENCIAL()//1-INVOCAR
2:
GAUSS()//2-INVOCAR
3:
RESIST_SONIDO()//3-INVOCAR
De Otro Modo:
Escribir "NO HA SELECCIONADO UNA FORMULA"
Fin Segun
FinProceso
//FIN
JUEVES
//1-FORMULA DE LA INDUCTANCIA
SubProceso INDUCTANCIA()
INICIAL=100;
FINAL=200;
N_Espiras=INICIAL;
Escribir "Ingrese el Flujo Magnetico:";
Leer Fluj_Mag;
Escribir "Ingrese la Corriente:";
Leer Corriente;
//PROCESO
Repetir
Si (Corriente>2 y Corriente<=10)
Induct<-(Fluj_Mag*N_Espiras)/Corriente;
//RESULTADO
Escribir "La Inductancia es:", Induct;
Sino
Escribir "Corriente esta fuera de rango";
FinSi
N_Espiras=N_Espiras+1.5;
Hasta Que (N_Espiras<=FINAL);
FinSubProceso
//2-INTEGRAL DE F(X)
SubProceso INTEGRAL()
INICIAL=2;
FINAL=10;
X=INICIAL
//PROCESO
Repetir
F_X<-(X^3/3)+(3*X^2)/(2-1)
Si (F_X>10 y F_X<=20)
//RESULTADO
Escribir "El resultado de F(X) es:", F_X;
Sino
Escribir "F(X) esta fuera de rango"
FinSi
X=X+1
Hasta Que (X=FINAL)
FinSubProceso
//3-FORMULA DE LA ENERGIA CINETICA
SubProceso ENERGIA_CINETICA()
//DEFINIR VELOCIDAD DE LA LUZ
Veloc_Luz<- 300000
INICIAL=2;
FINAL=10;
Masa=INICIAL
//PROCESO
Repetir
Energ_Cin<-(Masa*(Veloc_Luz)^2)/2
//RESULTADO
Escribir "La Energia Cinetica es:", Energ_Cin;
Masa=Masa+2
Hasta Que (Masa=FINAL)
FinSubProceso
//4-FORMULA DEL VOLTAJE
SubProceso VOLTAJE()
Escribir "Ingrese la Velocidad Angular:";
Leer Veloc_Ang;
Escribir "Ingrese la Velocidad Inicial:";
Leer Veloc_Inicial;
//PROCESO
Si (Veloc_Inicial>4)
Escribir "Ingrese el Tiempo:";
Leer Tiempo;
Si (2<Tiempo y Tiempo<=15) Entonces
Rad=(2*PI*Veloc_Ang)/360
Voltaj<-Veloc_Inicial*Sen(Rad)*Tiempo
//RESULTADO
Escribir "El Voltaje es:", Voltaj;
SiNo
Escribir "Tiempo fuera de rango"
Fin Si
Sino
Escribir "Velocidad Inicial debe ser mayor a 4"
FinSi
FinSubProceso
//5-FORMULA DE LA POTENCIA_APARENTE
SubProceso POTENCIA_APARENTE()
INICIAL=15;
FINAL=50;
P_Activa=INICIAL
Escribir "Ingrese la Potencia Reactiva:";
Leer P_Reactiva;
//PROCESO
Repetir
Si (P_Reactiva>3 y P_Reactiva<=38)
P_Aparente<-(P_Activa)^2+(P_Reactiva)^2
//RESULTADO
Escribir "La Potencia Aparente:", P_Aparente;
Sino
Escribir "La Potencia Reactiva esta fuera de Rango"
FinSi
P_Activa=P_Activa+3
Hasta Que (P_Activa=FINAL)
FinSubProceso
Proceso EJERCICIOS
//DECLARACION PUBLICA
Definir Opcion, INICIO, FINAL como Entero
Definir x, F_X,Induct, Fluj_Mag, N_Espiras, Corriente, Energ_Cin, Masa, Veloc_Luz, Voltaj, Veloc_Inicial, Veloc_Ang, Tiempo, P_Aparente, P_Activa, P_Reactiva como Real
//ELEGIR OPCION FORMULA
Escribir "***********MENU***********"
Escribir "1)FORMULA DE LA INDUCTANCIA"
Escribir "2)LA INTEGRAL DE F(x)"
Escribir "3)FORMULA DE LA ENERGIA CINETICA"
Escribir "4)FORMULA DEL VOLTAJE"
Escribir "5)FORMULA DE LA POTENCIA APARENTE"
Escribir "SELECCIONE UNA FORMULA:"
Leer opciones
Segun opciones Hacer
1:
INDUCTANCIA()//1-INVOCAR
2:
INTEGRAL()//2-INVOCAR
3:
ENERGIA_CINETICA()//3-INVOCAR
4:
VOLTAJE()//4-INVOCAR
5:
POTENCIA_APARENTE()//5-INVOCAR
De Otro Modo:
Escribir "NO HA SELECCIONADO UNA FORMULA"
Fin Segun
FinProceso
//FIN