witam to moja szachownica.
uses crt,graph;
var
x,y,z,w,ster,tryb:integer;
begin
initgraph (ster,tryb,'c:\bp\bgi');
line(50,0,50,400);
line(100,0,100,400);
line(150,0,150,400);
line(200,0,200,400);
line(250,0,250,400);
line(300,0,300,400);
line(350,0,350,400);
line(400,0,400,400);
line(0,50,400,50);
line(0,100,400,100);
line(0,150,400,150);
line(0,200,400,200);
line(0,250,400,250);
line(0,300,400,300);
line(0,350,400,350);
line(0,400,400,400);
outtextxy(410,25,'A');{litery}
outtextxy(410,75,'B');
outtextxy(410,125,'C');
outtextxy(410,175,'D');
outtextxy(410,225,'E');
outtextxy(410,275,'F');
outtextxy(410,325,'G');
outtextxy(410,375,'H');
outtextxy(25,410,'1');{liczby}
outtextxy(75,410,'2');
outtextxy(125,410,'3');
outtextxy(175,410,'4');
outtextxy(225,410,'5');
outtextxy(275,410,'6');
outtextxy(325,410,'7');
outtextxy(375,410,'8');
rectangle(0,0,400,400);
repeat until keypressed;
closegraph;
end.
mam pytanko jak pokolorowac kwadraty na zmiane. (pomalowac pala na czarne i biale);