ответ давал уже когда-то... отклика не дождался, видимо. оно так надо было.
function Knight(x1, y1, x2, y2: integer): Boolean; { Возвращает True, если возможен переход с (x1,y1) на (x2,y2) } begin if abs(x2 - x1) = 2 then Knight := (abs(y2 - y1) = 1) else if abs(x2 - x1) = 1 then Knight := (abs(y2 - y1) = 2) else Knight := false end;
function Queen(x1, y1, x2, y2: integer): Boolean; { Возвращает True, если возможен переход с (x1,y1) на (x2,y2) } begin Queen := (x1 = x2) or (y1 = y2) or (abs(x2 - x1) = abs(y2 - y1)) end;
var xk, yk, xq, yq: integer;
begin Write('Укажите через пробел координаты коня [1..8]: '); Readln(xk, yk); Write('Укажите через пробел координаты ферзя [1..8]: '); Readln(xq, yq); if Knight(xk, yk, xq, yq) then Writeln('Конь бьет ферзя') else if Queen(xq, yq, xk, yk) then Writeln('Ферзь бьет коня') else Writeln('Фигуры не угрожают друг другу') end.
Сходства: 1) четырехкамерное сердце, 2)диафрагма, 3)хорошо развитая кора головного мозга, 4) млечные железы, 5)матка,где происходит развитие плода 6)теплокровность. Отличия: 1)развитие головного мозга (по массе в среднем превышает мозг шимпанзе и гориллы в 3—4 раза), 2)прогрессивное развитие областей мозга, связанных с появлением членораздельной речи, 3) усложнение строения аппарата голосообразования, 4)относительное увеличение мозгового отдела черепа и уменьшение лицевого, 5)редукция волосяного покрова 6)S-образная форма позвоночника с четырьмя изгибами, 7) расширенная форма таза, 8) сводчатая стопа с расширенным большим пальцем, 9)противопоставление большого пальца кисти остальным 10)развитие специфического для каждого человека узора на пальцах рук.
function Knight(x1, y1, x2, y2: integer): Boolean;
{ Возвращает True, если возможен переход с (x1,y1) на (x2,y2) }
begin
if abs(x2 - x1) = 2 then Knight := (abs(y2 - y1) = 1)
else
if abs(x2 - x1) = 1 then Knight := (abs(y2 - y1) = 2)
else Knight := false
end;
function Queen(x1, y1, x2, y2: integer): Boolean;
{ Возвращает True, если возможен переход с (x1,y1) на (x2,y2) }
begin
Queen := (x1 = x2) or (y1 = y2) or (abs(x2 - x1) = abs(y2 - y1))
end;
var
xk, yk, xq, yq: integer;
begin
Write('Укажите через пробел координаты коня [1..8]: ');
Readln(xk, yk);
Write('Укажите через пробел координаты ферзя [1..8]: ');
Readln(xq, yq);
if Knight(xk, yk, xq, yq) then Writeln('Конь бьет ферзя')
else
if Queen(xq, yq, xk, yk) then Writeln('Ферзь бьет коня')
else Writeln('Фигуры не угрожают друг другу')
end.
Отличия: 1)развитие головного мозга (по массе в среднем превышает мозг шимпанзе и гориллы в 3—4 раза), 2)прогрессивное развитие областей мозга, связанных с появлением членораздельной речи, 3) усложнение строения аппарата голосообразования, 4)относительное увеличение мозгового отдела черепа и уменьшение лицевого, 5)редукция волосяного покрова 6)S-образная форма позвоночника с четырьмя изгибами, 7) расширенная форма таза, 8) сводчатая стопа с расширенным большим пальцем, 9)противопоставление большого пальца кисти остальным 10)развитие специфического для каждого человека узора на пальцах рук.