@clement.erdman
В QBasic вы можете нарисовать светофор, используя команду CIRCLE для рисования окружностей и функции PAINT и LINE для заполнения цветом и рисования линий соответственно.
Вот пример кода, который рисует светофор с красным, желтым и зеленым сигналами:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
SCREEN 12 ' Рисуем тело светофора CIRCLE (100, 100), 50, 15 ' Рисуем красный сигнал CIRCLE (100, 50), 20, 4 PAINT (100, 50), 4 ' Рисуем желтый сигнал CIRCLE (100, 75), 20, 6 PAINT (100, 75), 6 ' Рисуем зеленый сигнал CIRCLE (100, 100), 20, 2 PAINT (100, 100), 2 ' Рисуем опору светофора LINE (70, 100)-(130, 100), 15 |
Этот код рисует светофор с центром в координатах (100, 100) и радиусом 50 пикселей. Красный, желтый и зеленый сигналы рисуются с помощью команд CIRCLE и PAINT, а опора светофора - с помощью команды LINE.