Найти поля, на которые может попасть шахматный конь за один прыжок из данной клетки

@Эсмиральда · Регистрация: 17.10.2014

Студворк — интернет-сервис помощи студентам

На пустой шахматной доске в одной из клеток стоит шахматный конь. Напишите программу, которая выводит на экран список клеток, которые конь может достичь за один ход из данной клетки.
На вход программы с клавиатуры поступают два целых числа х и у через пробел- координаты клетки, где стоит конь (1<=x,y<=8)

Visual Basic

Sub øàõìàòû()
Dim x As Integer, y As Integer
x = InputBox("x")
y = InputBox("y")
If 1 < x < 8 And 1 < y < 8 Then
x 1 And y1 + 2 And x2 - 1 And y2 - 2 And x3 + 1 And y3 - 2 And x4 - 1 And y4 + 2 And x5 - 2 And y5 - 1 And x6 + 2 And y6 + 1 And x7 - 2 And y7 + 1 And x8 + 2 And y8 - 1
MsgBox ("x,y")
End If
End Sub

Как ее нужно доработать?

@~~Апострофф~~ · 23.11.2014, 17:50

Сообщение от Эсмиральда

Как ее нужно доработать?

Например так -

Visual Basic

Sub asd()
Dim x As Integer, y As Integer, xx As Integer, yy As Integer, s As String
Do
  x = InputBox("x")
Loop While x < 1 Or x > 8
Do
  y = InputBox("y")
Loop While y < 1 Or y > 8
For xx = IIf(x - 2 < 1, 1, x - 2) To IIf(x + 2 > 8, 8, x + 2)
  For yy = IIf(y - 2 < 1, 1, y - 2) To IIf(y + 2 > 8, 8, y + 2)
    If Abs((xx - x) * (yy - y)) = 2 Then s = s & xx & " " & yy & vbCrLf
  Next yy
Next xx
MsgBox s
End Sub

Опции темы