Lab 7.4

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  Vcl.Imaging.pngimage;

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Timer1: TTimer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
    i, j, k, l, s, z: integer;

    A_x, A_y, A_nx, A_ny, A_kol: integer; // А - начальная позиция коня

    B_x, B_y, B_nx, B_ny, B_kol: integer;
    // В - возможная позиция коня (с помощью В мы будим делать всевозможные ходы из А и проверять их на количество возможных ходов из них,
    // позиция из которой будит минимальное количество ходов станет позицией А то есть мы перейдем на эту позицию и занесем её в массив посещенных
    // клеток)

    R_x, R_y: integer;

    str: String;

    mov1: Array [1 .. 8] of integer; // - |-D алгоритм
    mov2: Array [1 .. 8] of integer; // -

    mov3: Array [0 .. 1000, 0 .. 1000] of integer;
    // массив для уже пройденных ходов

    Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    // ---------------Отрисовка доски-----------------------------------
    for i := 1 to 4 do
    begin

        for j := 1 to 4 do
        begin

            PaintBox1.Canvas.Brush.Color := clBlack;
            PaintBox1.Canvas.Rectangle(0 + l, 0 + k, 80 + l, 80 + k);
            l := l + 80;
            PaintBox1.Canvas.Brush.Color := clWhite;
            PaintBox1.Canvas.Rectangle(0 + l, 0 + k, 80 + l, 80 + k);
            l := l + 80;
        end;
        l := 0;
        k := k + 80;
        for j := 1 to 4 do
        begin

            PaintBox1.Canvas.Brush.Color := clWhite;
            PaintBox1.Canvas.Rectangle(0 + l, 0 + k, 80 + l, 80 + k);
            l := l + 80;
            PaintBox1.Canvas.Brush.Color := clBlack;
            PaintBox1.Canvas.Rectangle(0 + l, 0 + k, 80 + l, 80 + k);
            l := l + 80;
        end;
        l := 0;
        k := k + 80;
    end;

    mov1[1] := 2;
    mov1[2] := 1;
    mov1[3] := 2;
    mov1[4] := -2;
    mov1[5] := -1;
    mov1[6] := -1;
    mov1[7] := 1;
    mov1[8] := -2;
    mov2[1] := -1;
    mov2[2] := -2;
    mov2[3] := 1;
    mov2[4] := 1;
    mov2[5] := -2;
    mov2[6] := 2;
    mov2[7] := 2;
    mov2[8] := -1;

    l := 0;
    k := 1;
    i := 0;
    j := 1; // переобозначение после отрисовки доски (чтобы не вводить новые переменные)

    A_kol := 8;
    B_kol := 8;
    // количество возможных ходов в начале обозначается максимальным числом ходов коня из клетки то есть 8

    A_x := 40;
    A_y := 40; // координаты начальной клетки

    mov3[A_x][A_y] := 1; // заносим начальное положение коня кок посещенное

    PaintBox1.Canvas.Brush.Color := clred;
    PaintBox1.Canvas.Ellipse(A_x - 4, A_y - 4, A_x + 4, A_y + 4);
    str := IntToStr(k);
    PaintBox1.Canvas.TextOut(A_x + 6, A_y + 6, str);
    PaintBox1.Canvas.Brush.Color := clWhite;

    Timer1.Enabled := True;
    Button1.Enabled := False;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    //Form1.Close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    k := k + 1;
    for i := 1 to 63 do
    // цикл определяющий общее количество необходимых ходов для обхода доски 8*8=64 всего 64 но -1(начальное положение) всего 63
    begin
        for s := 1 to 8 do // цикл проверяющий на возможный ход коня  из А
        begin
            if (A_x + mov1[s] * 80 >= 40) and (A_y + mov2[s] * 80 >= 40) and
              (A_x + mov1[s] * 80 <= 600) and (A_y + mov2[s] * 80 <= 600) and
              (mov3[A_x + mov1[s] * 80][A_y + mov2[s] * 80] = 0)
            // число не должно выходить за рамки доски и присутствовать в массиве посещенных ходов.

            then
            begin
                A_kol := 0;
                A_nx := A_x + mov1[s] * 80;
                A_ny := A_y + mov2[s] * 80;

                for z := 1 to 8 do
                // цикл подсчитывающий количество возможных ходов из предполагаемого хода
                begin
                    if (A_nx + mov1[z] * 80 >= 40) and
                      (A_ny + mov2[z] * 80 >= 40) and
                      (A_nx + mov1[z] * 80 <= 600) and
                      (A_ny + mov2[z] * 80 <= 600) and
                      (mov3[A_nx + mov1[z] * 80][A_ny + mov2[z] * 80] = 0) then

                        A_kol := A_kol + 1;

                end;

            end;

            if B_kol > A_kol then
            begin
                B_x := A_nx;
                B_y := A_ny;
                B_kol := A_kol;
            end;

        end;

        PaintBox1.Canvas.pen.Color := clred;
        PaintBox1.Canvas.pen.Width := 5;
        PaintBox1.Canvas.MoveTo(A_x, A_y);
        PaintBox1.Canvas.LineTo(B_x, B_y);
        PaintBox1.Canvas.Brush.Color := clWhite;

        A_x := B_x;
        A_y := B_y;
        A_nx := 0;
        A_ny := 0;
        A_kol := 8;
        B_kol := 8;
        mov3[A_x][A_y] := 1;

        // --------------------------Обозначение положения коня на доске и пройденные им клетки--------------------------------------------------
        PaintBox1.Canvas.Brush.Color := clred;
        PaintBox1.Canvas.Ellipse(A_x - 4, A_y - 4, A_x + 4, A_y + 4);

        str := IntToStr(k);
        Inc(K);
        PaintBox1.Canvas.TextOut(A_x + 6, A_y + 6, str);
        PaintBox1.Canvas.Brush.Color := clWhite;
        Sleep(100);
    end;
    j := j + 1;

    if i = 64 then
    begin
        Timer1.Enabled := False;
    end;

end;

end.