Шахматная доска

Классическая шахматная доска 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, (x + 1) * cellSize, (y + 1) * 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, (x + 1) * cellSize, (y + 1) * cellSize)
            toggle := 1 - toggle
        кц
        toggle := 1 - toggle
    кц
кон

▶ Запустить пример