基本算法模块要领.docVIP

时　间： 2009-8-20 地　点： N 讲述人： noip2007 记录人： li_ 主　题： 基本算法模块 基本算法模块For NOIP2007Billy.Linux 模块目录一、 排序1． 选择排序2． 插入排序3． 冒泡排序4． 快速排序5． 堆排序6． 归并排序7． 线性时间排序二、 高精度1． 高精度比较2． 高精度加法3． 高精度减法4． 单精度乘法5． 高精度乘法6． 单精度除法7． 高精度除法8． 进制转换三、 数论1． 欧几里德算法2． 扩展欧几里德3． 求最小公倍数4． 求解线形同余方程5． 素数的判断6． 素数的生成四、 排列组合1． 排列生成算法2． 组合生成算法3． 排列按序生成法4． 排列字典序生成法五、 图论1． 图的读入2． 深度优先搜索3． 广度优先搜索4． 强连同分量5． 拓扑排序6． 最小生成树7． 最短路径六、 背包问题1． 装满背包2． 一维价值最大背包3． 二位价值最大背包 一、 排序算法vara:array[1..maxn]of longint;——排序对象1． 选择排序——Select_sortprocedure select_sort;beginfor i:=1 to n-1 do for j:=i+1 to n doif a[i]a[j] then begin temp:=a[i];a[i]:=a[j];a[j]:=temp;end;end;2． 插入排序——Insert_sortprocedure insert_sort;beginfor i:=2 to n dobeginkey:=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;3． 冒泡排序——Bubble_sortprocedure bubble_sort;beginfor i:=1 to n-1 dofor j:=n downto i+1 doif a[j]a[j-1] thenbegin temp:=a[j];a[j]:=a[j-1];a[j-1]:=temp;end;end;4． 快速排序——Quick_sortprocedure qsort(s,t:longint);var i,j,x:longint;begini:=s;j:=t;x:=a[(i+j)div 2];repeatwhile 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;5． 堆排序——Heap_sortprocedure heap(i,n:longint);{将第i个元素向下筛}var j,x:longint;beginj:=i*2;x:=a[i];while j=n dobeginif (jn)and(a[j]a[j+1]) then inc(j);if xa[j]then begin a[i]:=a[j];i:=j;j:=i*2; endelse j:=n+1;end;a[i]:=x;end;procedure heap_sort;beginfor i:=n div 2 downto 1 do heap(i,n);for i:=n downto 2 dobegin temp:=a[i];a[i]:=a[1];a[1]:=temp; heap(1,i-1);end;end;6． 归并排序——Merge_sortprocedure mergesort(s,t:longint);varm,i,j,k:longint;beginif 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-