Графика делфи

[Asira]

Создать следующее изображение , расположив его
в центре вкладки:
шахматную доску размером n*n клеток. Доска должна иметь заданную площадь S;
Может быть кто то делала подобное задание?

[DoDge_VipeR]

type
  TForm1 = class(TForm)
    edt1: TEdit;  // ввод площади
    btn1: TButton; // рисовать
    edt2: TEdit;   // ввод n
    procedure FormCreate(Sender: TObject); // ввод n
    procedure btn1Click(Sender: TObject);
    procedure Kvadrat(x,y:Integer;col:Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  s:LongInt;  //площадь
  a:integer;  // сторона доски
  dx:Integer; // сторона квадратика
  n:Integer;  // n - она и в Африке n
  c:Boolean;  // цвет  true -черный false- белый
   x0,y0:Integer;
implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var i,j:Integer;
begin
     (*ввод исходных*)
   n:=StrToInt(edt2.text); // n
   s:=StrToInt(edt1.text); // s
          (*расчет *)
   a:=Trunc(Sqrt(s));    // a
   dx:= a div n;         // dx
   (*очистим рисунок*)
   form1.Canvas.Brush.Color:=clWhite;
   form1.Canvas.Pen.Width:=1;
   form1.Canvas.Rectangle(0,0,form1.Width,form1.Height);
     (*найдем  середину формы*)
   x0:=form1.ClientWidth div 2;
   y0:=form1.ClientHeight div 2;
      (*найдем  левый верхний угол доски*)
   x0:=x0-a div 2; // найдем  левый верхний угол доски
   y0:=y0-a div 2;
   if n mod 2=0 then c:=false
  else
  c:=true;

  for I := 0 to n-1  do
   begin
   if n mod 2=0 then
   c:=not c; // если n четное меняем цвет
   for j := 0 to n - 1 do
     Kvadrat(x0+i*dx,y0+j*dx,c);//рисуем квадратик
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edt2.Text:='5';
edt1.Text:=IntToStr(form1.ClientHeight*form1.ClientWidth);
end;

procedure TForm1.Kvadrat(x, y: Integer; col: boolean);
begin
 with  form1.Canvas do
 begin
 if col then Brush.Color:=clBlack // цвет квадратика
 else Brush.Color:=clWhite;
Brush.Style:=bsSolid;    // сплошная заливка
  Rectangle(x,y,x+dx,y+dx);// квадратик рисуем
 end;
  c:=not c;  // меняем цвет на противоположный
end;

end.

[Stilet]

Может быть кто то делала подобное задание?

Растяни на вкладке обычный DrawGridи задай размеры ячеек и их кол-во - получишь доску.

[DeKot]

Задано площадь шахматного поля ( S ) и количество клеток ( n ).
Вычисляем размер стороны поля L = sqrt( S ) и размер стороны одной клетки m = L / n.
Далее по n и m строим поле

var
  Form1: TForm1;
  x,y: integer; // координаты
  S: integer; // заданая площадь поля
  n: byte; // заданное кол-во клеток
  l: extended; // размер стороны поля
  m: integer; // размер одной клетки поля
  cnt: byte; // вспомогательный счетчик


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   S:= 160000; n:= 8; // задаем исходные размеры
   l:= sqrt(S);  //  размер стороны поля
   m:= Round(l / n);    // размер одной клетки поля
   x:= 100; y:= 100;  // начальные координаты левого верх. угла поля
end;

procedure TForm1.FormPaint(Sender: TObject);
var i,j: byte;
begin
  for i:= 0 to (n -1) do
  begin
    for j:= 0 to (n -1) do
    begin
      Inc(cnt);
      if (cnt mod 2) = 0 then Form1.Canvas.Brush.Color:= clBlack
      else Form1.Canvas.Brush.Color:= clWhite;
      Form1.Canvas.Rectangle(x + i*m, y + j*m, x + i*m + m, y + j*m + m);
    end;
     Inc(cnt);
  end;
end;

end.

Задавать S и n можно через Edit, как в посте #2.