鏁版嵁緇撴瀯絎簲绔犵畻娉曡璁￠[2]_璺ㄨ€冪綉

1. 璁炬暣鏁?/span>x1,x2,鈥?/span>,xN宸插瓨鏀懼湪鏁扮粍A涓紝緙栧啓涓€PASCAL閫掑綊榪囩▼錛岃緭鍑轟粠榪?/span>n涓暟涓彇鍑烘墍鏈?/span>k 涓暟鐨勬墍鏈夌粍鍚堬紙k<=n錛夈€備緥錛氳嫢A涓瓨鏀劇殑鏁版槸1錛?/span>2錛?/span>3錛?/span>4錛?/span>5錛?/span>k涓?/span>3錛屽垯杈撳嚭緇撴灉搴斾負(fù)錛?/span>543錛?/span>542錛?/span>541錛?/span>532錛?/span>531錛?/span>521錛?/span>432錛?/span>431錛?/span>421錛?/span>321銆?/span> 銆?a target="_blank">灞變笢澶у 1992 浜?/span> (13鍒?/span>)銆?/span>

銆€銆€綾諱技鏈鐨勫彟澶栧彊榪版湁錛?/span>

銆€銆€錛?/span>1錛夐鐩熀鏈浉鍚岋紝鍙槸鍙欒堪涓嶅悓錛岃姹傜敤PASCAL璇█銆傘€?a target="_blank">涓滃崡澶у 2001 涓?/span> 錛?/span>10鍒嗭級(jí)銆?/span>

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

銆€銆€[棰樼洰鍒嗘瀽]浠?/span>n涓暟涓紝鍙栧嚭鎵€鏈?/span>k涓暟鐨勬墍鏈夌粍鍚堛€傝鏁板凡瀛樹簬鏁扮粍A[1..n]涓€備負(fù)浣跨粨鏋滃敮涓€錛屽彲浠ュ垎鍒眰鍑哄寘鎷?/span>A[n]鍜屼笉鍖呮嫭A[n]鐨勬墍鏈夌粍鍚堛€傚嵆鍖呮嫭A[n]鏃訛紝姹傚嚭浠?/span>A[1..n-1]涓彇鍑?/span>k-1涓厓绱犵殑鎵€鏈夌粍鍚堬紝涓嶅寘鎷?/span>A[n]鏃訛紝姹傚嚭浠?/span>A[1..n-1]涓彇鍑?/span>k涓厓绱犵殑鎵€鏈夌粍鍚堛€?/span>

銆€銆€CONST n=10錛?/span>k=3錛?/span>

銆€銆€TYPE ARR=ARRAY[1..n] OF integer錛?/span>

銆€銆€VAR A錛?/span>B錛?/span>ARR錛?/span>// A涓瓨鏀?/span>n涓嚜鐒舵暟錛?/span>B涓瓨鏀捐緭鍑虹粨鏋溿€?/span>

銆€銆€PROC outresult錛?/span>//杈撳嚭緇撴灉

銆€銆€FOR j錛?/span>=1 TO k DO write錛?/span>B[j]錛夛紱writeln錛?/span>

銆€銆€ENDP錛?/span>

銆€銆€PROC nkcombination錛?/span>i,j,k錛?/span>integer錛夛紱

銆€銆€//浠?/span>i涓暟涓繛緇彇鍑?/span>k涓暟鐨勬墍鏈夌粍鍚堬紝i涓暟宸插瓨鍏ユ暟緇?/span>A涓紝j涓虹粨鏋滄暟緇?/span>B涓殑涓嬫爣銆?/span>

銆€銆€IF k=0 THEN outresult

銆€銆€ELSE IF錛?/span>i-k鈮?/span>0錛?/span>THEN [ B[j]:=A[i]錛?/span>j:=j+1錛?/span>

銆€銆€nkcombination錛?/span>i-1錛?/span>k-1錛?/span>j錛夛紱

銆€銆€nkcombination錛?/span>i-1錛?/span>k錛?/span>j-1錛夛紱]

銆€銆€ENDP錛?/span>

銆€銆€[綆楁硶璁ㄨ]鏈畻娉曡皟鐢ㄦ椂錛?/span>i鏄暟鐨勪釜鏁幫紙棰樼洰涓殑n錛夛紝k鈮?/span>i錛?/span>j鏄粨鏋滄暟緇勭殑涓嬫爣銆傛寜棰樹腑渚嬪瓙錛岀敤nkcombination錛?/span>5錛?/span>1錛?/span>3錛夎皟鐢ㄣ€傝嫢鎯蟲寜姝ｅ簭杈撳嚭錛屽123錛?/span>124錛屸€︼紝鍙皢鏉′歡琛ㄨ揪寮?/span>i-k鈮?/span>0鏀逛負(fù)i+k-1鈮?/span>n錛屽叾涓?/span>n鏄暟鐨勪釜鏁幫紝i鍒濆璋冪敤鏃朵負(fù)1錛屼袱涓皟鐢ㄨ鍙ヤ腑鐨?/span>i-1鍧囨敼涓?/span>i+1銆?/span>