Как нарисовать шахматную доску?

1.

Как нарисовать шахматную доску?

2.

Rectangle(100,50,150,100);
0
50
50
100
150
200
A (100, 50)
100
B (200, 150)
150
200
Ось Y
250
Ось Х

3.

Rectangle(100,50,150,100);

4.

Rectangle(100,50,150,100);
Rectangle(200,50,250,100);
Rectangle(300,50,350,100);
Rectangle(400,50,450,100);
0
50
100
A (100, 50)
150
50
100
B (200, 150)
150
200
Ось Y
200
250
Ось Х

5.

Rectangle(100,50,150,100);
Rectangle(200,50,250,100);
Rectangle(300,50,350,100);
Rectangle(400,50,450,100);

6.

Код очень громоздкий!..
Циклический алгоритм
описание действий, которые должны
повторяться указанное число раз или пока не
выполнено заданное условие.
–

7.

ЦИКЛ
С известным
числом
повторений
FOR - TO
С неизвестным числом
повторений
WHILE
REPEAT

8.

пока … делай …
while < условие> do
<оператор 1>;
для n от А до В делай …
for <n> := <A> to <B> do
<оператор1>;

9.

Пример 2
Пример 1