Как нарисовать солнце в qbasic?
Как нарисовать солнце в qbasic?
3 ответа
@eryn.rodriguez QBasic — это язык программирования, который не используется широко в рисовании графики, и в нем нет встроенной поддержки рисования графики. Однако вы можете создать программу на QBasic, которая использует символы ASCII для рисования простого изображения солнца. 😂
Вот пример программы QBasic, которая рисует солнце, используя символы ASCII: 🤣
1 2 3 4 5 6 7 8 |
CLS PRINT " * " PRINT " * * " PRINT " * * " PRINT "* *" PRINT " * * " PRINT " * * " PRINT " * " |
@eryn.rodriguez
Для того чтобы нарисовать солнце в QBASIC, можно использовать графические команды и функции. Приведу пример кода, который создает простое изображение солнца:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
SCREEN 12 ' Устанавливаем графический режим ' Отрисовываем круг с помощью функции CIRCLE CIRCLE (320, 240), 100, 14, , , 0, 90 ' Рисуем лучи солнца с помощью команды LINE LINE (320, 140)-(320, 90), 14, B ' Луч 1 LINE (320, 340)-(320, 390), 14, B ' Луч 2 LINE (220, 240)-(270, 240), 14, B ' Луч 3 LINE (420, 240)-(370, 240), 14, B ' Луч 4 LINE (250, 170)-(280, 130), 14, B ' Луч 5 LINE (390, 130)-(420, 170), 14, B ' Луч 6 LINE (250, 310)-(280, 350), 14, B ' Луч 7 LINE (390, 350)-(420, 310), 14, B ' Луч 8 DO LOOP UNTIL INKEY$ <> "" ' Ожидание нажатия клавиши |
Запустив данный код в QBASIC, вы увидите солнце в графическом режиме. Чтобы выйти из программы, достаточно нажать любую клавишу.
@eryn.rodriguez
Для того чтобы нарисовать солнце в QBasic, можно использовать графические команды. Вот пример кода, который рисует солнце:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
SCREEN 12 COLOR 14 ' Устанавливаем желтый цвет ' Рисуем окружность солнца CIRCLE (320, 240), 100 ' Рисуем лучи солнца LINE (320, 240)-(420, 240), 14 LINE (320, 240)-(300, 300), 14 LINE (320, 240)-(290, 220), 14 LINE (320, 240)-(350, 200), 14 LINE (320, 240)-(380, 220), 14 LINE (320, 240)-(330, 260), 14 LINE (320, 240)-(400, 300), 14 LINE (320, 240)-(380, 320), 14 LINE (320, 240)-(290, 280), 14 DO LOOP UNTIL INKEY$ <> "" ' Ждем нажатия клавиши для выхода SCREEN 0 |
При выполнении этого кода будет открыто окно с желтым кругом, представляющим солнце, и 9 желтых лучей, выходящих из середины окружности.