Записи, ... и только записи Опции

[DD]

Программа:

type поле=record верт:(a,b,c,d,e,f,g,h);
гориз: 1..8
end;
Описать логическую функцию ходферзя (n1,n2), проверяющая, может ли ферзь за один ход перейти с поля n1 шахматной доски на поле n2

код:

Код

Program laba4;

type pole=record vert:(a,b,c,d,e,f,g,h);
                gor: 1..8;
                end;

var
n1,n2 :pole;

function hodferzya(n1,n2:pole) : boolean;
begin

if ((n1.vert)=(n2.vert)) and (n1.gor=n2.gor)
then hodferzya:=true
else hodferzya:=false;
end;

begin
readln(n1,n2);
case n1 of
hodferzya(n1,n2);
end.

что не то? поправьте.. как всё же правильно описать условие проверки хода ферзя?

[volvo]

Ребята, я конечно очень извиняюсь, но этой функции:

function hodferzya(n1,n2:pole) : boolean;
begin
  if ((n1.vert)=(n2.vert)) and (n1.gor=n2.gor) then hodferzya:=true
  else hodferzya:=false;
end;

недостаточно, ибо ферзь ходит не только по горизонтали и вертикали, а еще и по диагонали... Кстати, почему And между условиями?

Так что придется делать что-то типа:

function hodferzya(n1,n2:pole) : boolean;
begin
  hodferzya := (n1.vert=n2.vert) or (n1.gor=n2.gor) or
    (abs(n1.vert-n2.vert)=abs(n1.gor-n2.gor))
end;