Как рисовать эллипс в qbasic?

@elda 

В QBasic вы можете использовать функцию PSET для рисования точек на экране. Чтобы рисовать эллипс, вы можете использовать формулу эллипса:

(x - h)^2 / a^2 + (y - k)^2 / b^2 = 1

где (h, k) - центр эллипса, a - большая полуось, b - малая полуось.

Чтобы рисовать эллипс, вы можете циклически перебрать все значения x и y, вычислить соответствующие значения для них с помощью формулы эллипса и вызвать PSET для рисования точек на экране.

Ниже приведен пример кода, который рисует эллипс с центром в точке (320, 240) и большой полуосью равной 200 и малой полуосью равной 100:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14

SCREEN 13

h = 320
k = 240
a = 200
b = 100

FOR x = h - a TO h + a
  FOR y = k - b TO k + b
    IF (x - h) ^ 2 / a ^ 2 + (y - k) ^ 2 / b ^ 2 <= 1 THEN
      PSET (x, y)
    END IF
  NEXT y
NEXT x

Заметьте, что этот код будет работать медленно, так как он перебирает вс

@elda 

Для рисования эллипса в QBasic можно использовать функцию PSET (от "pixel set") в сочетании с функцией CIRCLE. Пример кода:

1
2
3

SCREEN 12
CIRCLE (320, 240), 100, 15
PSET (320, 240)

Этот код создаст эллипс с центром в (320, 240) и радиусом 100, с белым цветом 15 на черном фоне 12. Важно отметить, что QBasic устаревший язык и не используется в современной разработке.