Шар через заданный радиус - QBasic

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

Здравствуйте. Помогите нарисовать шар, радиус которого задаешь сам. Сам сделал вот это:

                    Листинг программы
                
 
                        
                          
                    
DECLARE SUB graph (r)
INPUT "Radius=", r
CALL graph(r)
END
 
SUB graph (r)
SCREEN 12
FOR i = .1 TO 1.1 STEP .15
CIRCLE (300, 250), r, 12, , , i
CIRCLE (300, 250), r, 12, , , 1 / i
NEXT i
END SUB

Препод говорит, что слишком просто. Можно ли нарисовать шар, радиус которого задаешь сам, кодом немного посложнее?

Решение задачи: «Шар через заданный радиус»

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

SCREEN 12
FOR x=-r TO r
   FOR k=.1 TO 1 STEP .1
      y=k*SQR(r^2-x^2)
      y1=250+y
      y2=250-y
      PSET(300+x, y1), 12
      PSET(300+x, y2), 12
   NEXT k
NEXT x
FOR y=-r TO r
   FOR k=.1 TO 1 STEP .1
      x=k*SQR(r^2-y^2)
      x1=300+x
      x2=300-x
      PSET(x1, y+250), 12
      PSET(x2, y+250), 12
   NEXT k
NEXT y

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

В данном коде используется язык программирования QBasic. Он перебирает все значения от -r до r для x и y и вычисляет значения y1 и y2, которые используются для построения графика функции. Затем он использует функцию PSET для вывода точек на график с помощью номера точки 12. Этот код выводит две кривые на график, одна из которых представляет собой график функции y=sqrt(r^2-x^2), а другая — y=sqrt(r^2-x^2).