1樓：日知月
repeat
while a[p]mid do dec(q);
if p<=q then begin temp:=a[p];a[p]:=a[q];a[q]:=temp;end;
inc(p);dec(q);
until p>q;
這段程式應是：
repeat
while a[p]mid do dec(q);
if p<=q then begin temp:=a[p];a[p]:=a[q];a[q]:=temp;
inc(p);dec(q);
end;
until p>q;
其它都是正確的
2樓：
我先到我先得吧
你的問題應該出在
procedure qsort(m,n:integer);
這一句吧,n是全域性變數,最好不要做過程函式的引數
3樓：桂朵
mid:=a[(m+n)div 2];
最好寫成
mid:=a[random(m-n+1)+n];
隨機化的比較快
4樓：汗青照古
在pp/demo/test中有sqort.pp
快排程式
腎結石怎麼排出的快，腎結石怎麼排出快？
排腎結石的方法有很多種，常見的有服用藥物排石，比如甲流酸多沙唑嗪緩釋片，可以 腎結石，同時也應該重視飲食的調理，少吃含草酸鹽，含量高的食物，嘗試一些跳躍運動有助於排石。排腎結石最好最快的方法有哪些 1 服用藥物排石 甲磺酸多沙唑嗪緩釋片可 腎結石，具有消炎止痛的功效，用藥方法為每日一次。服用藥物後，...
膀胱結石多喝水可以直接排出嗎，尿結石快排出體外是怎麼樣的
您好，我是一名普外科醫生。尿結石就是指泌尿繫結石，而泌尿系包括 腎 輸尿管 膀胱 尿道 一般腎和輸尿管結石會導致腎區疼痛，也就是兩側腰的部位。膀胱結石和尿道結石是不會引起腰痛的。建議您到醫院做泌尿系b超或彩超檢查，看結石的具體部位和大小，視具體情況來進行手術或是服藥逾石嗵茶 願意的話可以把檢查結果發...
怎麼教育孩子快急，怎麼教育孩子 快急！！
我們在生活中都會遇到孩子的教育問題，無論是旁觀者也好，還是自己的親身經歷，下面介紹下怎樣正確教育孩子。學會傾聽是父母給孩子最好的教育？孩子的錯誤要讓他自己承擔，試試床頭教育！怎麼教育孩子？要注意什麼呢？改變自己的教育方法 不能慣著孩子 提前給予孩子 在社會生存的能力 以及優秀的綜合素質 你今天慣著他...