Huaman Ramirez Josè

Proceso  
    // declaracion
    Definir OPC Como Entero;
    Escribir "***** MENU ****** ";
    Escribir "1)*TRABAJO TERMICO*";
    Escribir "2)VOLTAJE MAGNETICO";
    Escribir "3)MRUV";
    Escribir "4)ENERGIA POTENCIAL";
    Escribir "   INGRESE UNA OPCION "; 
    Leer OPC;
    
    Segun OPC Hacer
        1:    1:
            //DECLARACIÓN
            Escribir "OPCIÓN 1";
            Definir INICIAL1,INICIAL2,FINAL1,FINAL2,n,p1,p2,w,v1,v2  Como Real;
            //ASIGNACIÓN
            Escribir "p2"; Leer p2;
            Escribir "v1"; Leer v1;
            escribir "v2"; Leer v2;
            //PROCESO
            INICIAL1<-0
            FINAL1<-0.9
            INICIAL2<-10
            FINAL2<-15
            Para n<-INICIAL1 HASTA FINAL1 CON PASO 0.1 HACER
                PARA p1<-INICIAL2 HASTA  FINAL2 CON PASO 0.2 HACER
                    w<-((p2*v2)-(p1*v1))/(1-n)
                    Escribir "PARA p2=",p2,",   v2=",v2,",   p1=",p1,",   v1= ",v1,"   y la eficiencia n= ",n,"   te da un trabajo térmico igual a =",w;
                FinPara
            FinPara
        
    2:  //DECLARACION
            Escribir "opcion 2";
            definir fem,x1,x2,t,ini1,fin1 Como Real
            Escribir "ingrese flujo magnetico inicial"
            leer x2
            Escribir "ingrese t"
            Leer t
            ini1<-100
            fin1<-200
            Para x1<-ini1 Hasta fin1 Con Paso 5 Hacer
                fem<-(x1-x2)/t
                Escribir "Si x1 es: ",x1," y x2 es ",x2," Voltaje Magnetico= ",fem
            Fin Para
            
        3:   //DECLARACION

            Escribir "opcion 3";
            definir v,e,t,ini1,ini2,fin1,fin2 Como Real
            ini1<-50
            fin1<-100
            ini2<-5
            fin2<-15
            Para e<-ini1 Hasta fin1 Con Paso 10 Hacer
                Para t<-ini2 Hasta fin2 Con Paso 1 Hacer
                    v<-e/t
                    Escribir "Si e es: ",e," y t es ",t," v= ",v 
                Fin Para
            Fin Para
            
        4:   //DECLARACIÓN
            Escribir "OPCIÓN 4";
            Definir INICIAL, FINAL,VF, V1, A, E   Como Real;
            //ASIGNACIÓN
            Escribir "V1"; Leer V1;
            Escribir "A";  Leer A;
            //PROCESO
            INICIAL<-10
            FINAL<-30
            Para E<-INICIAL HASTA FINAL CON PASO 1.5 HACER
                VF<-RC(((V1)^2)+(2*A*E))
                Escribir "para una V1=",V1,",  una A=",A,"    y una E=",E,"    nos da igual a una velocidad final =",VF;
            FinPara
            
        Fin Segun
    FinProceso