Олимпиадная задача "Шахматы" (помогите Васе проверить правильность записи о ходе коня)

[NikiToZz_]

Сообщение от Serge_Bliznykov

я бы написал так:
[CODE]


NikiToZz_, если Вы сдаёте программу через систему автоматического тестирования, то Вы не забыли сделать открытие файла INPUT.TXT на чтение и выходного файла OUTPUT.TXT на запись?

т.е. если речь идёт про https://acmp.ru/asp/do/index.asp?mai...id_problem=242

то добавьте в начало программы:

  reset(input, 'input.txt');
  rewrite(output, 'output.txt');

2 варианта может быть использовано: Это с файлами и консольно.. я предпочитаю консольно.

А вообще, да, проверяет меня этот сайт.

==================================

И да, ваш код он принял! Отличие от моего - это лишь строчка

if (length(s)=5)

[NikiToZz_]

Сообщение от FPaul

if length(st)=5 then

Похоже, именно здесь была ошибка, спасибо!

[NikiToZz_]

Сообщение от min@y™

чот я увлёкся...
кто-нить скажет мне, дураку, чего я тут понаписал, а?

Вложение 82043

function TryStrToCell(const s: string; var cell: byte): Boolean;
begin
  Result:= (s.Length = 2) and 
    CharInSet(s[1], ['A'..'H']) and 
    CharInSet(s[2], ['1'..'8']);
    
  if not Result  
    then exit;
    
  cell:= ((byte(s[1]) - $41) shl 4) or (byte(s[2]) - $31);
end;

function CellToStr(const cell: byte): string;
begin
  Result:= Char($41 + (cell shr 4)) + 
           Char($31 + (cell and $F));
end;

{ cell: буква кодируется ст. тетрадой 
        (A <--> 0, B <--> 1, ..., H <--> 7)
        цифра кодируется мл. тетрадой 
        (1 <--> 0, 2 <--> 1, ..., 8 <--> 7)
        биты 3 и 7 используются для проверки диапазонов.
  Пример: "G2" <---> 6:1 = bin(0110:0001). }

function ValidMoves(const cell: byte): TByteSet;
const
  SHIFT_H: array[0..7] of int8 = (+2, +1, -1, -2, -2, -1, +1, +2);
  SHIFT_V: array[0..7] of int8 = (+1, +2, +2, +1, -1, -2, -2, -1);
var
  x, y, mx, my, idx: int8;  
begin
  Result:= [];
  x:= 7 and (cell shr 4);
  y:= cell and 7;
  
  for idx:= 0 to 7 do
    begin
      mx:= x + SHIFT_H[idx];
      my:= y + SHIFT_V[idx];
      if (mx or my) in [0..7]
        then include(Result, (mx shl 4) or my);
    end;  
end;

Чот сложнааа... Без функций же можно.

[min@y™]

Без функций же можно.

функции сильно упрощают и ускоряют отладку, а главное - так надёжней.