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

[Shevali]

Здравствуйте.
Нужно нарисовать в Паскале шахматную доску. Я начал так:

uses graph;
var device, mode, x, x1: integer;
Begin
device:=0;
initgraph (device, mode, ' ');
for x:=10 to 600 do
for x1:=110 to 470 do
begin
repeat
setcolor(red);
setfillstyle (1, 15);
floodfill (5, 5, 15);
rectangle (x, 10, x1, 110);
x:=x+100; x1:=x1+100;
until x>600;
readln;
closegraph;
end;
end.

Но это рисует только один ряд квадратов, а как бы сделать так, чтобы рисовалось несколько рядов квадратов?

[Sazary]

Вот вам доска. Ну а заполните уже сами.

uses graph;
const width = 30;
var
d,m : integer;
i,j : integer;

begin
initgraph(d,m,'');
for i:=1 to 8 do
 for j:=1 to 8 do
  begin
  setcolor(15);
  rectangle((i-1)*width,(j-1)*width,i*width,j*width);
  end;

readln;
closegraph;
end.

[Shevali]

В таком виде работает. Правда такая постановка мне пока не совсем понятна (в учебнике похожего не было). Вот например, как понять:
rectangle((i-1)*width,(j-1)*width,i*width,j*width);
И всё равно спасибо.

[Sazary]

Вот например, как понять:
rectangle((i-1)*width,(j-1)*width,i*width,j*width);

i,j - координаты клетки, которую мы рисуем. width - ширина клетки (одна и та же по горизонтали и вертикали).
Вот и рисуем. Левый верхний угол - (i-1)*width,(j-1)*width.
Ну а у правого нижнего угла, соответственно, координаты на width больше.

[Shevali]

Спасибо Sazary