areas de ciculo cuadrado y trapecio

circulo

var r,q : numerico

inicio

    cls()

             imprimir("\n calcula el area de un circulo 3,14*r^2")

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

    leer(r)

    q= 3,14*r^2

    imprimir("\n el resultado del area del circulo 3,14*r^2 es" ,q)

fin

cuadrado

var r,l : numerico

inicio

    cls()

             imprimir("\n calcula el area de un cuadrado l*l")

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

    leer(l)

    r= l*l

    imprimir("\n el  del area del cuadrado l*l es" ,  l )

fin

trapecio

var r,b,x,h: numerico

inicio

    cls()

             imprimir("\n calcula el area de un trapecio (b+x)*h/2")

    imprimir("\n digite el valor de b es base mayor") 

    leer(b)

    imprimir("\n digite el valor de x es base menor") 

    leer(x)

    imprimir("\n digite el valor de h es altura") 

    leer(h)

    r=(b+x)*h/2

    imprimir("\n el resultado del area del trapecio ( b+x)*h/2 es" ,r)

fin