Нарисовать лучи солнца- QBasic(Бейсик)

1
2
3
4
5
6
CLS
SCREEN 9
FOR i = 1 TO 6
    x = 167 * i
    LINE (0, 0)-(x, 350)
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment