РОКИРОВКА: CM ДОПОЛНЕНИЕ 2:; РУБЕЖ:=с end ОБЗОР ХОДОВ; procedure ВЫПОЛНЕНИЕ ХОДА (р.ДОСКА СВОИХДОСКА ЧУЖИХ,. ПОЛЯ СВОИХ,ПОЛЯ ЧУЖИХ,ПРОДОЛЖЕНИЕ); integer р; label ПРОДОЛЖЕНИЕ;

integer array ДОСКА СВОИХ.ДОСКА ЧУЖИХ,ПОЛЯ СВОИХ, ПОЛЯ ЧУЖИХ; begin integer ОТ.НА; go to start;

НЕЗАКОННЫЙ ХОД: УРОВЕНЬ: =УР0ВЕНЬ-1; р: = р+1; start: ОТ: = СПИСОЩр];НА:=СПИС0К[р-1-1]; if НА>0 then begin

epl:

if q(yPOBEHb]=-1 then go to aal; aa2: ДОСКА СВОИХОТ]:=0;

ааЗ: ДОСКА ЧУЖИХЮТ]: =с[УРОВЕНЬ];

аа4: с1УР0ВЕНЬ}:=ДОСКА ЧУЖИХ[НА];

аа5: ДОСКА ЧУЖИХ[НА]:=0;

ааб: ПОЛЯ СВ0ИХ[Н0МЕР1УР0ВЕНЬ]]: = НА;

aal: if abs(q[yPOBEHb]) = 1 Д (НА>5бу НА<9) then

begin р: = р-1; qyPOBEHb]:=-1; ДОСКА СВ0ИХ1НА]:= if ДОСКА СВОИХ[НА]=0 then

5 else ДОСКА СВОИХ[НА]-1; if ДОСКА СВ0ИХ[НА]=2 then begin р: = р+1; q[yPOBEHb]: = 1 end end else

ДОСКА СВОИХ[НА]:=abs (qiyPOBEHb]);

ерЗ:

УРОВЕНЬ: =yPOBEHb+l; НА:=РУБЕЖ ХОДОЩУРОВЕНЬ]: = РУБЕЖ Х0ДОВ[УР0ВЕНЬ-1]; ЗАКОННЫЙ ЛИ ХОД: ОБЗОР ХОДОВ (ПОЛЯ ЧУЖИХ,ДОСКА ЧУЖИХ, ДОСКА СВОИХ.РУБЕЖ ХОДОВ:[УРОВЕНЬ], НЕЗАКОННЫЙ ХОД); НОМЕР[УРОВЕНЬ]: = СПИСОКГНА]; q[yPOBEHb]:=СПИС0КША+1]; ОБРАТНО К[УР0ВЕНЬ]:=СПИС0К[НА+2] end else begin

ДОСКА СВ0ИХ[-НА]: = abs(qfyPOBEHb]); ДОСКА СВОИХ{ОТ]:=0;

ер4 ЬЬЗ ЬЬ4

ДОСКА ЧУЖИХ[0Т]:=с1УР0ВЕНЬ]; сУРОВЕНЬ]:=0;

ПОЛЯ СВ0ИХ[Н0МЕР1УР0ВЕНЬ]]:=-НА: HOMEPfyPOBEHb]:=СПИС0К[р+2]; q[yPOBEHb]:=СПИСОЩр+3];

ОБРАТНО ЩУР0ВЕНЬ]:=СПИС0К[р+4]; р: = р+3; go to ПРОДОЛЖЕНИЕ end

end ВЫПОЛНЕНИЕ ХОДА; procedure ВОЗВРАТ ХОДА(ОТДОСКА СВОИХДОСКА ЧУЖИХ, ПОЛЯ СВОИХ); integer ОТ;

