鏁版嵁緇撴瀯絎簲绔犲～絀洪鍙婄瓟妗圼12]_璺ㄨ€冪綉

聽1. 綰︾憻澶幆闂錛氳鏈?/span>n涓漢鍥村潗涓€鍦堬紝騫舵寜欏烘椂閽堟柟鍚?/span>1鈥?/span>n緙栧彿銆備粠絎?/span>s涓漢寮€濮嬭繘琛屾姤鏁幫紝鎶ユ暟鍒扮m涓漢錛屾浜哄嚭鍦堬紝鍐嶄粠浠栫殑涓嬩竴涓漢閲嶆柊寮€濮嬩粠1鍒?/span>m鐨勬姤鏁拌繘琛屼笅鍘?/span> 錛岀洿鍒版墍鏈夌殑浜洪兘鍑哄湀涓烘銆?/span>

銆€銆€PROCEDURE Josef (A:ARRAY [1..n] OF integer; s,m:integer);

銆€銆€BEGIN

銆€銆€FOR i:= 1 TO n DO A[i]:=i;

銆€銆€sl:=s;

銆€銆€FOR i:=n DOWNTO 2 DO

銆€銆€BEGIN sl:= (1) __錛?/span>//璁＄畻鍑哄湀浜?/span>s1

銆€銆€IF sl=0 THEN (2) _錛?/span>

銆€銆€w:=A[sl]; //A[s1]鍑哄湀

銆€銆€FOR j:= (3) __ DO A[j]:=A[j+1];

銆€銆€A[i]:=w;

銆€銆€END;

銆€銆€write('鍑哄湀搴忓垪涓猴細鈥?/span>)錛?/span>//杈撳嚭鍑哄湀搴忓垪

銆€銆€FOR i :=n DOWNTO 1 DO write(A[i]); writeln 錛?/span>

銆€銆€END;

銆€銆€銆?a target="_blank">鍗庡崡甯堣寖澶у 2000 浜斻€?/span>2 (9鍒?/span>)銆?/span>

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

銆€銆€鏈闅劇偣鏈変簩錛氫竴鏄浣曟眰涓嬩竴鍑哄湀浜虹殑浣嶇疆錛屼簩鏄煇浜哄嚭鍦堝悗瀵硅浜虹殑浣嶇疆濡備綍澶勭悊銆?/span>

銆€銆€鎸夐涓姹傦紝浠庣s涓漢寮€濮嬫姤鏁幫紝鎶ュ埌絎?/span>m涓漢錛屾浜哄嚭鍦堛€?/span>n涓漢鍥存垚涓€鍦堬紝鍙湅浣滅幆鐘訛紝鍒欎笅涓嚭鍦堜漢錛屽叾浣嶇疆鏄?/span>(s+m-1)%n銆?/span>n鏄漢鏁幫紝鏄釜鍙橀噺錛屽嚭鍦堜竴浜哄噺1錛岀畻娉曚腑鐢?/span>i琛ㄧず銆傚絎簩涓棶棰橈紝綆楁硶涓敤鍑哄湀浜哄悗闈漢鐨勪綅緗緷嬈″墠縐伙紝騫舵妸鍑哄湀浜虹殑浣嶇疆錛堜笅鏍囷級瀛樻斁鍒板綋鏃舵渶鍚庝竴涓漢鐨勪綅緗紙涓嬫爣錛夈€傜畻娉曟渶鍚庢墦鍗板嚭鍦堜漢鐨勯『搴忋€?/span>

銆€銆€錛?/span>1錛?/span>(s+m-1) MOD i //璁＄畻鍑哄湀浜?/span>s1

銆€銆€錛?/span>2錛?/span>s1:=i //鑻?/span>s1=0,璇存槑鏄i涓漢鍑哄湀錛?/span>i%i=0錛?/span>

銆€銆€錛?/span>3錛?/span>s1 TO i-1 //浠?/span>s1鍒?/span>i渚濇鍓嶇Щ錛屼嬌浜烘暟鍑?/span>1錛屽茍灝嗗嚭鍦堜漢鏀懼埌褰撳墠鏈€鍚庝竴涓綅緗?/span>A[i]=w銆?/span>