Dze je subor www.TrSek.com/cover/ghostix/sachovnica.pas

{ SACHOVNICA.PAS                              Copyright (c) ghostix }
{ Program vykresli sachovnicu.                                      }
{                                                                   }
{ Author: Ghostix                                                   }
{ Date  : 11.12.2007                           http://www.trsek.com }

program sachy;
uses graph;
var gd,gm,i,j:integer;
    r:string;

procedure grafika;
begin
  gd:=detect;
  initgraph(gd,gm,'');
end;

procedure sach;
begin
  rectangle(100,100,460,460);
  rectangle(90,90,470,470);

  for i:=1 to 8 do
  begin
    line(100,100+45*i,460,100+45*i);
    for j:=1 to 8 do
    begin
      line(100+45*j,100,100+45*j,460);
    end;
  end;

  for i:=1 to 4 do
  begin
    for j:=1 to 4 do
    begin
      setfillstyle(1,blue);
      floodfill(i*101,j*101,white);
    end;
  end;

  for i:=1 to 4 do
  begin
    for j:=1 to 4 do
    begin
      setfillstyle(1,blue);
      floodfill(i*101+46,j*101+46,white);
    end;
  end;

  for i:=1 to 8 do
  begin
    moveto(i*45+80,92);
    str(i,r);
    outtext(r);
  end;
end;

begin
grafika;
sach;
readln;
closegraph;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com