Proceso Formula_trabajo

        Definir opción como Entero

        Escribir "Menu"

        Escribir "Escribir JUP" 1: Hallar la fuerza "
        Escribir " 2: Hallar v "
        Escribir " 3: Tiempo de encuentro  "
        Escribir " 4: Opción cuatro "
        Leer opcion
        Segun opcion hacer
            1:
                Definir m, g, inicial, final Como Real
                inicial = 2.5+0.5
                final = 10
                m = inicial
                g = 9.81

                Para m = inial hasta final con paso 0.5 Hacer
                     w = m * g
                     Escribir "Resultado" , w;
                FinPara
            2:
                Definir V, I, R, inicial, final Como Real
                inicial = 1.0 + 0.1
                Final = 5.0
                I = inicial
                Escribir " Asignar un valor a R "
                Leer R
                Para m = inicial hasta final con paso 0.1 Hacer
                     v = I*R
                     Escribir " El resultado es" , V;
                FinPara
            3:
               Definir P, B, Z Como Real
               Escribir "Velocidad 1"
               Leer P
               Escribir "Velocidad 2"

               Leer B 
               Para d = 10 hasta 100 con paso 70 Hacer
                    Z = d/(P+B)
                    Escribir "resultado", Z;
               FinPara
            4:
               Definir A,B Como Entero
               Definir C Como Real
               Para A = 10 hasta 20 con paso 4 Hacer
               Para B = 1 hasta 10 con paso en 2 Hacer
                    C = RC((A^2)+(B^2))
                    Escribir " Resultado ", C;
                FinPara
                De Otro Modo:
                Escribir " Esta fuera de rango "
            FinPara
    FinSegun
FinProceso