前言：
今天姐妹们对“pascal全排列算法”大体比较重视，大家都想要了解一些“pascal全排列算法”的相关文章。那么小编在网上网罗了一些对于“pascal全排列算法””的相关内容，希望咱们能喜欢，看官们一起来学习一下吧！图片格式
源代码：
{简单排序方法}{将100名学生的准考证号由小到大排列}PROGRAM sortwb(input,output);CONST n=100;TYPE psa=1..n; ps=ARRAY[psa,psa] OF psa;PROCEDURE sort(VAR psarl:psa);VAR max:ps; i,last,pos:integer;BEGIN FOR last:=100 DOWNTO 2 DO BEGIN pos:=1; max:=psarl[pos]; FOR i:=2 TO last DO WITH psarl[i] DO IF no>max.no THEN BEGIN pos:=i; max:=psarl[pos] END; psarl[pos]:psarl[last]; psarl[last]:=max ENDEND;BEGIN read(psa[n]); sort(psa[n]);END. 版权声明：
本站文章均来自互联网搜集，如有侵犯您的权益，请联系我们删除，谢谢。
标签： #pascal全排列算法
