График параметрически-заданной функции - QBasic

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

По рисунку и не подумаешь, что это график. Но это так.

REM
REM  График параметрически
REM  заданной функции 
REM
 
DECLARE FUNCTION LC! (x!)
DECLARE FUNCTION LS! (x!)
CLS
 
SCREEN 11
WINDOW (-4, 3)-(4, -3)
LINE (0, -3)-(0, 3)
LINE (-3, 0)-(3, 0)
 
FOR t = -4 TO 4 STEP .003
   x = 2 * LS(6 * t)
   y = 2 * LC(7 * t)
   PSET (x, y)
NEXT t
END
 
FUNCTION LC (x)
   LC = LS(x + 1)
END FUNCTION
 
FUNCTION LS (x)
   z = x - 4 * INT(x / 4) - 2
   IF ABS(z) < 1 THEN
      LS = z
   ELSEIF z > 1 THEN
      LS = -z + 2
   ELSE
      LS = -z - 2
   END IF
END FUNCTION

Решение задачи: «График параметрически-заданной функции»

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

REM График функции, заданной параметрически
 
CLS
SCREEN 11
WINDOW (-4, 3)-(4, -3)
 
FOR t = 0 TO 7 STEP .001
   x = 2.5 * COS(7 * t) * COS(t)
   y = 2.5 * SIN(8 * t) * SIN(t)
   PSET (x, y)
NEXT t
END

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

В этом коде используется язык программирования QBasic:

Объявляются переменные t, x, y.
Выполняется цикл от 0 до 7 с шагом 0.001.
Внутри цикла вычисляются значения x и y по формулам параметрической функции.
Полученные значения x и y используются в команде PSET для построения графика на экране.
Код завершается командой END.