作业帮 > 数学 > 作业

哈夫曼树问题

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间: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(