Предмет: Информатика,
автор: PetiArmorMeat11
Как нарисовать в qbasic елку?
Ответы
Автор ответа:
2
Обычная не новогодняя елочка без звезды =) Нужна звезда?
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
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
Помощь800:
djn dhjlt
Интересные вопросы
Предмет: Английский язык,
автор: scarlet12467
Предмет: Английский язык,
автор: kuneva09
Предмет: Русский язык,
автор: fantom18117
Предмет: Математика,
автор: vik071
Предмет: Информатика,
автор: Евгениийййй