Дополнение 1,3а

Таблица белой пешки

Дополнение 1.36 Дополнение 1.3а

Таблица черной пешки

Таблица белой пешки

Дополнение 1.36

Таблица черной пешки

продолжение таблицы белой и черной пешек

Дополнение 2 к алгоритму 50CJ

Следующие операторы вставляются в программу, начиная с метки РОКИРОВКА*. РОКИРОВКА:

if СВОИ ПОЛЯ1!]=5 then go to РОКИРОВКА БЕЛЫХ else if СВОИ П0ЛЯ11]=61 then go to РОКИРОВКА ЧЕРНЫХ else go to КОНЕЦ РОКИРОВКИ; РОКИРОВКА БЕЛЫХ: if "П КОРОТКАЯ РОКИРОВКА БЕЛЫХ V ДОСКА БЕЛЫХ6]0\/

ДОСКА БЕЛЫХ1Т7]0\/ДОСКА ЧЕРНЫХ1[6]0\/

ДОСКА ЧЕРНЫХ[7]0 then go to ДЛИННАЯ БЕЛЫХ; for п:=УРОВЕНЬ-2 step -2 until 1 do if HOMEPIn]==l V HOMEPn]=2 then

go to ДЛИННАЯ БЕЛЫХ; ДОСКА БЕЛЫХ[6]:= ДОСКА БЕЛЫХ17]:=6;п: = с;

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

НЕ ВОЗМОЖНА КОРОТКАЯ БЕЛЫХ); ВОЗМОЖНА КОРОТКАЯ БЕЛЫХ: ХОДЫ РОКИРОВКИ (5,7,2,8,6); НЕ ВОЗМОЖНА КОРОТКАЯ БЕЛЫХ:

ДОСКА БЕЛЫХ[6]:=Д0СКА БЕЛЫХ[7]:=0; ДЛИННАЯ БЕЛЫХ: if П ДЛИННАЯ РОКИРОВКА БЕЛЫХУ

ДОСКА БЕЛЫХ2]¥=0 V

ДОСКА БЕЛЫХ[3]¥=..0 V ДОСКА БЕЛЫХ4]¥=0 V ДОСКА ЧЕРНЫХ[2]т&0 V ДОСКА ЧЕРНЫХ3]0 V ДОСКА ЧЕРНЫХ{4]0 then go to КОНЕЦ РОКИРОВКИ; for п: = УРОВЕНЬ-2 step -2 until 1 do if HOMEPiIn]= 1 V H0MEPM==3 then go to КОНЕЦ РОКИРОВКИ;

* В нижеследующих операторах редактором выпуска сделаны некоторые тождественные сокращения и внесены поправки, указанные в нижеследующем свидетельстве к алгоритму 50CJ. {Прим. ред.)

ДОСКА БЕЛЫХ[3]:=Д0СКА БЕЛЫХ[4]:=6; п: = с; ОБЗОР ХОДОВ (ПОЛЯ ЧЕРНЫХ, ДОСКА ЧЕРНЫХДОСКА БЕЛЫХ.п,

НЕ ВОЗМОЖНА ДЛИННАЯ БЕЛЫХ); ВОЗМОЖНА ДЛИННАЯ БЕЛЫХ: ХОДЫ РОКИРОВКИ (5,3,3,1,4); НЕ ВОЗМОЖНА ДЛИННАЯ БЕЛЫХ:

ДОСКА БЕЛЫХ[3]:= ДОСКА БЕЛЫХ4]:=0; go to КОНЕЦ РОКИРОВКИ; РОКИРОВКА ЧЕРНЫХ: if "~1 КОРОТКАЯ РОКИРОВКА ЧЕРНЫХ V ДОСКА 4EPHbIX[62]¥=0V ДОСКА ЧЕРНЫХ[63]0\/ ДОСКА БЕЛЫХ[62]0 V ДОСКА БЕЛЫХ[63]0 then

go to ДЛИННАЯ ЧЕРНЫХ; for n:=УРОВЕНЬ-2 step -2 until 2 do

if HOMEP[n] = l V HOMEPi[n] = 2 then go to ДЛИННАЯ ЧЕРНЫХ; ДОСКА ЧЕРНЫХ62]:=ДОСКА ЧЕРНЬЩ63]:=6; п: = с; ОБЗОР ХОДОВ (ПОЛЯ БЕЛЫХ,ДОСКА БЕЛЫХ,ДОСКА ЧЕРНЫХ.п, НЕ ВОЗМОЖНА КОРОТКАЯ ЧЕРНЫХ); ВОЗМОЖНА КОРОТКАЯ ЧЕРНЫХ: ХОДЫ РОКИРОВКИ (61,63,2,64,62); НЕ ВОЗМОЖНА КОРОТКАЯ ЧЕРНЫХ:

ДОСКА ЧЕРНЫХ162]:= ДОСКА ЧЕРНЫХ163]:=0; ДЛИННАЯ ЧЕРНЫХ: if "ПДЛИННАЯ РОКИРОВКА ЧЕРНЫХ V ДОСКА 4EPHbIX[58]0V ДОСКА ЧЕРНЫХ1[59]0 V ДОСКА ЧЕРНЫХ[60]0 V ДОСКА БЕЛЫХ158]0 V ДОСКА БЕЛЫХ[59]0\/ ДОСКА БЕЛЫХ160}¥=0 then

go to КОНЕЦ РОКИРОВКИ; for n:=УРОВЕНЬ-2 step -2 until 2 do if HOMEPlFn]=l V H0MEPM=3 then go to КОНЕЦ РОКИРОВКИ; ДОСКА ЧЕРНЫХ59]-=ДОСКА ЧЕРНЫХ[60]:=6; п:=с; ОБЗОР ХОДОВ (ПОЛЯ БЕЛЫХ,ДОСКА БЕЛЫХ,ДОСКА ЧЕРНЫХ,п, НЕ ВОЗМОЖНА ДЛИННАЯ ЧЕРНЫХ); ВОЗМОЖНА ДЛИННАЯ ЧЕРНЫХ:ХОДЫ РОКИРОВКИ (61,59,3,57,66); НЕ ВОЗМОЖНА ДЛИННАЯ ЧЕРНЫХ:

ДОСКА ЧЕРНЫХ59]:= ДОСКА ЧЕРНЫХ160]:=0; КОНЕЦ РОКИРОВКИ:

Нижеследующее описание процедуры помещается в программу на место пусгой процедуры ХОДЫ РОКИРОВКИ.

procedure ХОДЫ РОКИРОВКИ(КР1,КР2,Н0МЕР ЛАДЬИ,Л1,Л2);

integer КР1,КР2,Н0МЕР ЛАДЬИ,Л1,Л2; begin СПИС0К[с]: = 1; СПИСОК[с+1]:==6;

СПИС0К[с+2]: = КР 1; СПИСОЩс+3]: = -КР2;

СПИС0Щс+4]:=НОМЕР ЛАДЬИ; СПИСОК[с+5];=4;

СПИС0К1[с+6]:=Л1; СПИСОК[с+7]:=Л2;

СПИСОЩс+8]: =-Л1; СПИСОК[с+9]: = 1;