ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1197. Один в поле воин

My Solution Here:
Послано Destiny 12 ноя 2002 07:03
program lonesome;
const
 dx:array[1..8]of integer
    =(1,2,2,1,-1,-2,-2,-1);
 dy:array[1..8]of integer
    =(2,1,-1,-2,-2,-1,1,2);
var
 strr:string[2];
 num,n,i,x,y:integer;
procedure solve(x,y:integer);
var
 i,tempx,tempy:integer;
begin
 for i:=1 to 8 do
  begin
   tempx:=x+dx[i];
   tempy:=y+dy[i];
   if (tempx>=1) and (tempx<=8) then
    if (tempy>=1) and (tempy<=8) then
       inc(num);
  end;
end;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(strr);
   x:=ord(strr[1])-ord('a')+1;
   y:=ord(strr[2])-ord('0');
   num:=0;
   solve(x,y);
   writeln(num);
  end;
end.