ROCÍO  ARAGÓN 

SubProceso inductancia()
    Escribir "flujo magnetico"
    Leer FM
    Escribir "corriente"
    Leer i
    inicial=10
    final=100
    Si i<>0 Entonces
        Para n<-inicial Hasta final Con Paso 5 Hacer
            L<- FM*n/i
        Fin Para
    Sino
        escribir "error i>0" 
    Fin Si
    
Fin SubProceso

SubProceso frecuencia2()
    Escribir "frecuencia"
    Leer w
    p=3.14
    inicial=60
    final=120
    Si (w>59)y(w<121) Entonces
        F <- w/2*p
    Sino
         escribir "un error"
    Fin Si
    
Fin SubProceso

SubProceso frecuencia_angular()
    Escribir "calculo de la frecuencia"
    k=0.0175
    escribir "eme"
    Leer m
    inicial=52
    final=20
    Para m <-inicial Hasta final Con Paso 1 Hacer
        w <- rc (k/m)
    Fin Para
Fin SubProceso

Proceso evaluacion_number10
    Definir w,k,m,F,L,n,i,FM como entero
    definir opcion,inicial,final,p  como entero
    escribir "menu"
    Escribir "1)frecuencia angular"
    Escribir "2)frecuencia"
    Escribir "3)inductancia"
    Escribir "elija  una opcion"
    Leer opcion
    Segun opcion Hacer
        1:
            frecuencia_angular()//invocar
        2:
            frecuencia2()//invocar
        3:
            inductancia()//invocar
        
        
    Fin Segun
FinProceso