求pascal的哈夫曼码程序，用动态数据类型

显示全部楼层 · 2009-5-27 20:26:39

const max=32767;n=20;m=2*n-1Type 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;beginwrite('First input nun(<',n:2,')');readln(num);writeln('Please input weight:');for i:=0 to...

千问 · 2009-5-27 20:26:39

能不能再说清楚些？...