.

, .

4. , , (, ), , . , . , 64 ( ) X 30 ( ) X 4 () =7680 , , .

, , . , , ( , ).

- 5-10 , , . , , . (Atlas Basic) 10 .

-- CDC 6600, - .

, , - SRC Atlas . - .

. , (. . ); , . , , .

ICL 1900 81], . 28. (

28

I

2

()

()

()

()

d2 -d4

8 -

2-4

d7 -d5

2 -4

17-6

e4:d5

d8:d5

d4~d5

Cf8-4-

d2-d4

Kg8-f6

2

4 -5

Ccl-f4

d5 -e4-b

2-4

6:4

Cf4 -

Cc8 -d7

:4

*d8 -f6

d4 -d5

e4:d5

4:5

!6:1

dl:d5

, Kf6:d5

Cf - d3

1:2

-c5

e7-e5

Kgl-f3

e6:d5

Cc5:f8

Kpe8:f8

e4:d5

a2:d5

Cfl-d3

Kd5 - f 4

2 -

d5:c5

Cd3 - c4

Kf4:g7--

Ccl - d2

Kpel - d2

h7-h5

-c3

8 - h6



, .) , . . .

, . 1 , - 1900. , , .

; . [5i], , , «Alpha-Beta pruning» iJ7i], [61].

«» .

50CJ *

begin integer 1,],,,,1,1,2,2; Boolean ;

integer array , [1:576], , 0:259], , [36:227], , [0:16], , [l:65],c,q,HOMEP, , , [1:5],1[1:500]; procedure ; 4:;

procedure ( . ,

,,);

integer ; label ;

integer array . , ; begin integer c,i,j,k,m,p, ;

switch :=,, , ,

,; procedure ;

2:; procedure ( ); integer array ; begin ]:=90; for i:=j- ]] step 1 until j-1 do if 01 [1]]=0 then begin

if [ 00]]=6 then

go to ; c: = c+l; ]:= end

end ;

* : 576 =9 X64; 259=4X64+3; 36=4X9; 227=4X56+3; 5 - , 500 - ( , . {. .)



eiirecedure ( ); Integer array ; begin

for j:=0 step 1 until 3 do

begin := ]; := 0[40+; -

for 1:=0+ step until m do begin

if then

go to ; c:=ic-l-.l; CnHCOKfic]:=i; if =#=0 then

go to if 0[;]=6 then else

end i;

: end j

end ; procedure ( ); Integer array ; begin

for 1:=4,1- do begin ]-:= ]; if ]:#0 V []]:#0 then

go to ; :=+1 ;: = j end i;

EKO:for 1:=4+2+1 do 2: if [ then

begin

if ]=6 then

go to ; -.=+1; []:= 1] end i

end ; : = ;

for : = step -1 until 1 do begin : = ;

if []=0 thengo to ; []:=; 0[+1]:=0 ]; 0+2]:=0; :=+2; go to [ 0[0]]; : if [0] = 1 then ( ) else ( ); go to ;

: ( ); go to ; : ( ); go to ; : ( ); go to ; : ( ); : ( ); : if []=? then

begin CnHCOKfc+l]:-; :=+2 end else

:=-2; : end ;





0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 [31] 32 33 34 35 36 37 38 39 40 41 42 43

0.0041