Question

Пожалуйста,помогите решить задачу в Паскале! На шахматной доске стоят черный король и три белые ладьи (ладья бьет по горизонтали и вертикали) . Проверить, не находится ли король под боем.

Answer 1

 const     
        n = 3; //Кол-во фигур       
var   
   i : integer;   
   xk,yk : integer;   
   xl,yl : array [1..n] of integer;   
   r : boolean;  
begin   

 //Задание координат 
//-----------------------   
xk := 2; yk := 2; // Координаты короля       
 //Координаты ладьи    
xl[1] := 1; yl[1] := 2;    
xl[2] := 4; yl[2] := 6;   
xl[3] := 5; yl[3] := 8;   
//-------------------------   

r := false; 
i := 1;   
While (i <= n) and (not r) do   
begin   
if (xk = xl[i]) or (yk = yl[i]) then //Лежат на одной  прямой    
r := true;   
i:= i +1;   
end;   

if r then   
writeln ('Король под ударом') 
else   
writeln ('Король живет)'); 
end.