信息學竞赛常用算法.docVIP

信息学竞赛常用算法!!!算法大全 一、数论算法 1．求两数的最大公约数 function??gcd(a,b:integer):integer;?begin????if?b=0?then?gcd:=a?????else?gcd:=gcd?(b,a?mod?b);?end?; 2．求两数的最小公倍数 function??lcm(a,b:integer):integer;?begin???if?ab?then?swap(a,b);???lcm:=a;???while?lcm?mod?b0?do?inc(lcm,a);?end; 3．素数的求法 A.小范围内判断一个数是否为质数：?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; B.判断longint范围内的数是否为素数（包含求50000以内的素数表）：???procedure?getprime;?????var????????i,j:longint;???????p:array[1..5000