(完整word版)排序算法題目及其代碼

1、排序算法題目及其代碼1、明明的隨機數(shù)( Noip2006) 【問題描述】明明想在學校中請一些同學一起做一項問卷調查， 為了實驗的客觀性， 他先用計 算機生成了 N 個 1 到 1000 之間的隨機整數(shù)(NK100),對于其中重復的數(shù)字， 只保留一個， 把其余相同的數(shù)去掉， 不同的數(shù)對應著不同的學生的學號。 然后再 把這些數(shù)從小到大排序，按照排好的順序去找同學做調查。請你協(xié)助明明完成 “去重”與“排序”的工作?！据斎胛募枯斎胛募?random.in 有 2 行，第 1 行為 1 個正整數(shù)，表示所生成的隨機數(shù)的個數(shù)： N 第 2 行有 N 個用空格隔開的正整數(shù)，為所產(chǎn)生的隨機數(shù)?！据敵鑫募枯敵?/p>

2、文件 random.out 也是 2 行， 第 1 行為 1 個正整數(shù) M 表示不相同的隨機數(shù) 的個數(shù)。第 2 行為 M 個用空格隔開的正整數(shù)，為從小到大排好序的不相同的隨機 數(shù)?！据斎霕永?020 40 32 67 40 20 89 300 400 15【輸出樣例】815 20 32 40 67 89 300 400【參考程序】var n,s:byte;i,min,max,x:word;b:array1.1000of boolean;beginassign(input,random.in);reset(input);assign(output,random.out);rewrite(out

3、put);readln(n);fillchar(b,sizeof(b),false); min:=1000;max:=0;s:=0;for i:=1 to n dobeginread(x);bx:=true;if xmax then max:=x;end;close(input);for i:=min to max do if bi then inc(s);writeln(s);for i:=min to max do if bi then write(i, );close(output);end.2、車廂重組( carry.pas )【問題描述】在一個舊式的火車站旁邊有一座橋， 其橋面可以繞

4、河中心的橋墩水平旋轉。 一個 車站的職工發(fā)現(xiàn)橋的長度最多能容納兩節(jié)車廂， 如果將橋旋轉 180 度，則可以把 相鄰兩節(jié)車廂的位置交換， 用這種方法可以重新排列車廂的順序。 于是他就負責 用這座橋將進站的車廂按車廂號從小到大排列。 他退休后， 火車站決定將這一工 作自動化，其中一項重要的工作是編一個程序， 輸入初始的車廂順序， 計算最少 用多少步就能將車廂排序?！据斎胛募枯斎胛募袃尚袛?shù)據(jù)，第一行是車廂總數(shù)N (不大于 10000),第二行是 N 個不同的數(shù)表示初始的車廂順序。【輸出文件】一個數(shù)據(jù)，是最少的旋轉次數(shù)?！据斎霕永?carry .in44 3 2 1【輸出樣例】 carry .o

5、ut6【參考程序】var n,i,j,t:word;a:array1.10000of word;change:boolean;s:longword;beginassign(input,carry.in);reset(input); assign(output,carry.out);rewrite(output);readln(n);for i:=1 to n do read(ai);close(input);s:=0;i:=1;repeatchange:=false;for j:=1 to n-i doif ajaj+1 then begin t:=aj;aj:=aj+1;aj+1:=t;ch

6、ange:=true; inc(s);end;until not change;writeln(s);end.3、眾數(shù) (masses.pas) 【問題描述】由文件給出 N 個 1 到 30000 間無序數(shù)正整數(shù)，其中 K NK10000,同一 個正close(output);整數(shù)可能會出現(xiàn)多次， 出現(xiàn)次數(shù)最多的整數(shù)稱為眾數(shù)。 求出它的眾數(shù)及它出 現(xiàn)的次數(shù)?！据斎敫袷健枯斎胛募谝恍惺钦麛?shù)的個數(shù) N,第二行開始為 N 個正整數(shù)。 【輸出格式】輸出文件有若干行，每行兩個數(shù)，第 1 個是眾數(shù)，第 2 個是眾數(shù)出現(xiàn)的 次數(shù)?！据斎霕永?masses.in122 4 2 3 2 5 3 7 2 3

7、 4 3 【輸出樣例】 masses.out2434 【參考程序】var n,i,x,min,max,maxx:word; a:array1.30000of word;beginassign(input,masses.in);reset(input);assign(output,masses.out);rewrite(output); fillchar(a,sizeof(a),0);min:=30000;max:=0;maxx:=0;readln(n);for i:=1 to n do begin read(x); if xmax then max:=x;inc(ax); if axmaxx

8、then maxx:=ax; end;for i:=min to max do if ai=maxx then writeln(i, ,ai);close(input);close(output);end.4、第 k 小整數(shù) (knunber.pas) 【問題描述】現(xiàn)有 n 個正整數(shù)，nW10000,要求出這 n 個正整數(shù)中的第 k 個最小整數(shù) (相同大小的整數(shù)只計算一次)，k 1000，正整數(shù)均小于 30000?！据斎敫袷健康谝恍袨?n 和 k，第二行開始為 n 個正整數(shù)的值，整數(shù)間用空格隔開。【輸出格式】第 k 個最小整數(shù)的值；若無解，則輸出“ NO RESUL”T ?！据斎霕永?knu

9、nber.in10 31 3 3 7 2 5 1 2 4 6【輸出樣例】 knunber.out3【參考程序】var n,k,i,x,min,max,s:word; b:array1.30000of boolean;beginassign(input,knumber.in);reset(input);assign(output,knumber.out);rewrite(output); fillchar(b,sizeof(b),false);min:=30000;max:=0;s:=0; readln(n,k);for i:=1 to n dobeginread(x); bx:=true; i

10、f xmax thenmax:=x;end; close(input); for i:=min to max do begin if bi then inc(s); if s=kthen begin writeln(i); close(output); halt; end;end;writeln(NO RESULT); close(output);end.5、軍事機密 (Secret.pas)【問題描述】軍方截獲的信息由 n (n=30000)個數(shù)字組成，因為是敵國的高端秘密，所以一 時不能破獲。最原始的想法就是對這 n 個數(shù)進行小到大排序，每個數(shù)都對應一個 序號，然后對第 i 個是什么數(shù)感興

11、趣，現(xiàn)在要求編程完成?！据斎敫袷健康谝恍?n，接著是 n 個截獲的數(shù)字，接著一行是數(shù)字 k，接著是 k 行要輸 出數(shù)的序號?！据敵龈袷健?k 行序號對應的數(shù)字。【輸入樣例】 Secret.in5121 1 126 12373243【輸出樣例】 Secret.out7123121【參考程序】var n,i,k:word;a:array1.30000of longword;procedure qsort(l,r:longword);var pl,pr,m,t:longword;beginpl:=l;pr:=r;m:=a(l+r)shr 1;repeatwhile aplm do dec(pr);if plpr;if pll then qsort(l,pr);end;qsortbeginmainassign(input,secret.in);reset(input);assi