type tboard=array[1..8,1..8] of byte;
var
board: tboard;
c,k,x,y: word;
begin
{расставляем фигуры: 0=пустая клетка, 1=своя пешка, 2=своя ладья, 4=свой конь, и т.д. (8-16-32), 129=чужая пешка, 130=чужая ладья, и т.д.}
...
{указываем, где наша ладья: задаем x,y}
...
c:=0;
k:=x+1;
while (k<9)and(c=0)) do begin c:=c+board[k,y]; inc(k); end;
if c<128 then c:=0;
k:=x-1;
while (k>1)and(c=0) do begin c:=c+board[k,y]; dec(k); end;
if c<128 then c:=0;
k:=y+1;
while (k<9)and(c=0) do begin c:=c+board[x,k]; inc(k); end;
if c<128 then c:=0;
k:=y-1;
while (k>1)and(c=0) do begin c:=c+board[x,k]; dec(k); end;
if c<128 then c:=0;
if c=0 then writeln('не бьет') else writeln('бьет');
end.
|
