Alogrithms
dhunter
这个作者很懒,什么都没留下…
展开
-
图论算法
二、图论算法1.最小生成树A.Prim算法:procedure prim(v0: Integer);var lowcost, closest: array[1..maxn] of Integer; i, j, k, Min: Integer;begin for i := 1 to n do begin lowcost[i] := cost[v0转载 2004-10-29 05:22:00 · 1087 阅读 · 0 评论 -
数论算法
一、数论算法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转载 2004-10-29 04:42:00 · 978 阅读 · 0 评论