VFP escribe un programa para calcular el valor de una función por partes

*?Escribe un programa para calcular el valor de la función por partes f(x)={?

*?x3-1?x>0

* ?1?x?=0

*?x2+1?x<0

*?Ejecute el programa y encuentre x=0.5; respectivamente, el valor de f(x)

SET?TALK?OFF

CLEAR

CLOSE?DATABASES

input?[Por favor ingrese x ＝]?to?x

DO?case

CASE?x>0

y=x*x*x-1

CASO?x=0

y=1

CASO?x<0

y=x*x+1

ENDCASE y

RETORNO