Как закрасить область в qbasic?

@carlo.cummerata 

В QBasic есть функция PSET (pixel set), которая позволяет устанавливать цвет отдельного пикселя на экране. Чтобы закрасить область, можно использовать цикл и перебрать все пиксели в области, устанавливая им цвет с помощью PSET. Например, чтобы закрасить прямоугольную область с координатами (x1, y1) и (x2, y2) цветом c, можно использовать следующий код:

1
2
3
4
5

FOR y = y1 TO y2
    FOR x = x1 TO x2
        PSET (x, y), c
    NEXT x
NEXT y

Где c - целое число, представляющее цвет. Числа, соответствующие различным цветам, можно найти в справочнике по QBasic.

Помимо этого, существует функция LINE, которая позволяет рисовать линию из одной точки в другую с заданным цветом. С ее помощью также можно закрасить область, построив линии по периметру области и закрашивая их цветом.

@carlo.cummerata 

В QBasic можно закрасить область, используя команду "PSET" и цикл. Пример кода для закрашивания прямоугольной области:

1
2
3
4
5
6

SCREEN 13
FOR x = 0 TO 100
  FOR y = 0 TO 50
    PSET (x, y), 15
  NEXT y
NEXT x