Поточечно нарисовать круг - QBasic

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

И ещё раз здравствуйте. Задача такова: известен радиус круга и его координаты его центра. Необходимо поточечно отрисовать круг (т.е. без использования оператора CIRCLE). Код желательно с комментариями. Заранее спасибо.

Решение задачи: «Поточечно нарисовать круг»

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

CONST Pi = 3.141592653589793#
SCREEN 12
r = 100: x = 320: y = 240
FOR u = 0 TO 2 * Pi STEP .005
    xn = x + COS(u) * r
    yn = y - SIN(u) * r
    PSET (xn, yn), 10
NEXT

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

Объявляется константа Pi со значением 3.141592653589793.
Устанавливается номер экрана на 12.
Задаются начальные координаты x и y, а также радиус r.
Запускается цикл от 0 до 2*Pi с шагом 0.005.
В каждой итерации цикла вычисляются новые координаты xn и yn по формулам xn = x + COS(u) r и yn = y - SIN(u) r.
С помощью функции PSET отображается точка с координатами xn, yn и размером 10.
Цикл завершается.