Задача на Паскале АBC

[SAIDTM]

На шахматной доске стоит 2 фигуры, одна из них конь. Определить бьет ли конь 2 фигуру?

[challengerr]

Координаты коня (x1, y1)

Если координаты второй фигуры
(x1-2, y1-1), (x1+2, y1-1)
(x1-2, y1+1), (x1+2, y1+1)
(x1-1, y1-2), (x1-1,y1+2)
(x1+1, y1-2), (x1+1,y1+2)
то значит конь бьет вторую фигуру при условии, что
x1 >= 0 && x1 <=7 && y1 >= 0 && y1<=7.

[Аватар]

Координаты коня - {x1,y1}
Координаты фигуры - {x2,y2}
Бьет, если |x1-x2|+|y1-y2|=3 и MAX(|x1-x2|,|y1-y2|)=2

[SAIDTM]

Сообщение от challengerr

Координаты коня (x1, y1)

Если координаты второй фигуры
(x1-2, y1-1), (x1+2, y1-1)
(x1-2, y1+1), (x1+2, y1+1)
(x1-1, y1-2), (x1-1,y1+2)
(x1+1, y1-2), (x1+1,y1+2)
то значит конь бьет вторую фигуру при условии, что
x1 >= 0 && x1 <=7 && y1 >= 0 && y1<=7.

Можешь написать программу пожалуйста?

Сообщение от Аватар

Координаты коня - {x1,y1}
Координаты фигуры - {x2,y2}
Бьет, если |x1-x2|+|y1-y2|=3 и MAX(|x1-x2|,|y1-y2|)=2

Можете пожалуйста объяснить откуда это условие?

[Аватар]

Можете пожалуйста объяснить откуда это условие?

Э-э, с головы вестимо. А что не так? Конь ходит буквой г, высота 2, плечо 1

[SAIDTM]

Все правильно. Просто понять как работает

[challengerr]

Сообщение от SAIDTM

Можешь написать программу пожалуйста?

Я попытался, но у меня не получилось.
Я не спец по паскалю.

Ошибочная попытка:

program c; 
uses crt, math;

procedure f;
var
x1, y1, x2, y2: byte;

begin
x1:= 4; y1:= 4;
x2 := 6; y2 := 7;

if ( x1 - 2 >= 0 and y1-1 >= 0 and x2 = x1 - 2 and y2 = y1-1) or 
( x1 + 2<=7 and y1-1 >= 0 and x2 = x1 + 2 and y2 = y1-1) or 
( x1 - 2 >= 0 and y1+1<=7 and x2 = x1 - 2 and y2 = y1+1) or 
( x1 + 2 <= 7 and y1+1 <= 7 and x2 = x1 + 2 and y2 = y1+1) or 
( x1 - 1 >= 0 and  y1-2 >= 0 and  x2 = x1 - 1 and y2 = y1-2) or 
( x1 - 1 >= 0 and  y1+2 <= 7 and x2 = x1 - 1 and y2 = y1+2) or 
( x1 + 1 <= 7 and  y1-2 >= 0 and x2 = x1 + 1 and y2 = y1-2) or 
( x1 + 1 <= 7 and  y1+2 <= 7 and x2 = x1 + 1 and y2 = y1+2) then
writeln('+');

end;

begin
f()
end.

Исправленная программа:

program c; 
uses crt, math;

procedure f;
var
x1, y1, x2, y2: byte;

begin
x1:= 4; 
y1:= 4;
x2 := 6; 
y2 := 7;


//12.8.3 Boolean operators
//and  logical and
//or logical or

// 12.8.6 Relational operators
// Operator =
// Action Equal


//The expression between the if and then keywords 
//must have a Boolean result type.

// if 
if 
(
( Boolean(x1 - 2 >= 0) and Boolean(y1-1 >= 0) and Boolean(x2 = x1 - 2) and Boolean(y2 = y1-1)) or 
( Boolean(x1 + 2<=7) and Boolean(y1-1>= 0) and Boolean(x2 = x1 + 2) and Boolean(y2 = y1-1)) or 
( Boolean(x1 - 2 >= 0) and Boolean(y1+1<=7) and Boolean(x2 = x1 - 2) and Boolean(y2 = y1+1)) or 
( Boolean(x1 + 2 <= 7) and Boolean(y1+1 <= 7) and Boolean(x2 = x1 + 2) and Boolean(y2 = y1+1)) or 
( Boolean(x1 - 1 >= 0) and  Boolean(y1-2 >= 0) and  Boolean(x2 = x1 - 1) and Boolean(y2 = y1-2)) or 
( Boolean(x1 - 1 >= 0) and  Boolean(y1+2 <= 7) and Boolean(x2 = x1 - 1) and Boolean(y2 = y1+2)) or 
( Boolean(x1 + 1 <= 7) and  Boolean(y1-2 >= 0) and Boolean(x2 = x1 + 1) and Boolean(y2 = y1-2)) or 
( Boolean(x1 + 1<= 7) and  Boolean(y1+2 <= 7) and Boolean(x2 = x1 + 1) and Boolean(y2 = y1+2)) 
)

then
writeln('+');


//#include <stdio.h>
//void main() {  int x1, y1, x2, y2; x1 = 1;  y1 = 1; x2 = 3;  y2 = 2;
//if 
//(
//( x1 - 2 >= 0 && y1-1 >= 0 && x2 == x1 - 2 && y2 == y1-1) ||
//( x1 + 2<=7 && y1-1 >= 0 && x2 == x1 + 2 && y2 == y1-1) ||
//( x1 - 2 >= 0 && y1+1<=7 && x2 == x1 - 2 && y2 == y1+1) ||
//( x1 + 2 <= 7 && y1+1 <= 7 && x2 == x1 + 2 && y2 == y1+1) ||
//( x1 - 1 >= 0 &&  y1-2 >= 0 &&  x2 == x1 - 1 && y2 == y1-2) ||
//( x1 - 1 >= 0 &&  y1+2 <= 7 && x2 == x1 - 1 && y2 == y1+2) ||
//( x1 + 1 <= 7 &&  y1-2 >= 0 && x2 == x1 + 1 && y2 == y1-2) ||
//( x1 + 1 <= 7 &&  y1+2 <= 7 && x2 == x1 + 1 && y2 == y1+2) 
//)
//printf("+\n");
//}



end;

begin
f()
end.

[Serge_Bliznykov]

Бьет, если |x1-x2|+|y1-y2|=3 и MAX(|x1-x2|,|y1-y2|)=2

кстати, проще:

if abs(x1-x2)*abs(y1-y2) = 2 
  then WriteLn('Бьёт')
  else WriteLn('НЕ бьёт');

[Аватар]

кстати, проще:

+1 Точно, не докумекал