ecuacioes.

1         ecuacion

1var r,x: numerico

2inicio

3cls()

  4   imprimir ("\n calcula el valor de la ecua, x^2 ")

  5   imprimir ("\n digite el valor para x ")

  6   leer (x)

7               r=x^2

8               imprimir (" el valor de la ecua. x^2 es" ,r)  

9  fin

                                                                                                             

2         formula

3        

var r,x,y: numerico

inicio

cls()

    imprimir ("\n calcule el valor de la ecua. 2*x+y ")

    imprimir ("\n digite el valor de x ")

    leer(x)

    imprimir ("\n digite el valor de y")

    leer(y)

    r= 2*x+y

    imprimir ("\n  el valor de la ecua. 2*x+y es "  ,r)

fin

3         formula

var r,x,y,b: numerico

inicio

cls()

    imprimir ("\n calcule el valor de la ecua. x/y+b ")

    imprimir ("\n digite el valor de x ")

    leer(x)

    imprimir ("\n digite el valor de y")

    leer(y)

    imprimir ("\n digite el valor de b")

     leer (b)

     r= x/y+b

    imprimir ("\n  el valor de la ecua. x/y+b es "  ,r)

fin

4         ecuacion

5        

var r,x,y: numerico

inicio

cls()

    imprimir ("\n calcule el valor de la ecua. 4*x/(2*y+5)+6*x")

    imprimir ("\n digite el valor de x ")

    leer(x)

    imprimir ("\n digite el valor de y")

    leer(y)

    imprimir ("\n digite el valor de x")

     leer (x)

     r=4*x/(2*y+5)+6*x

    imprimir ("\n  el valor de la ecua. 4*x/(2*y+5)+6*x es "  ,r)

fin

5

 ecuacin

6         var r,x,y: numerico

7         inicio

8         cls()

9             imprimir ("\n calcule el valor de la ecua. 4*x/(2*y+5)+6*x")

10         imprimir ("\n digite el valor de x ")

11         leer(x)

12         imprimir ("\n digite el valor de y")

13         leer(y)

14         imprimir ("\n digite el valor de x")

15          leer (x)

16          r=4*x/(2*y+5)+6*x

17         imprimir ("\n  el valor de la ecua. 4*x/(2*y+5)+6*x es "  ,r)

18     fin