Integer array ДОСКА СВОИХ,ДОСКА ЧУЖИХ.ПОЛЯ СВОИХ; begin ДОСКА СВОИХ[ОБРАТНО K[yPOBEHb]]: = abs(q[yPOBEHb]); ДОСКА СВОИХ(ОТ]: = 0; ер4: ДОСКА ЧУЖИХ{0Т]:=с1УР0ВЕНЬ]; с(УРОВЕНЬ]:=0;

ПОЛЯ СВ0ИХ[Н0МЕР1УР0ВЕНЬ]]: = ОБРАТНО К[УРОВЕНЬ] end ВОЗВРАТ ХОДА; ВВОД ТАБЛИЦ:

!при1(ТАБЛИЦА КОНЯ.ТАБЛИЦА КОРОЛЯ, ТАБЛИЦА ЛАДЬИ, ТАБЛИЦА СЛОНА,ТАБЛИЦА БП,ТАБЛИЦА ЧП); ОЧИСТКА ДОСОК:

for i: = l step 1 until 65 do

ДОСКА БЕЛЫХИ:=ДОСКА 4EPHbIX[i]:=0; for {:= 1 step 1 until 5 do c[i]: = 0; ВВОД БЕЛЫХ ФИГУР:

input (n); ПОЛЯ БЕЛЫХ0]:=п; for i: = l step 1 until n do begin input (j,k);

ДОСКА БЕЛЫХ[к]:=]; ПОЛЯ БЕЛЫХ{1]:=к end i;

«ВОД ЧЕРНЫХ ФИГУР:

input(п); ПОЛЯ ЧЕРНЬЩО]: = п; - ••"

for i: = l step 1 until n do begin input (j,k); •

ДОСКА 4EPHbIX{k]:=j; ПОЛЯ 4EPHblX[i]:=k end i;

outputCT, ИСХОДНАЯ ПОЗИЦИЯ", /); ПЕЧАТЬ ПОЗИЦИИ; «АЧАЛО: с[1]: = 0; УРОВЕНЬ: == РУБЕЖ Х0Д0В1]: = 1;

ОБЗОР ХОДОВ (ПОЛЯ БЕЛЫХ,ДОСКА БЕЛЫХ.ДОСКА ЧЕРНЫХ,

РУБЕЖ ходов; 1],0ШИБКА); Н0МЕР{УР0ВЕНЬ]:=СПИС0К[1]; д[УР0ВЕНЬ]:=СПИС0К[2]; for Б1:=3 step 1 until РУБЕЖ ХОДОВЩ do begin ВОЗМОЖЕН ПАТ: = true; ВЫПОЛНЕНИЕ ХОДА (Б I,ДОСКА БЕЛЫХ,ДОСКА ЧЕРНЫХ.

ПОЛЯ БЕЛЫХ,ПОЛЯ ЧЕРНЫХ,Б1 ПРОДОЛЖЕНИЕ); for 41 : = РУБЕЖ Х0Д0В[1]+2 step 1 until РУБЕЖ Х0Д0В[2] do begin

ВЫПОЛНЕНИЕ Х0ДА(Ч1,Д0СКА ЧЕРНЫХ,Д0СКА БЕЛЫХ,

ПОЛЯ ЧЕРНЫХ,ПОЛЯ БЕЛЫХ,Ч1 ПРОДОЛЖЕНИЕ); for Б2: = РУБЕЖ ХОДОВ1Г2]+2 step 1 until .

РУБЕЖ Х0Д0В[3] do begin ВОЗМОЖЕН nAT:=false; ВЫПОЛНЕНИЕ Х0ДА(Б2,Д0СКА БЕЛЫХ, ДОСКА ЧЕРНЫХ,ПОЛЯ БЕЛЫХ,ПОЛЯ ЧЕРНЫХ, Б2 ПРОДОЛЖЕНИЕ); есть ли ШАХ ЧЕРНЫМ:п: = РУБЕЖ Х0Д0В4];

ОБЗОР ХОДОВ (ПОЛЯ БЕЛЫХ,Д0СКА БЕЛЫХ,Д0СКА ЧЕРНЫХ,п,ШАХ ЧЕРНЫМ);

