Evap 7

   Proceso Tarea
        Escribir "1.Fuerza"
        Escribir "2.Velocidad"
        Escribir "3.Potencia"
        Escribir "4.Ganancia"
        Definir Variable,P,A,F,m,Inicial,h,g,V,I,B,Ic,Ib Como Real
        Leer Variable
        Segun Variable Hacer
            1:
                Escribir "A"
                Leer A
                P<-10
                Mientras (P<=100) Hacer
                    F<-P/A
                    P<-P+5
                    Escribir "La fuerza es: ",F
                Fin Mientras
            2:
                Escribir "M"
                Leer m
                h<-5
                g<-9.8
                Mientras (h<10) Hacer
                    V<-g*m*h
                    h<-h+0.5
                    Escribir "La velocidad es :",V
                Fin Mientras
            3:
                Escribir"Intensidad"
                Leer I
                V<-110
                Mientras (V<220) Hacer
                    P<-V*I
                    V<-V+10
                    Escribir "La Potencia es ",P
                Fin Mientras
            4:    
                Escribir "Corriente Base"
                Leer Ib
                Ic<-1
                Mientras (Ic<=5) Hacer
                    B<-Ic*Ib
                    Ic<-Ic+0.2
                    Escribir "La Ganancia es ",B
                FinMientras
            De Otro Modo:
                Escribir "No existe"
        Fin Segun
FinProceso