![](https://img-blog.csdnimg.cn/20201014180756780.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Pascal
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 · 724 阅读 · 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 · 1946 阅读 · 2 评论 -
用Pascal语言实现线性表——原创
今天读了《大话数据时代》,就有感而发,用Pascal语言实现了线性表。程序如有不妥当的地方,请提出:program test301;const maxlen=100;type sqlist=record data : array[1..maxlen] of char; last : 0..maxlenend;var i,p: integer; l : sqlis原创 2015-10-28 20:49:54 · 777 阅读 · 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 · 754 阅读 · 1 评论 -
哈夫曼编码和哈夫曼树的实现——Pascal实现
源代码:program Project1;type hu=RECORDdata:char;weight:integer;code:string;end;fun=recordweight,parent,Lc,Rc:integer;end;Vartree:ARRAY[1..20] of hu;newtree:ARRAY[1..20] of fun;i,g,max,min,j原创 2016-01-05 21:34:36 · 1368 阅读 · 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 · 1022 阅读 · 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 · 1051 阅读 · 0 评论