链表应用举例

P1125新约瑟夫问题type tree=^node;node=recorddat:integer;link,next:treeend;var a,b,c:tree;i,m,n,s,k,sum:int