pascal-基本算法模块.docVIP

基本算法模块 For NOIP2007 Billy.Linux  模块目录 排序 选择排序 插入排序 冒泡排序 快速排序 堆排序 归并排序 线性时间排序 高精度 高精度比较 高精度加法 高精度减法 单精度乘法 高精度乘法 单精度除法 高精度除法 进制转换 数论 欧几里德算法 扩展欧几里德 求最小公倍数 求解线形同余方程 素数的判断 素数的生成 排列组合 排列生成算法 组合生成算法 排列按序生成法 排列字典序生成法 图论 图的读入 深度优先搜索 广度优先搜索 强连同分量 拓扑排序 最小生成树 最短路径 背包问题 装满背包 一维价值最大背包 二位价值最大背包  排序算法 var a:array[1..maxn]of longint;——排序对象 选择排序——Select_sort procedure select_sort; begin for i:=1 to n-1 do for j:=i+1 to n do if a[i]a[j] then begin temp:=a[i];a[i]:=a[j];a[j]:=temp;end; end; 插入排序——Insert_sort procedure insert_sort; begin for i:=2 to n do begin key:=a[i];j:=i-1; while (keya[j])and(j0) do begin a[j+1]:=a[j];dec(j);end; a[j+1]:=key; end; end; 冒泡排序——Bubble_sort procedure bubble_sort; begin for i:=1 to n-1 do for j:=n downto i+1 do if a[j]a[j-1] then begin temp:=a[j];a[j]:=a[j-1];a[j-1]:=temp;end; end; 快速排序——Quick_sort procedure qsort(s,t:longint); var i,j,x:longint; begin i:=s;j:=t;x:=a[(i+j)div 2]; repeat while a[i]x do inc(i); {找左边比他大的} while a[j]x do dec(j);{找右边比他小的} if i=j then{交换} begin temp:=a[i];a[i]:=a[j];a[j]:=temp; inc(i);dec(j); end; until ij; if sj then qsort(s,j); if it then qsort(i,t); end; 堆排序——Heap_sort procedure heap(i,n:longint);{将第i个元素向下筛} var j,x:longint; begin j:=i*2;x:=a[i]; while j=n do begin if (jn)and(a[j]a[j+1]) then inc(j); if xa[j] then begin a[i]:=a[j];i:=j;j:=i*2; end else j:=n+1; end; a[i]:=x; end; procedure heap_sort; begin for i:=n div 2 downto 1 do heap(i,n); for i:=n downto 2 do begin temp:=a[i];a[i]:=a[1];a[1]:=temp; heap(1,i-1); end; end; 归并排序——Merge_sort procedure mergesort(s,t:longint); var m,i,j,k:longint; begin if t-s=0 then exit; m:=(s+t)div 2; mergesort(s,m); mergesort(m+1,t); for i:=1 to m-s+1 do b[i]:=a[s+i-1]; for j:=m+1 to t do c[j-m]:=a[j]; i:=1;j:=1;b[m-s+2]:=max;c[t-m+1]:=max; for k:=s to t do if b[i]c[j] then begin a[k]:=b[i];inc(i);end else begin a[k]:=c[j];inc(j);end;