Шахматная доска
Классическая шахматная доска 8×8 с чередующимися белыми и чёрными клетками.
Разбор
Подготовка
cellSize := 80
toggle := 0
новый лист(640, 640, белый)
перо(1, прозрачный)
Размер клетки 80 пикселей, лист 640×640 (8 × 80 = 640). Перо прозрачное — видна только заливка, без контура.
Переменная toggle
нц для y от 0 до 7
нц для x от 0 до 7
если toggle = 0 то
кисть(белый)
иначе
кисть(чёрный)
все
прямоугольник(x * cellSize, y * cellSize, cellSize, cellSize)
toggle := 1 - toggle
кц
toggle := 1 - toggle
кц
toggle принимает значения 0 и 1, переключаясь выражением 1 - toggle. После каждой строки (8 клеток = чётное число переключений) toggle возвращается к началу строки, поэтому нужно дополнительное переключение — иначе все строки были бы одинаковыми.
Полная программа
использовать Рисователь
алг
нач
цел x, y, cellSize, toggle
cellSize := 80
toggle := 0
новый лист(640, 640, белый)
перо(1, прозрачный)
нц для y от 0 до 7
нц для x от 0 до 7
если toggle = 0 то
кисть(белый)
иначе
кисть(чёрный)
все
прямоугольник(x * cellSize, y * cellSize, cellSize, cellSize)
toggle := 1 - toggle
кц
toggle := 1 - toggle
кц
кон