彩色項(xiàng)鏈解題報(bào)告

1、100000，因此無(wú)法將每步操作的項(xiàng)鏈都存下。k（k1）根項(xiàng)鏈；另一種每步programinp = necklace.in; oup=necklace.out; MaxM = 30;MaxN=n, m, Group100000，因此無(wú)法將每步操作的項(xiàng)鏈都存下。k（k1）根項(xiàng)鏈；另一種每步programinp = necklace.in; oup=necklace.out; MaxM = 30;MaxN=n, m, GroupDigit:array0.18Com:array1.MaxM,0.3Long: array0.MaxNdiv9Sour:array1.2,0.MaxNdiv9g:array

2、0.MaxN,1.2ch:char; i : longmand(Index ;Str:string; untilchinA.Z; Str := ;Str:=Str+ch; until not(chinif Str =then ComIndex,0if Str =then ComIndex,0:= fori:=1to2doread(ComIndex,i); elseif Str=then ComIndex,0:= for i:=1to2doif ComIndex,2 =9 then beginGroup := ndiv fori:=0toGroup -1doLongi:=18; LongGrou

3、p := n mod 18;elseGroup := ndiv fori:=0toGroup -2doLongi:=18; if Group 0then LongGroup -1 :=9 +n mod LongGroup:=9; elseLongGroup:=n; k := fori:=0toGroupforj:=1toLongido Sour1,i:=LongGroup:=9; elseLongGroup:=n; k := fori:=0toGroupforj:=1toLongido Sour1,i:=Sour1,i*10+ord(ch)-ord(0); gk,1 := i;gk,2:=j;

4、 k:=k +fori:=1tomdo Digit0 := 1;for i:=1to18doDigiti:=10*Digiti -1; procedureRun(Index: i,Start,Mid1, Mid2functionLoad( ,Len 64)Last, Group1, Group2, L1, L2 :Last := ( Group1:=g+ Len -1)mod Group2 := gLast,1; L1:=LongGroup1; L2 := if(Group1=Group2)and=then Load := (SourIndex,Group1 mod DigitL2 - gLa

5、st,2else Load := (SourIndex,Group1 - ,2 + 1) - ,2 + 1) DigitgLast,2+SourIndex,Group2divDigitL2 -gLast,2; procedureSave( ,Len,Mid1,Mid2Last,Group1,Group2,L2: Last := ( Group1:=g+ Len -1)mod Group2 := L2 := if(Group1=Group2)and= then SourIndex,Group1:= SourIndex,Group1 - (Mid1 - Mid2) * DigitL2 - else

6、L2 := if(Group1=Group2)and= then SourIndex,Group1:= SourIndex,Group1 - (Mid1 - Mid2) * DigitL2 - elseDigitgLast,2+Mid2div-DigitgLast,2-Mid2modDigitgLast,2)*DigitL2 -gLast,2; Start:=i := caseComi,0 1:Start:=Load(Comi,1,Comi,2)modn; 2 : beginMid1:=Load(Start,Mid2 := (Mid1 mod DigitComi,2) * DigitComi,

7、1 - +Mid1 div Save(Start,Comi,1,Mid1,Mid2); : Mid1:=Load(Start,Mid2:=(Mid1*Comi,2)modDigitComi,1; Save(Start, Comi,1, Mid1, Mid2);:ifLoad(Comi,1,1)=Comi,2theni:=Comi,3 -1; 5 : break;i := i+ untilfalse; functionEqual: ;i:long ;Equal :=fori:=0toGroupifSour1,iSour2,ithenexit; Equal := true;Step,i,Step,i,Speed1,