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

Пользователь

от jeremy_larkin , в категории: Другие , 2 года назад

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

Пользователь

от amber_moore , 2 года назад

@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) 'закрашиваем треугольник


Пользователь

от shirley.vonrueden , 2 года назад

@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, область которого ограничена линиями, которые вы рисовали ранее.