Шпаргалка: Построение циклических кодов

dec(j);

end;

if((j=-1)and(Kol=0))

then begin

for i:=n1 downto 0 do

r2[i]:=r2[i] xor p2[i];

end

else flag:=Kol;

end;

end

else if(n1=j)

then begin

for i:=n1 downto 0 do

begin

r2[i]:=m2[j];

dec(j);

end;

for i:=n1 downto 0 do

r2[i]:=r2[i] xor p2[i]

end

else if(j<n1)

then begin

for i:=j downto 0 do

r2[i]:=m2[i]

end;

end;

Procedure BildMoveCode(var m3:Move_code;r3:Rest;var flag:integer);

var

i,k:integer;