pascal選擇排序的優化

1樓：聽不清啊

program x1;

vara:array[1..10]of integer;

i,j,k,t:integer;

begin

for i:=1 to 10 do read(a[i]);

for i:=1 to 9 do

begin

k:=i;

for j:=i+1 to 10 do

if a[k]

t:=a[i]; a[i]:=a[k]; a[k]:=t;

end;

for i:=1 to 10 do write(a[i],' ');

end.

2樓：匿名使用者

書上的意思就是這個，其實沒什麼優化效果，看懂就好了program x1;

vara:array[1..10]of integer;

i,j,t,max,maxj:integer;

begin

for i:=1 to 10 do read(a[i]);

for i:=1 to 9 do

begin

max:=a[i];

maxj:=i;

for j:=i+1 to 10 do

if max

begin

max:=a[j];

maxj:=j;

end;

a[maxj]:=a[i];

a[i]:=max;

end;

for i:=1 to 10 do write(a[i],' ');

end.

星座的排序，十二星座排序

樑毅的娛樂日誌 依次為 白羊座 金牛座 雙子座 巨蟹座 獅子座 座 天秤座 天蠍座 射手座 摩羯座 水瓶座 雙魚座。1 白羊座 3.21 4.20 白羊座是黃道星座之一。白羊座雖然不引人注目，但在古希臘很著名，因為古代春分點就位於白羊座。現在由於歲差的關係，春分點已經移到雙魚座。白羊座在日本被稱為牡...

氣泡排序法是如何排序的

隨便什麼名啦啦 氣泡排序演算法的原理 1 比較相鄰的元素。如果第一個比第二個大，就交換他們兩個。2 對每一對相鄰元素做同樣的工作，從開始第一對到結尾的最後一對。在這一點，最後的元素應該會是最大的數。3 針對所有的元素重複以上的步驟，除了最後一個。4 持續每次對越來越少的元素重複上面的步驟，直到沒有任...

EXCEL排序問題？Excel排序的問題！

未明白題目中的每一行自動排序的意思，所以以下僅是針對如何將你的資料按照5行 空行的形式進行排序。1 首先計算你的資料條數是多數，假如是100，那麼100 5 20，那麼在你的資料前面插入一列序號，然後按照1到20排序。2 然後全選你標序的1到20，按ctrl，出現十字元號後雙擊，會自動生成5個1到2...