if ((b1[i+1,j]=2)

          or(b1[i,j+1]=2)

          or(b1[i-1,j]=2)

          or(b1[i,j-1]=2))

          or(((b1[i+1,j]=4)and(b1[i+2,j]=2))

          or((b1[i,j+1]=4)and(b1[i,j+2]=2))

          or((b1[i-1,j]=4)and(b1[i-2,j]=2))

          or((b1[i,j-1]=4)and(b1[i,j-2]=2)))

          or(((b1[i+1,j]=4)and(b1[i+2,j]=4)and(b1[i+3,j]=2))

          or((b1[i,j+1]=4)and(b1[i,j+2]=4)and(b1[i,j+3]=2))

          or((b1[i-1,j]=4)and(b1[i-2,j]=4)and(b1[i-3,j]=2))

          or((b1[i,j-1]=4)and(b1[i,j-2]=4)and(b1[i,j-3]=2)))

             then begin                                       //не доконца подбитый корабль

               image1.Canvas.pen.Color:=clred;

               image1.Canvas.MoveTo(20*i-19,20*j-19);

               image1.Canvas.LineTo(20*i-1,20*j-1);

               image1.Canvas.MoveTo(20*i-1,20*j-19);

               image1.Canvas.LineTo(20*i-19,20*j-1);

               image1.Canvas.pen.Color:=clblack;

             end

             else                                           //подбитый корабль

             begin

              image1.Canvas.Brush.Color:=clred;

              image1.Canvas.Rectangle(20*i-20,20*j-20,20*i,20*j)

             end;

       end;

    end;

  end;

end;

lose:=true;

For i:=1 to 10 do              //если находится хотябы один  неподбитый корабль то проигрыша  нет

  for j:=1 to 10 do

    if b1[i,j]=2 then

      lose:=false;

if lose=true then

begin

  kon:=true;

  showmessage ('Вы проиграли.'+#13+'Попробуйте ещё  раз!');

  exit

end;

end;

end;

procedure TForm1.N3Click(Sender: TObject);    //процедура нажатия на кнопку "выход"

begin

close

end; 

procedure TForm1.N5Click(Sender: TObject);   //процедура нажатия на кнопку "О программе..."

begin

form2.ShowModal 

end; 

procedure TForm1.N6Click(Sender: TObject);

begin

winhelp(Form1.Handle,'morb.hlp',HELP_CONTEXT,1);

end; 
 

end.

 

Приложение 2

Руководство пользователя

Правила 

Морской бой –игра известная всем с детства.

Условия победы – уничтожить все корабли  противника.

Условия поражения – потеря всех своих  кораблей. 

В начале игры перед вами пустое поле(рис. 1)

                      Рис. 1 

для начала игры вы должны расставить свои корабли (расстановка начинается с 4палубного корабля и далее по уменьшению палуб) для этого переведите курсор мыши на поле с пустыми белыми клетками, при этом под курсором появиться желтое изображения корабля (рис. 2)

                       Рис. 2 

 при нажатии на правую кнопку мыши происходит ротация корабля (рис. 3)

                      Рис. 3 

при нажатии  на левую кнопку мыши – происходит расстановка корабля на игровом  поле (рис. 4)

                      Рис. 4 

далее расстанавливаются остальные корабли.(корабли  не могут пересекаться и соприкасаться)

Когда все корабли расстановлены появляется поле компьютера (рис. 5)

                   Рис. 5 

Теперь  вам необходимо стрелять по кораблям противника. Для этого необходимо перейти на поле противника, и в предполагаемом для вас месте нахождения вражеского корабля нажать правую кнопку мыши. При этом если в месте выстрела появляется:

   Серый квадрат перечеркнутый красным  крестом – значит что Вы попали в корабль но он еще не убит.

   Маленький белый квадрат – Вы не попали.

   Красный квадрат – Вы убили корабль. 

Для того чтобы начать новую игру нажмите  клавишу F2 ли на вкладку Игра-Новая игра.

 

Приложение 3

Блок схема