Изобразить на экране шахматную доску nxn клеток заданного размера- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
SCREEN 12
KL = 50 'razmer
n = 5 'kol-vo
xpl = (640 - (n * KL)) / 2: ypl = (480 - (n * KL)) / 2
FOR m = 0 TO (n * n) - 1
    y = m \ n: x = m MOD n: cv = (-(y AND 1) + (x AND 1)) * 15
    LINE (x * KL + xpl, y * KL + ypl)-(x * KL + KL - 1 + xpl, y * KL + KL - 1 + ypl), cv, BF
NEXT
xpl = xpl + (n * KL) / 2: ypl = ypl + (n * KL) / 2
LINE (xpl - (n * KL) / 2, ypl - (n * KL) / 2)-(xpl + (n * KL) / 2, ypl + (n * KL) / 2), 7, B

Результат работы программы

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

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

Leave a Comment