ответ давал уже когда-то... отклика не дождался, видимо. оно так надо было.
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.
#include <iostream>#include <ctime>//Бібліотека для рандомуusing namespace std;int main(){ int array[10];//Масив int Max_Num=0,Min_Num=0;// Мінімальне і Максимальне числа bool Positive_or_negative=0;//Число додатнє чи відємне srand(time(NULL));//Рандом.Кожний раз інший. for(int i=0;i<10;++i) { Positive_or_negative=rand()%2; if(Positive_or_negative==false)//якщо Positive_or_negative==0 { array[i]=-(rand()%10);//Рандом від -10...0 } else { array[i]=rand()%10;//Рандом від 0...10 } if(array[i]>Max_Num)//Пошук макс. числа { Max_Num=array[i]; } if(array[i]<Min_Num)//Пошук Мін. числа { Min_Num=array[i]; } cout<<array[i]<<" "; } cout<<endl<<"Max. number is:"<<Max_Num<<endl;//Вивід максимально числа cout<<"Min. number is:"<<Min_Num<<endl;//Вивід мінімально числа system("pause>>void");//закінчення программи.}
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.