go to Б2 ПРОДОЛЖЕНИЕ; ШАХ ЧЕРНЫМ: for 42: = РУБЕЖ Х0Д0ВТЗ]+2 step 1 until

РУБЕЖ ХОДОВМ do

begin

ВЫПОЛНЕНИЕ Х0ДА(Ч2,Д0СКА ЧЕРНЫХ, ДОСКА БЕЛЫХ,ПОЛЯ ЧЕРНЫХ,ПОЛЯ БЕЛЫХ, 42 ПРОДОЛЖЕНИЕ); УШЛИ ОТ ШАХА: УРОВЕНЬ:=4;

ВОЗВРАТ XOДA(CПИCOЩif qTyPOBEHb]=-1 then Ч2+2 else Ч2+1],Д0СКА ЧЕРНЫХ, ДОСКА БЕЛЫХ,ПОЛЯ ЧЕРНЫХ); go to Б2 ПРОДОЛЖЕНИЕ; 42 ПРОДОЛЖЕНИЕ: УРОВЕНЬ: =4 end 42;

ЧЕРНЫЕ БЕРУТ НАЗАД СВОЙ ПЕРВЫЙ Х0Д:УР0ВЕНЬ:=3;

ВОЗВРАТ XOДA(CПИCOK[if qjyPOBEHb]=-1 then Б2+2 else Б2+1],Д0СКА БЕЛЫХ,ДОСКА ЧЕРНЫХ,ПОЛЯ БЕЛЫХ); ВОЗВРАТ КОРОЛЯ БЕЛЫХ: СМ СВИДЕТЕЛЬСТВО К АЛГОРИТМУ 50CJ:;

go to 41 ПРОДОЛЖЕНИЕ; Б2 ПРОДОЛЖЕНИЕ: УРОВЕНЬ:=3 end Б2;

БЕЛЫЕ БЕРУТ НАЗАД СВОЙ ПЕРВЫЙ Х0Д:УР0ВЕНЬ:=2;

ВОЗВРАТ XOflA(CnHCOK[if qiyPOBEHb]=-1 then Ч1+2 else Ч1+1], ДОСКА ЧЕРНЫХ.ДОСКА БЕЛЫХ. ПОЛЯ ЧЕРНЫХ): ВОЗВРАТ КОРОЛЯ ЧЕРНЫХ: СМ СВИДЕТЕЛЬСТВО К АЛГОРИТМУ 50CJ:;

go to Б1 ПРОДОЛЖЕНИЕ; 41 ПРОДОЛЖЕНИЕ: УРОВЕНЬ:=2 end 41; п: = РУБЕЖ Х0Д0В12]; if ВОЗМОЖЕН ПАТ then НЕ МАТ ЛИ ЭТО:

begin ОБЗОР ХОДОВ (ПОЛЯ БЕЛЫХ,ДОСКА БЕЛЫХ, ДОСКА 4ЕРНЫХ,п,МАТ1); ЭТО ПАТ НА ПЕРВОМ ХОДЕ:

go to Б1 ПРОДОЛЖЕНИЕ end;

output(7/Г,PEШEHИE,7); goto ОТВЕТ; MATl: outputС/ЛТ.МАТ НА ПЕРВОМ ХОДЕ,/); ОТВЕТ: ПЕ4АТЬ ПОЗИЦИИ; ОДНО РЕШЕНИЕ НАЙДЕНО: go to КОНЕЦ; Б1 ПРОДОЛЖЕНИЕ: УРОВЕНЬ: = 1 end Б1;

output (7АТ,*ХОДЫ БЕЛЫХ ИС4ЕРПАНЬГ,7); go to КОНЕЦ;

ОШИБКА: output(Т,ПЕРВЫМ ХОДОМ БЕРЕТСЯ КОРОЛЬ 4ЕРНЫХ*./) КОНЕЦ: end