Proceso FORMULAS_BUCLE_2
//INICIO
//DECLARACION
Definir opciones, INICIAL, FINAL Como Entero
//ELEGIR OPCION FORMULA
Escribir "***********MENU***********"
Escribir "1)FORMULA DE LA POTENCIA"
Escribir "2)FORMULA DE CAPACITORES EN SERIE"
Escribir "3)FORMULA DE FUERZA DE CAMPO MAGNETICO"
Escribir "SELECCIONE UNA FORMULA:"
Leer opciones
Segun opciones Hacer
1:
Escribir "FORMULA DE LA POTENCIA"
//INICIO
//DECLARACION
Definir P,V , I, FITA como Real;
//ASIGNACION
Escribir "INGRESE LA INTENSIDAD:"
Leer I;
INICIAL=110;
FINAL=220;
V=INICIAL;
FITA=0.85;
//PROCESO
Para V<-INICIAL Hasta FINAL Con Paso 10 Hacer
P<-V*I*COS(FITA)
//RESULTADO
Escribir "LA POTENCIA ES:"
Escribir V, "*", I, "*", COS(FITA), "=", P;
Fin Para
//FIN
2:
Escribir "FORMULA DE CAPACITORES EN SERIE"
//INICIO
//DECLARACION
Definir CE, C1, C2, C3 como Real;
//ASIGNACION
Escribir "INGRESE LA CAPACITANCIA 1:"
Leer C1;
Escribir "INGRESE LA CAPACITANCIA 3:"
Leer C3;
INICIAL=100;
FINAL=200;
C2=INICIAL;
//PROCESO
Para C2<-INICIAL Hasta FINAL Con Paso 15 Hacer
A<-(1/C1)+(1/C2)+(1/C3)
CE<-1/A
//RESULTADO
Escribir "LA CAPACITANCIA EQUIVALENTE O TOTAL ES:"
Escribir 1/C1, "+", 1/C2, "+", 1/C3, "=", CE;
Fin Para
//FIN
3:
Escribir "FORMULA DE FUERZA DE CAMPO MAGNETICO"
//INICIO
//DECLARACION
Definir INICIAL1,FINAL1 , Rad, Fuer_Camp_Mag, Beta, Vel, Carga, Posicion como Real;
//ASIGNACION
Escribir "INGRESE VELOCIDAD"
Leer Vel;
Escribir "INGRESE CAMPO MAGNETICO"
Leer Beta;
INICIAL=100;
FINAL=300;
Carga=INICIAL;
//PROCESO
Para Carga<-INICIAL Hasta FINAL Con Paso 50 Hacer
//RESULTADO
Escribir "LA FUERZA DE CAMPO MAGNETICO ES:"
INICIAL1=10;
FINAL1=50;
Posicion=INICIAL1;
Para Posicion<-INICIAL1 Hasta FINAL1 Con Paso 10 Hacer
Rad=(2*PI*Posicion)/360
Fuer_Camp_Mag<-Beta*Vel*Carga*Sen(Rad)
Escribir "LA POTENCIA ES:"
Escribir Beta, "*", Vel, "*", Carga, "*", Sen(Rad), "=", Fuer_Camp_Mag;
Fin Para
Fin Para
//FIN
De Otro Modo:
Escribir "NO HA SELECCIONADO UNA FORMULA"
Fin Segun
FinProceso
//FIN
Comments