Proceso menu
    Definir OPC Como Entero;
    Escribir '*****MENU*****';
    Escribir ' 1)fuerza electromotriz ';
    Escribir ' 2) fuerza magnetica ';
    Escribir ' 3)  velocidad';
    Escribir ' 4) tencion superficial';
    Escribir ' 5) ELIJA UNA OPCION ';
    Leer OPC;
    Segun OPC  Hacer
        1:
            Escribir 'opcion 1';
            Definir f,g,m1,m2,r,inicio1,inicio2,final2,final1 Como Real;
            Escribir 'ingrese r';
            Leer r;
            inicio1<-0.025;
            final1<-0.5;
            inicio2<-0.02;
            final2<-0.4;
            g<-0.0175;
            
            Para m1<-inicio1 Hasta  final1  Con Paso  0.1 Hacer
                Para m2<-inicio2 Hasta  final2 con Paso 0.02 Hacer
                    f<-g*(m1*m2/r^2);
                    escribir " para g = ",g, " y m1 = ",m1, " y m2 = ",m2, " y r = ",r;
                FinPara
            FinPara
        2:
            Escribir 'opcion 2';
            Definir fem,flufinal,fluinicial,t Como Real;
            Escribir 'ingrese fluinicial';
            Leer fluinicial;
            Escribir " ingrese t";
            Leer t;
            inicio<-100;
            final<-200;
        
            
            Para flufinal<-inicio1 Hasta  final  Con Paso  0.1 Hacer
                fem<-flufinal-fluinicial/t; 
                escribir " para flufinal = ",flufinal, " fluinicial = ",fluinicial, " y t = ",t;
            FinPara
        
        3:
            Escribir 'opcion 3';
            Definir v,e,t,inicio1,inicio2,final2,final1 Como Real;
            inicio1<-50;
            final1<-100;
            inicio2<-5;
            final2<-15;
            
            Para e<-inicio1 Hasta  final1  Con Paso  10 Hacer
                Para t<-inicio2 Hasta  final2 con Paso 1 Hacer
                    v<-e/t;   
                    escribir "para e = ",e, " y t ",t;
                FinPara
            FinPara
        4:
            Escribir 'opcion 4';
            Definir ts,tsi,tf,ti,n,inicio1,inicio2,final2,final1 Como Real;
            Escribir 'ingrese n';
            Leer n;
            Escribir 'ingrese ti';
            Leer ti;
            
            inicio1<-0;
            final1<-20;
            inicio2<-100;
            final2<-200;
            
            Para tsi<-inicio1 Hasta  final1  Con Paso  1.5 Hacer
                Para tf<-inicio2 Hasta  final2 con Paso 25 Hacer
                    ts<-tsi*(1-tf/ti)^n  ;    
            escribir " para ts =",ts,"y tsi =",tsi,"tf =",tf," n = ",n;
                    
                FinPara
            FinPara

    FinSegun
FinProceso