Задача про шахматную доску

[aiktz]

Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми. Например, запись (2,4) соответствует клетке "B4", а (5,2) - клетке "E2". Даны натуральные числа k, l, m, n, каждое из которых не превосходит восьми. Требуется:

На поле (k,l) расположен конь. Угрожает ли он полю (m,n)?

[Stilet]

Ну еси кобылка твоя не арабская то проверяй так:

if (abs(k-m)=1)and(abs(l-n)=2) then  угрожает

[EducatedFool]

Ну а лучше как-то так:

if (abs(k-m)=1)and(abs(l-n)=2) or (abs(k-m)=2)and(abs(l-n)=1) then  угрожает

Или так:

if (abs(k-m))*(abs(l-n)) =2 then  угрожает

[aiktz]

а как сама программма будет выглядеть?

[Gonzo]

На Ваше счастье сегодня писал подобную программу: елементы под угрозой коня помечаются *.

uses crt;
var stroka,stolbec:integer;
procedure horse(n,m:byte);
var doska:array[1..8,1..8] of char;
i,j:byte;
f:text;name:string;
begin
for i:=1 to 8 do
for j:=1 to 8 do
 begin
  if ((abs(i-n)=2) and (abs(j-m)=1))
  or ((abs(j-m)=2) and (abs(i-n)=1))
  then doska[i,j]:='*'
  else doska[i,j]:='0';
 end;
doska[n,m]:='K';
write('Zadaite imia i put dlia rezultiruiuschego faila: ');
readln(name);
writeln;
if length(name)=0 then name:='c:/f_result.txt';
assign(f,name);
rewrite(f);
for i:=1 to 8 do
 begin
  j:=0;
  repeat
   j:=j+1;
   write(f,doska[i,j],' ');
   write(doska[i,j],' ');
  until j=8;
  writeln(f);
  writeln;
 end;
writeln;
writeln('Resultaty zapisanny v fail ',name);
readln;
end;
begin
repeat
clrscr;
write('Nomer stroki: ');
readln(Stroka);
write('Nomer stolbca: ');
readln(Stolbec);
until (stroka>0) and (stroka<=8) and (stolbec>0) and (stolbec<=8);
horse(stroka,stolbec);
end.

[aiktz]

СПАСИБО ОГРОМНОЕ

[Gonzo]

Ну, можете и отзыв добавить. - Я не растроюсь.