Program vykreslí šachovnicu

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategória: KMP (Klub mladých programátorov)
sachovnica.pngAutor: ghostix
Program: Sachovnica.pas
Súbor exe: Sachovnica.exe
Potrebné: Egavga.bgi

Program vykreslí šachovnicu.
{ 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.