Вот пример программы,кому нужно,пользуйтесь.
Code
uses Graph;
const width=30;
var x,y,device,mode:Integer;
procedure WhiteKletka;
Begin
SetFillStyle(1,White);
Rectangle((x-1)*width,(y-1)*width,x*width,y*width);
FloodFill((x*width)-15,(y*width)-15,White);
end;
Begin
Device:=0;
InitGraph(device,mode,'c:\tp7\BGI');
for x:=1 to 8 do
for y:=1 to 8 do
if odd(x+y) then WhiteKletka
else
Begin
SetFillStyle(1,Red);
Rectangle((x-1)*width,(y-1)*width,x*width,y*width);
FloodFill((x*width)-15,(y*width)-15,White);
end;
ReadLn;
CloseGraph
END.
