ac1045.pas

来自「某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请」· PAS 代码 · 共 18 行

program tju1045;
const
  dx:array[1..8]of shortint=(-1,-2,-2,-1,1,2,2,1);
  dy:array[1..8]of shortint=(2,1,-1,-2,-2,-1,1,2);
var
  n,i,x,y,j,ans:longint;
  c:char;
begin
  readln(n);
  for i:=1 to n do begin
    readln(c,y);x:=ord(c)-96;
    ans:=0;
    for j:=1 to 8 do
      if (x+dx[j]>0) and (x+dx[j]<9) and (y+dy[j]>0) and (y+dy[j]<9) then inc(ans);
    writeln(ans);
  end;
end.