ejercisios de algoritmos

1)    Proceso DatosPQ

            Escribir "Introduzca el valor P,Q";

            Leer P,Q

            si P,Q <- (P*P*P) + (Q*Q*Q) - 2 * (P*P) > 680 Entonces       

                  Escribir "su expresión si cumple"

           Sino

                 Escribir "su expresión no cumple"

            FinSi

   FinProceso

2)    Proceso Tanx

    Escribir "Introdusca valor de x";

    Leer x

    si cos(x) <> 0  Entonces       

          Tanx <- sen(x) / cos(x)

                 Escribir Tanx;

    Sino

            Escribir "Error 10N10"

    FinSi

     FinProceso

3)    Proceso Cotx

   Escribir "Introdusca valor de x";

  Leer x

  si sen(x) <>= 0  Entonces       

             Cotx <- cos(x) / sen(x)

                 Escribir Cotx;

  Sino

          Escribir "Error 0"

 FinSi

   FinProceso

4)    Proceso Impuesto

          Escribir "Introduzca A";

    Leer A

   Si A > 20  Entonces

             I <- A + (A * 0.30)

  FinSi

  si A > 40 Entonces

          I <- A + (A * 0.40)

   FinSi

  Si  A > 500 Entonces

            I <- A + (A * 0.50)

  Finsi

 Escribir I

FinProceso