pascal常用子程序.doc

常用算法子程序 基本数学类： 两个变量交换数值： procedure swap(a,b:integer;var c,d:integer); begin c:=b; d:=a; end; 两组数据交换数值： procedure swap(i,j:integer;); //传入两个数组的下标 var k,l:integer; begin for k:=1 to n do begin l:=a[i,k]; a[i,k]:=a[j,k]; a[j,k]:=l; end; end; 求两数的最大值： function max(a,b:integer):integer; begin If ab then max:=a else max:=b; end; 求一组数的最小值： function min(a:arr)of integer; var i:integer; begin min:=maxint; for i:=1 to a[0] do if mina[i] then min:=a[i]; end; 求两个数的最大公约数: function??gcd(a,b:integer):integer; ?begin? ???if?b=0?then?gcd:=a ?????else?gcd:=gcd(b,a?mod?b); end?; 判断一个数是否是素数 function?prime?(n:?integer):?Boolean;var?i:?integer;begin???? ?for?i:=2?to?trunc(sqrt(n))?do??????? if?n?mod?i=0?then? begin??? prime:=false;? exit; end;??? ??prime:=true;end; 求出1~n范围内的所有素数 procedure getprime(n:longint; var a:arr); var i,j,l:longint; t:array[1..50000] of boolean; begin fillchar(t,sizeof(t),true); t[1]:=false; i:=2; while in do begin if p[i] then begin j:=i*2; while jn do begin t[j]:=false; inc(j,i); end; end; inc(i); end; l:=0; for i:=1 to n do if t[i] then begin inc(l);a[l]:=i; end; a[0]:=l; end; 进位制转换： （1）十进制转k进制: ///////////////////////////////////////////////////////整数/////////////////////////////////////////////////////////////// procedure trans_10_k(n,k:longint;var a:arr); var i:longint; begin fillchar(a,sizeof(a),0); while n0 do begin inc(a[0]); a[a[0]]:=n mod k; n:=n div k; end; If a[0]=0 then a[0]:=1; end; /////////////////////////////////////////////////////////小数/////////////////////////////////////////////////////////// procedure trans_10_k(m:real;l,k:integer; var a:arr); //小数(l=16时相当于十进 //制的第5位) begin fillchar(a,sizeof(a),0); while (m0)and(a[0]=l) do begin m