鏁版嵁緇撴瀯絎簩绔犲～絀洪鍙?qiáng)鍙傝€冪瓟妗圼6]_璺ㄨ€冪綉

澶嶄範(fàn)绱у紶錛岀劍澶寸儌棰濓紵閫嗛杞昏錛屾潵璺ㄨ€冪瀛ｉ泦璁惀錛屽府浣犲鏂規(guī)硶錛屽畾鏂規(guī)錛?/span> 浜嗚В涓€涓?>

1錛庨槄璇諱互涓嬬畻娉曪紝濉厖絀烘牸錛屼嬌鍏舵垚涓哄畬鏁寸殑綆楁硶銆傚叾鍔熻兘鏄湪涓€涓潪閫掑噺鐨勯『搴忓瓨鍌ㄧ嚎鎬ц〃涓紝鍒犻櫎鎵€鏈夊€肩浉絳夌殑澶氫綑鍏冪礌銆?/span>

聽

銆€銆€CONST maxlen=30

聽

銆€銆€TYPE sqlisttp=RECORD

聽

銆€銆€elem:ARRAY[1..maxlen] OF integer;

聽

銆€銆€last:0..maxlen

聽

銆€銆€END;

聽

銆€銆€PROC exam21(VAR L:sqlisttp);

聽

銆€銆€j:=1; i:=2;

聽

銆€銆€WHILE (1)______ DO

聽

銆€銆€[ IF L.elem[i]<>L.elem[j] THEN [ (2)_______; (3)______];

聽

銆€銆€i:=i+1 ]

聽

銆€銆€(4) ________;

聽

銆€銆€ENDP;銆?a target="_blank">鍚屾祹澶у 2000 浜屻€?/span>1 (10鍒?/span>)銆?/span>

聽

銆€銆€銆愬弬鑰冪瓟妗堛€?/span>

聽

銆€銆€(1)i<=L.last 鈭?/span>L.last 涓哄厓绱犱釜鏁?/span>

聽

銆€銆€(2)j:=j+1 鈭ユ湁鍊間笉鐩哥瓑鐨勫厓绱?/span>

聽

銆€銆€(3)L.elem[j]:=L.elem[i] 鈭ュ厓绱犲墠縐?/span>

聽

銆€銆€(4)L.last:=j 鈭ュ厓绱犱釜鏁?/span>

銆€2錛庡湪鏈鐨勭▼搴忎腑錛屽嚱鏁拌繃紼?/span>Create_link_list(n)寤虹珛涓€涓叿鏈?/span>n涓粨鐐圭殑鐜艦閾捐〃;紼嬪簭榪囩▼ josephus(n,i,m)瀵圭敱Create_link_list(n)鎵€寤虹珛鐨勫叿鏈?/span>n涓粨鐐圭殑鐜艦閾捐〃鎸変竴瀹氱殑嬈″簭閫愪釜杈撳嚭騫跺垹闄ら摼琛ㄤ腑鐨勬墍鏈夌粨鐐癸紝鍙傛暟 n(n>0)鎸囨槑鐜艦閾捐〃鐨勭粨鐐逛釜鏁幫紝鍙傛暟 i(1<=i<=n)鎸囨槑璧峰緇撶偣錛屽弬鏁?/span> m (m>0)鏄闀匡紝鎸囨槑浠庤搗濮嬬粨鐐規(guī)垨鍓嶆琚垹闄ゅ茍杈撳嚭鐨勭粨鐐逛箣鍚庣殑絎?/span>m涓粨鐐逛綔涓烘湰嬈¤杈撳嚭騫跺垹闄ょ殑緇撶偣銆備緥濡傦紝瀵逛簬涓嬪浘涓叿鏈?/span>6涓粨鐐圭殑鐜艦閾捐〃錛屽湪璋冪敤 josephus(6,3,2)鍚庯紝灝嗚緭鍑?/span> 5,1,3,6,4,2 璇峰湪妯嚎澶勫～涓婇€傚綋鍐呭錛屾瘡絀哄彧濉竴涓鍙ャ€?/span>

聽

銆€銆€TYPE nodeptr=^nodetype;

聽

銆€銆€nodetype=RECORD

聽

銆€銆€data: intrger; link: nodeptr

聽

銆€銆€END;

聽

銆€銆€VAR n,i,m: integer;

聽

銆€銆€FUNCTION Create_link_list(n: integer): nodeptr;

聽

銆€銆€VAR head,p,q: nodeptr; i:integer;

聽

銆€銆€BEGIN head := NIL;

聽

銆€銆€IF n>0 THEN

聽

銆€銆€BEGIN new(head); p: =head;

聽

銆€銆€FOR i:=1 TO n-1 DO

聽

銆€銆€BEGIN p^.data:=i; new(q); (A)____; (B)____ END錛?/span>

聽

銆€銆€p^.data:=n; (C)___;

聽

銆€銆€END;

聽

銆€銆€Creat_link_list:=head

聽

銆€銆€END;

PROCEDURE josephus(n,i,m:integer);

聽

銆€銆€VAR p,q:nodeptr; j:integer;

聽

銆€銆€BEGIN p:=Creat_link_list(n);

聽

銆€銆€WHILE i>1 DO BEGIN p:=p^.link; i:=i-1 END;

聽

銆€銆€(D)___ ;

聽

銆€銆€WHILE j<n DO

聽

銆€銆€BEGIN

聽

銆€銆€FOR i:=1 TO m-1 DO p:=p^.link;

聽

銆€銆€(E)___; write(q^.data:8); (F)__ ;

聽

銆€銆€dispose(q); j:=j+1

聽

銆€銆€END

聽

銆€銆€END;銆?a target="_blank">澶嶆棪澶у 1997 鍥涳紙12鍒嗭級(jí)銆?/span>

聽

銆€銆€銆愬弬鑰冪瓟妗堛€?/span>

聽

銆€銆€(A)p^.link:=q;鈭ユ媺涓婇摼錛屽墠椹辨寚鍚戝悗緇?/span>

聽

銆€銆€(B)p:=q;鈭ユ柊鐨勫墠椹?/span>

聽

銆€銆€(C)p^.link:=head;鈭ュ艦鎴愬驚鐜摼琛?/span>

聽

銆€銆€(D)j:=0; 鈭ヨ鏁板櫒錛岃琚垹緇撶偣

聽

銆€銆€(E)q:=p^.link鈭ヨ涓嬭鍒犵粨鐐?/span>

聽

銆€銆€(F)p^.link=q^.link 鈭ュ垹闄ょ粨鐐?/span>