Заштриховать квадрат, расположенный в центре экрана, размером 200х200, по вертикали, по горизонтали и по диагонали, с помощью циклов, между штрихами 2 пикселя. Режим screen12- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
CLS
SCREEN 12
LINE (225, 115)-(425, 315), , BF
FOR i = 1 TO 400 STEP 3
    LINE (225 + i, 115)-(225 + i, 315), 0,
    LINE (225, 115 + i)-(425, 115 + i), 0,
    LINE (25 + i, 115)-(225 + i, 315), 0,
NEXT

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

Похожие записи/страницы:

Leave a Comment