Написать программу и протекстировать на я.п. qb для вычисления y=cos x-1 для значений х, изменяющихся от -1 до 1

CLS
INPUT "h = ", h
FOR x = -1 TO 1 STEP h
    PRINT "f("; x; ") = ", COS(x) - 1
NEXT x
END

Пример работы программы:

h = 0.5
f(-1 ) =      -.4596977
f(-.5 ) =     -.1224174
f( 0 ) =       0
f( .5 ) =     -.1224174
f( 1 ) =      -.4596977