1 / 24
文档名称:

必背经典算法(pascal).doc

格式:doc   页数:24页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

必背经典算法(pascal).doc

上传人:xxj16588 2016/1/5 文件大小:0 KB

下载得到文件列表

必背经典算法(pascal).doc

相关文档

文档介绍

文档介绍:一、(a,b:integer):integer;beginifb=0thengcd:=aelsegcd:=gcd(b,amodb);end;(a,b:integer):integer;beginifa<bthenswap(a,b);lcm:=a;whilelcmmodb>0doinc(lcm,a);end;:functionprime(n:integer):Boolean;varI:integer;beginforI:=2totrunc(sqrt(n))doifnmodI=0thenbeginprime:=false;exit;end;prime:=true;end;(包含求50000以内的素数表):proceduregetprime;vari,j:longint;p:array[1..50000]ofboolean;beginfillchar(p,sizeof(p),true);p[1]:=false;i:=2;whilei<50000dobeginifp[i]thenbeginj:=i*2;whilej<50000dobegin{筛选法}p[j]:=false;inc(j,i);end;end;inc(i);end;l:=0;fori:=1to50000doifp[i]thenbegininc(l);pr[l]:=i;end;end;{getprime}functionprime(x:longint):boolean;vari:integer;beginprime:=false;fori:=1toldoifpr[i]>=xthenbreakelseifxmodpr[i]=0thenexit;prime:=true;end;{prime}二、:procedureprim(v0:integer);varlowcost,closest:array[1..maxn]ofinteger;i,j,k,min:integer;beginfori:=1tondobeginlowcost:=cost[v0,i];closest:=v0;end;fori:=1ton-1dobegin{寻找离生成树最近的未加入顶点k}min:=maxlongint;forj:=1tondoif(lowcost[j]<min)and(lowcost[j]<>0)thenbeginmin:=lowcost[j];k:=j;end;lowcost[k]:=0;{将顶点k加入生成树}{生成树中增加一条新的边k到closest[k]}{修正各点的lowcost和closest值}forj:=1tondoifcost[k,j]<lwocost[j]thenbeginlowcost[j]:=cost[k,j];closest[j]:=k;end;end;end;{prim}:(贪心)按权值递增顺序删去图中的边,若不形成回路则将此边加入最小生成树。functionfind(v:integer):integer;{返回顶点v所在的集合}vari:integer;begini:=1;while(i<=n)and(notvinvset)doinc(i);ifi<=nthenfind:=ielsefind:=0;end;procedurekruskal;vartot,i,j:integer;beginfori:=1tondovset:=;{初始化定义n个集合,第I个集合包含一个元素I}p:=n-1;q:=1;tot:=0;{p为尚待加入的边数,q为边集指针}sort;{对所有边按权值递增排序,存于e中,,}whilep>0dobegini:=find(e[q].v1);j:=find(e[q].v2);ifi<>jthenbegininc(tot,e[q].len);vset:=vset+vset[j];vset[j]:=[];dec(p);end;inc(q);end;writeln(tot);end;:vara:array[1..maxn,1..maxn]ofinteger;b:array[1..maxn]ofinteger;{b指顶点i到源点的最短路径}mark:array[1..maxn]ofboolean;procedurebhf;varbest,best_j:integer;beginfillchar(mark,sizeo

最近更新

仓库、隧道爆破施工的安全事故预案与仓库火灾.. 5页

粮食检验知识培训 68页

交通局实践科学发展观调研阶段总结与交通局本.. 16页

类文本阅读题型归纳总结 11页

云南省最新版保育员四级专业能力考试试题试卷.. 12页

云南省2020年小升初数学能力测试试题-附解析 4页

云南省2019-2020年度保育员理论考试试题试卷及.. 11页

云南省2018年保育员五级业务能力考试试题试卷.. 10页

“幼儿园大二班九月份区域活动计划”幼儿园工.. 3页

2021年一级建造师《机电工程管理与实务》试题.. 8页

管理提升案例之刀具全寿命 20页

管理信息系统案例分析手机销售系统分析与设计.. 24页

店面装修合同样本范文3篇 49页

工业园区厂房翻新协议3篇 52页

展览器材搬迁运输协议3篇 53页

基于STL容器的分布式计算框架优化策略-全面剖.. 26页

家电产品海运合同示范文本3篇 52页

乳杆菌在治疗儿童感染性疾病中的应用前景-全面.. 27页

如何明确岗位职责岗位分析资料 38页

气性坏疽外科手术策略-全面剖析 35页

认知神经科学-全面剖析 26页

外研版小学英语三年级上册期末复习课件 24页

2025年小学数学新课程培训心得体会 13页

2025年小学教师师德师风演讲稿优秀 3页

2025年小学教师个人总结参考(精选篇) 25页

2025年小学师德师风演讲稿怎么写 12页

笠翁对韵一东 10页

车辆维修完过后的协议 5页

2025年长春医学高等专科学校单招职业技能测试.. 75页

2025年辽宁省交通高等专科学校单招职业倾向性.. 73页