Lab 6.5

unit Unit1;


interface

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

type
    TForm1 = class(TForm)
        PaintBox1: TPaintBox;
        Timer1: TTimer;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Timer1Timer(Sender: TObject);
    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;
    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;

    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.Timer1Timer(Sender: TObject);
begin
    k := k + 1;
    for i := 1 to 63 do
    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;

    end;
    j := j + 1;

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

end;

end.