Вычислить приближенное значение функции - QBasic

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

1) Установить является ли четырехугольник с длинами сторон a,b,c,d ромбом. 2)Вычислить приближенное значение функции. Писать это символами клавиатуры мне лень(всякие непонятные троеточия, воскл.знаки=)), поэтому сделал скан. 3) Написать программу построения графика функции y=1/2*sin(0.5x)+tg(0.75x) и вывести результаты на экран. Внизу под графиком должно быть название заданной функции.

Решение задачи: «Вычислить приближенное значение функции»

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

SCREEN 12
LOCATE 27, 1: PRINT "y = 1 / 2 * SIN(.5 * x) + TAN(.75 * x)"
 FOR u = 1 TO 32: LINE (u * 20, 235)-(u * 20, 245), 8
 LINE (315, u * 20)-(325, u * 20), 8: NEXT
 LINE (0, 240)-(639, 240), 8
 LINE (320, 0)-(320, 480), 8
 x = -16
 WHILE INKEY$ = ""
  x = x + .002: IF x > 16 THEN x = x - 32
  y = 1 / 2 * SIN(.5 * x) + TAN(.75 * x)
  IF ABS(y) < 7 THEN PSET (x * 20 + 320, 240 - y * 20), 10
 WEND

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

В этом коде:

На экран выводится формула y = 1/2sin(0.5x) + tan(0.75*x).
Запускается цикл, который рисует 32 горизонтальные линии, 8 на каждом из 4 полей (с 235 по 245 и с 325 по 335), а также две вертикальные линии (с 240 по 240 и с 0 по 480).
Устанавливается значение переменной x равное -16.
Пока клавиша не нажата, значение переменной x увеличивается на 0.002. Если значение переменной x становится больше 16, то оно уменьшается на 32.
Вычисляется значение функции y = 1/2sin(0.5x) + tan(0.75*x).
Если абсолютное значение y меньше 7, то на экране рисуется точка.