Нарисовать 64х клетную шахматную доску

[viskas2011]

Привет всем. ( TURBO PASCAL)

вот столкнулся с проблемой, как нарисовать 64х клетную доску.

есть код, но он рисует не настолько большую доску.
как его сделать чтоб нормально рисовало?

вот наработки, но оно рисует 8х8

и ещо +нужно чтоб были заполнены цветом.

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.

[Hacker19_90]

вот столкнулся с проблемой, как нарисовать 64х клетную доску.

хм...

вот наработки, но оно рисует 8х8

А разве 8х8 это не 64?

и ещо +нужно чтоб были заполнены цветом.

Тогда заместо

rectangle((i-1)*width,(j-1)*width,i*width,j*width);

Используйте Bar, а чтоб закрасить SetFillStyle

[Наки]

Забей код в цикле:

if ((i+j) mod 2)=1
then SetFillStyle(1,0)
else SetFillStyle(1,15);
bar((i-1)*width,(j-1)*width,i*width,j*width);