Вывести график - QBasic

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

Нужна программа, в которой пользователь вводит координаты центра осей координат и на ней рисуется любой график. Таких графиков на экране должно получится 4. В этой программе должна использоваться подпрограмма (н-р: Sub)

Решение задачи: «Вывести график»

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

DECLARE SUB SSS ()
CLS
 
SCREEN 11
WINDOW (-32, 24)-(32, -24)
LINE (0, 24)-(0, -24)
LINE (32, 0)-(-32, 0)
 
WINDOW (-16, 12)-(48, -36)
CALL SSS
WINDOW (-16, 36)-(48, -12)
CALL SSS
WINDOW (-48, 12)-(12, -36)
CALL SSS
WINDOW (-48, 36)-(12, -12)
CALL SSS
END
 
SUB SSS
   LINE (0, 9)-(0, -9)
   LINE (12, 0)-(-12, 0)
  
   FOR x = -12 TO 12 STEP .01
      y = SIN(x)
      PSET (x, y)
   NEXT x
END SUB

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

В этом коде на языке QBasic используется функция SIN для построения графика функции sin. Список действий в коде:

DECLARE SUB SSS () — объявление подпрограммы SSS
CLS — очистка экрана
SCREEN 11 — выбор экрана с координатами (0-63, -8 до 8)
WINDOW (-32, 24)-(32, -24) — установка области окна (на весь экран)
LINE (0, 24)-(0, -24) — построение горизонтальной оси
LINE (32, 0)-(-32, 0) — построение вертикальной оси
WINDOW (-16, 12)-(48, -36) — установка области окна для графиков
CALL SSS — вызов подпрограммы SSS
WINDOW (-16, 36)-(48, -12) — установка области окна для графиков
CALL SSS — вызов подпрограммы SSS
WINDOW (-48, 12)-(12, -36) — установка области окна для графиков
CALL SSS — вызов подпрограммы SSS
WINDOW (-48, 36)-(12, -12) — установка области окна для графиков
CALL SSS — вызов подпрограммы SSS
END — завершение основной программы
SUB SSS — определение подпрограммы SSS
LINE (0, 9)-(0, -9) — построение оси y
LINE (12, 0)-(-12, 0) — построение оси x
FOR x = -12 TO 12 STEP .01 — цикл по построению точек графика
y = SIN(x) — вычисление значения функции sin для x
PSET (x, y) — установка точки на графике
NEXT x — переход к следующей итерации цикла Значения переменных: — x — от -12 до 12 с шагом .01 — y — вычисляется как sin(x) — SIN — функция, используемая для вычисления значения y — PSET — команда, используемая для установки точки на графике