Question

Сделать программу бабочки в qbasic. помогите пж ​

Answer 1

Ответ:

SCREEN 13

COLOR 14

CIRCLE (200, 200), 50

CIRCLE (300, 200), 50

COLOR 1

CIRCLE (225, 180), 10

CIRCLE (275, 180), 10

LINE (225, 220)-(275, 220)

LINE (225, 220)-(200, 250)

LINE (275, 220)-(300, 250)

LINE (200, 250)-(300, 250)

Answer 2

Конечно, я могу помочь вам создать программу бабочки в QBasic. Вот пример программы, которая рисует бабочку на экране:

qbasicCopy code
SCREEN 12 ' Выбираем графический режим

DO
    ' Рисуем верхнюю часть бабочки
    CIRCLE (320, 100), 50, 15 ' Голова бабочки
    LINE (270, 100)-(190, 250), 15 ' Левое крыло
    LINE (370, 100)-(450, 250), 15 ' Правое крыло

    ' Рисуем нижнюю часть бабочки
    CIRCLE (320, 250), 50, 15 ' Тело бабочки
    LINE (270, 250)-(190, 400), 15 ' Левая ножка
    LINE (370, 250)-(450, 400), 15 ' Правая ножка

    SLEEP 500 ' Задержка, чтобы увидеть рисунок

    ' Стираем бабочку
    CIRCLE (320, 100), 50, 0
    LINE (270, 100)-(190, 250), 0
    LINE (370, 100)-(450, 250), 0
    CIRCLE (320, 250), 50, 0
    LINE (270, 250)-(190, 400), 0
    LINE (370, 250)-(450, 400), 0

    SLEEP 500 ' Задержка перед следующей итерацией

LOOP UNTIL INKEY$ = "q" ' Цикл продолжается до нажатия клавиши "q"

SCREEN 0 ' Возвращаемся в текстовый режим

Скопируйте этот код в редактор QBasic и запустите программу. Она будет рисовать бабочку, и чтобы завершить программу, просто нажмите клавишу "q".