шахматная доску через процедуры (Procedure )

[Артем1904]

Помогите создать шахматную доску У Паскалі модуль Graph через процедуры (Procedure ).... буду очень благодарен!

[Novenkaja]

у меня есть шахматы,но только как рисунок в стиле graph(

[Артем1904]

ну брось пожалуста что уже есть))

[Novenkaja]

program sahs;
uses graph;
var
 grDriver: Integer;
 grMode: Integer;
 ErrCode: Integer;
 x0,y0,l,i,c,r,k:integer;
 t:string;
begin
 grDriver := Detect;
 InitGraph(grDriver, grMode,' ');
 ErrCode := GraphResult;
 if ErrCode = grOk then
 begin  { Do graphics }
   setfillstyle(1,15);
   floodfill(0,0,1);   {1}
   setcolor(0);
   x0:=120; y0:=40; l:=30;
   for i:=1 to 9 do begin
       line (x0+l*(i-1),y0,x0+l*(i-1),y0+8*l);
       line(x0,y0+l*(i-1),x0+8*l,y0+l*(i-1));
       end;
   for i:=1 to 8 do begin
       str(i,t);
       outtextxy(x0-20,y0+20+l*(i-1),t);
       outtextxy(x0+20+8*l,y0+20+l*(i-1),t);
       outtextxy(x0+20+l*(i-1),y0-20,chr(i+64));
       outtextxy(x0+20+l*(i-1),y0+20+8*l,chr(i+64));
       end;
       c:=l div 2;
       setfillstyle(1,2);
   for r:=1 to 8 do
       for k:=1 to 8 do
       if (r+k) mod 2 =0 then
           floodfill (x0+c+l*(k-1),y0+c+l*(r-1),0);   {1}
       if ((r+k) mod 2 =0) and (r>3) and (r<6) then
           circle (x0+c+l*(k-1),y0+c+l*(r-1),20);
      Readln;
   CloseGraph;
 end
 else
   Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.

end.

держи,может как то поможет))))

[Артем1904]

Большое спасибо)))

[Novenkaja]

пожалуйста,рада что хоть чем-то,как-то смогла кому-то помочь)
там всё в порядке? у меня просто это работа первого семестра,но если память не изменяет,то всё компилируется и выдаёт нормально ран

[Артем1904]

Я еще не проверял)) ну всеравно Спасибо .......

[Novenkaja]

пожалуйста