Question

Друзья помогите! Нужно написать программу по созданию смайлика через программу Q Basik. Sсreen 8

Answer 1

Тяжелый случа..........

Answer 2

Конечно, я могу помочь вам написать программу по созданию смайлика с использованием языка программирования QBasic.

Вот пример программы, которая создает смайлика на экране размером 8х8 пикселей:

SCREEN 12 ' Устанавливаем графический режим экрана

' Рисуем лицо смайлика
FOR i = 1 TO 8
    CIRCLE (160, 100), i, 14
NEXT i

' Рисуем глаза
CIRCLE (150, 90), 1, 0 ' Левый глаз
CIRCLE (170, 90), 1, 0 ' Правый глаз

' Рисуем рот
ARC (160, 100), 2, 4, 180, 360, 0

DO
    LOOP UNTIL INKEY$ <> "" ' Ждем нажатия клавиши
SCREEN 0 ' Возвращаемся в текстовый режим экрана

В данной программе используется команда `SCREEN 12`, чтобы установить графический режим экрана. Затем с помощью цикла `FOR` рисуются круги, представляющие лицо смайлика. Цвет кругов задается числом `14`.

Затем с помощью команды `CIRCLE` рисуются глаза смайлика. Координаты центров глаз и их радиусы задаются в аргументах команды `CIRCLE`. Цвет глаз задается числом `0`.

Далее с помощью команды `ARC` рисуется рот смайлика. Координаты центра рта, радиусы, начальный и конечный углы дуги задаются в аргументах команды `ARC`. Цвет рта также задается числом `0`.

После выполнения программы смайлик будет отображаться на экране. Чтобы выйти из программы, нужно нажать любую клавишу. Команда `SCREEN 0` возвращает экран в текстовый режим.

Надеюсь,