Evaluación 10
//Zona de procedimientos
SubProceso FRECUENCIA_ANGULAR()
Escribir ("CALCULO DE LA FRECUENCIA ANGULAR")
Escribir ("Ingrese K: ")
Leer K
INICIAL = 5
FINAL = 20
m = INICIAL
Para m = INICIAL hasta 20 hacer m = m+1
W <- rc(K/m)
Escribir ("El cálculo de la frecuencia angular es: "), W
FinPara
FinSubProceso
SubProceso FRECUENCIA()
Escribir ("CALCULO DE LA FRECUENCIA")
Escribir ("Ingrese el W: ")
Leer W
Pii = 3.14
INICIAL = 60
FINAL = 120
Si W <> 0 Entonces
F<-W/2*Pii
Sino
Escribir ("El valor de W no es correcto")
Fin Si
Escribir ("El cálculo de la frecuencia es: "), W
FinSubProceso
SubProceso INDUCTANCIA()
Escribir ("CALCULO DE LA INDUCTANCIA")
Escribir ("Ingrese la I: ")
Leer I
Escribir ("Ingrese Fii: ")
Leer Fii
INICIAL = 10
FINAL = 100
N = INICIAL
Si I <> 0 Entonces
L<-(Fii*N)/I
Sino
Escribir ("El valor de Fii no es correcto")
Fin Si
Escribir ("El cálculo de la inductancia es: "), L
FinSubProceso
Proceso formulas
Definir INICIAL, FINAL, W, K, m, F, Pii, L, N, I, Fi Como Real
Definir opcion como entero
FRECUENCIA_ANGULAR()
FRECUENCIA()
INDUCTANCIA()
Escribir ("M E N U")
Escribir ("----------------------")
Escribir ("1) FRECUENCIA ANGULAR")
Escribir ("2) FRECUENCIA")
Escribir ("3) INDUCTANCIA")
Leer opcion
segun opcion hacer
1:
FRECUENCIA_ANGULAR()//invocacion
2:
FRECUENCIA()//invocacion
3:
INDUCTANCIA()//invocación
De Otro Modo:
Escribir ("La opcion no existe")
FinSegun
FinProceso