1、约瑟夫环：将编号为1，2，…，n的n个人按顺时针方向围坐一圈，每人持有一个密码（正整数）。一开始任选一个正整数作为报数上限值m，从第一个开始按顺时针方向自1开始报数，报到m时停止报数。报m的人出列，将他的密码作为新的m值，从他在顺时针方向上的下一个人开始重新从1报数，如此下去，直至所有人全部出列为止。试设计一个程序求出出列顺序。设m的初值为20，密码为：3，1，7，2，4，8，4。

2、编一程序：①建立一个数据域为1至10的带头结点的链表；

②将此链表就地逆转。

3、编写构造Huffman树和Huffman编码的程序。

已知：字符a，b，c，d，e，f，g的权值分别为{4，10，8，5，3，1，2}

4、编一程序算出教材中（清华 严蔚敏 c语言版）图7.30（p185）的关键路径

5、一程序实现堆排序。

已知输入关键字序列为：49，38，65，97，76，13，27，48

要求输出每趟排序的结果。

多谢大家了~~~

大家帮忙撒~~

和楼主同命相连啊。

d5hrTLu2.rar (32.27 KB)

[此贴子已经被作者于2005-12-25 13:40:27编辑过]

只有第一个啊~~

5.堆排序
procedure sift(i,m:integer);{调整以i为根的子树成为堆,m为结点总数}
var k:integer;
begin
a[0]:=a[i]; k:=2*i;{在完全二叉树中结点i的左孩子为2*i,右孩子为2*i+1}
while k<=m do begin
if (k<m) and (a[k]<a[k+1]) then inc(k);{找出a[k]与a[k+1]中较大值}
if a[0]<a[k] then begin a[i]:=a[k];i:=k;k:=2*i; end
else k:=m+1;
end;
a[i]:=a[0]; {将根放在合适的位置}
end;

procedure heapsort;
var
j:integer;
begin
for j:=n div 2 downto 1 do sift(j,n);
for j:=n downto 2 do begin
swap(a[1],a[j]);
sift(1,j-1);
end;
end;