哈夫曼树问题
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/09/04 20:28:07
哈夫曼树问题
给定n个权值作为n个叶子结点,构造一棵二叉树,若带权路径长度达到最小,称这样的二叉树为最优二叉树,也称为哈夫曼树(Huffman tree).
再问: 代码模板
再答: Pascal Program huffman_tree(input,output); const max=32767;n=20;m=2*n-1 Type tnode=RECORD data:integer; Lc,Rc:integer; END; Var tree:ARRAY[0..m] of tnode; weight:ARRAY[0..n] of integer; im,num:integer; procedure initial; var i:integer; begin write('First input nun(
再问: 代码模板
再答: Pascal Program huffman_tree(input,output); const max=32767;n=20;m=2*n-1 Type tnode=RECORD data:integer; Lc,Rc:integer; END; Var tree:ARRAY[0..m] of tnode; weight:ARRAY[0..n] of integer; im,num:integer; procedure initial; var i:integer; begin write('First input nun(