Вычислить значение выражения - QBasic (27433)

Формулировка задачи:

Здравствуйте!Помогите пожалуйста!

Решение задачи: «Вычислить значение выражения»

Листинг программы

CLS
 
CONST pi = 3.1415926#
CONST a = pi / 6
CONST b = pi / 3
CONST h = pi / 30
 
FOR x = a TO b STEP h
   y = TAN(x) - 2 * x - TAN(a) + b
   PRINT USING " x = #.###  y = ##.#####"; x; y
NEXT x
END

Объяснение кода листинга программы

CLS — очистка экрана
CONST pi = 3.1415926# — константа π с точностью до 7 знаков после запятой
CONST a = pi / 6 — константа a равная π/6
CONST b = pi / 3 — константа b равная π/3
CONST h = pi / 30 — константа h равная π/30
FOR x = a TO b STEP h — цикл, перебирающий значения от a до b с шагом h
y = TAN(x) — 2 * x - TAN(a) + b — вычисление значения функции y на каждой итерации цикла
PRINT USING x = #.### y = ##.#####; x; y — вывод на экран значений переменных x и y с форматированием
NEXT x — переход к следующей итерации цикла
END — завершение программы