Pascal
文章平均质量分 63
GYF_
我是一个信息爱好者
展开
-
线性表的链状存储结构的实现
实现了线性表链状存储结构的初始化,查找,删除,插入,合并等功能。 程序如下: program project1; type pointer = ^ node; node = record data : char; next : pointer; end; var p1,p2,head1,head2: pointer; x: integer; ch,th:c原创 2015-11-03 21:15:18 · 743 阅读 · 0 评论 -
二叉树的遍历和生成——Pascal实现
吾今日写了一个关于二叉树的程序: program Project1; type btree=^node; node=record data:char; l,r:btree; end; var head : btree; function inittree(var t:btree):btree; var ch:char; begin read(ch);原创 2015-11-14 19:06:11 · 1968 阅读 · 2 评论 -
用Pascal语言实现线性表——原创
今天读了《大话数据时代》,就有感而发,用Pascal语言实现了线性表。 程序如有不妥当的地方,请提出: program test301; const maxlen=100; type sqlist=record data : array[1..maxlen] of char; last : 0..maxlen end; var i,p: integer; l : sqlis原创 2015-10-28 20:49:54 · 792 阅读 · 0 评论 -
线性表的实现——多功能——原创
今天读了一本关于线性表的书,写了一段代码: program test301; const maxlen=100; type sqlist=record data : array[1..maxlen] of char; last : integer; end; var i,p: integer; l,A,B: sqlist; x:char; function length原创 2015-10-31 12:07:21 · 768 阅读 · 1 评论 -
哈夫曼编码和哈夫曼树的实现——Pascal实现
源代码: program Project1; type hu=RECORD data:char; weight:integer; code:string; end; fun=record weight,parent,Lc,Rc:integer; end; Var tree:ARRAY[1..20] of hu; newtree:ARRAY[1..20] of fun; i,g,max,min,j原创 2016-01-05 21:34:36 · 1387 阅读 · 0 评论 -
Pascal经典例题
喷水池的设置: program waterpool; type pool=record left:integer; right:integer; data:integer; end; var n,r,i,j,p:integer; a:array[1..1000] of pool; tmp:pool; begin readln(n,r); for i:=1 to原创 2016-01-05 21:37:58 · 1045 阅读 · 0 评论 -
用Pascal解决中国象棋的跳马——回溯算法
这里将所有条件和最优条件输出 program chess; const xx:array[1..4] of 1..2=(1,2,2,1); yy:array[1..4] of -2..2=(2,1,-1,-2); var t,tt,t1,tt1:array[0..10] of integer; i,p,q,num,m:integer; procedure priteln(x1原创 2016-01-05 21:31:04 · 1070 阅读 · 0 评论