Question

Как сделать елку в программе Qbasic с звездой и шариками??

Answer 1

Объяснение:

Обычная не новогодняя елочка без звезды =) Нужна звезда?

SCREEN 9

FOR b = 0 TO 4

y = y + 30

h = h + 10

LINE (200, 70 + y)-(200 - h, 100 + y), 2

LINE (200, 70 + y)-(200 + h, 100 + y), 2

LINE (200 - h, 100 + y)-(200 + h, 100 + y), 2

PAINT (200, 75 + y), 2

NEXT b

LINE (190, 101 + y)-(210, 130 + y), 4, BF

Answer 2

Вот пример программы на QBasic, которая рисует елку с звездой и шариками:

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

' Рисуем звезду
FOR i = 1 TO 200
    x = INT(RND * 640) ' Случайная координата x
    y = INT(RND * 200) + 20 ' Случайная координата y
    COLOR INT(RND * 15) + 1 ' Случайный цвет
    PSET (x, y) ' Рисуем пиксель
NEXT i

' Рисуем ствол елки
FOR i = 1 TO 60
    COLOR 2 ' Коричневый цвет
    LINE (320 - i, 220)-(320 + i, 250) ' Рисуем горизонтальную линию
NEXT i

' Рисуем шарики
FOR i = 1 TO 4
    x = INT(RND * 400) + 120 ' Случайная координата x
    y = INT(RND * 70) + 180 ' Случайная координата y
    r = INT(RND * 10) + 5 ' Случайный радиус шарика
    COLOR INT(RND * 15) + 1 ' Случайный цвет
    CIRCLE (x, y), r ' Рисуем шарик
NEXT i

' Рисуем елку
FOR i = 1 TO 16
    x1 = 320 - i * 20 ' Левая координата x
    x2 = 320 + i * 20 ' Правая координата x
    y = 200 + i * 15 ' Координата y
    COLOR 2 ' Зеленый цвет
    LINE (x1, y)-(x2, y) ' Рисуем горизонтальную линию
NEXT i

DO
LOOP UNTIL INKEY$ <> "" ' Ждем нажатия клавиши

Эта программа использует графический режим (режим экрана 12) и рисует звезду, ствол елки и шарики. Запустите эту программу в среде QBasic или QuickBASIC, и вы увидите результат. Может потребоваться некоторое время, чтобы разобраться с кодом и внести изменения по своему усмотрению, но вы можете настроить размеры, цвета и расположение элементов по своему желанию.