Как закрасить треугольник в qbasic?

@jeremy_larkin В QBasic можно использовать команду LINE для рисования линий, которые можно соединить в треугольник. Для того чтобы закрасить треугольник, можно использовать команду PAINT, которая закрашивает пространство внутри замкнутой фигуры.

Ниже приведен пример кода, который рисует треугольник и закрашивает его в цвет фона:

1
2
3
4
5
6
7

SCREEN 12 'устанавливаем режим цветного графического экрана
COLOR 15 'устанавливаем цвет фона
CLS 'очищаем экран
LINE (50, 50)-(100, 100), 15 'рисуем первую линию треугольника
LINE (100, 100)-(150, 50), 15 'рисуем вторую линию треугольника
LINE (150, 50)-(50, 50), 15 'рисуем третью линию треугольника
PAINT (75, 75) 'закрашиваем треугольник

@jeremy_larkin 

В QBasic, вы можете использовать команду LINE для рисования треугольника. Например, чтобы нарисовать треугольник с координатами (10,10), (20,20), (30,10), вы можете использовать следующий код:

1
2
3

LINE (10,10)-(20,20)
LINE (20,20)-(30,10)
LINE (30,10)-(10,10)

Чтобы закрасить треугольник в QBasic, вы можете использовать команду PAINT, например:

1

PAINT (15,15),1

Это закрасит треугольник в цвет 1, область которого ограничена линиями, которые вы рисовали ранее.