pascal语言题：树的繁茂度

显示全部楼层 · 2006-2-8 13:12:26

过程struct_tree（VAR号码：树）; VAR C：字符; 开始读（F，C）; 如果c ='^'，然后开始 P-：=零;退出;在这里似乎换下场{退出} 新的（P）P ^键：= C;struct_tree（P ^左）;struct_tree（P ^右）; 年底;

千问 · 2006-2-8 13:12:26

过程struct_tree（VAR号码：树）; VAR C：字符; 开始读（F，C）; 如果c ='^'，然后开始 P-：=零;退出;在这里似乎换下场{退出} 新的（P）P ^键：= C;struct_tree（P ^左）;struct_tree（P ^右）; 年底;

千问 · 2006-2-8 13:12:26

过程struct_tree（VAR号码：树）; VAR C：字符; 开始读（F，C）; 如果c ='^'，然后开始 P-：=零;退出;在这里似乎换下场{退出} 新的（P）P ^键：= C;struct_tree（P ^左）;struct_tree（P ^右）; 年底;

千问 · 2006-2-8 13:12:26

过程struct_tree（VAR号码：树）; VAR C：字符; 开始读（F，C）; 如果c ='^'，然后开始 P-：=零;退出;在这里似乎换下场{退出} 新的（P）P ^键：= C;struct_tree（P ^左）;struct_tree（P ^右）; 年底;

千问 · 2006-2-8 13:12:26

过程struct_tree（VAR号码：树）; VAR C：字符; 开始读（F，C）; 如果c ='^'，然后开始 P-：=零;退出;在这里似乎换下场{退出} 新的（P）P ^键：= C;struct_tree（P ^左）;struct_tree（P ^右）; 年底;F，A，B：ARRAY [1 .. 100的整数 N，I，J，最大高度：整数; 开始读（N）; 我：= 1100读（F [一]）; 为i = 1100的A ：= 0; 我：= 1到100做b [I]：= 0; 高度： = 0; 我：= 1100开始对于j = 1100做如果一个 = 0，然后开始如果f [I] = 0，则开始一个[我] = 1; 突破; 结束; 如果[F [I]]> 0，则开始 A [ I] = [F [I]] +1; 突破; 结束; 结束;B [[]]：= B [A [I] ] +1; （高一个）高度：= []; 结束;MAX：= 0;I：= 1高度做最大[B] 0，则开始 A [ I] = [F [I]] +1; 突破; 结束; 结束;B [[]]：= B [A [I] ] +1; （高一个）高度：= []; 结束;MAX：= 0;I：= 1高度做最大[B] 0，则开始 A [ I] = [F [I]] +1; 突破; 结束; 结束;B [[]]：= B [A [I] ] +1; （高一个）高度：= []; 结束;MAX：= 0;I：= 1高度做最大[B] 0，则开始 A [ I] = [F [I]] +1; 突破; 结束; 结束;B [[]]：= B [A [I] ] +1; （高一个）高度：= []; 结束;MAX：= 0;I：= 1高度做最大<B [I]，然后马克斯：= B [I]writeln（最大高度）; 结束; 算法是非常简单，就是每次找到一个能够判断它在几层的节点，标记的层数（我计划用一个数组）的统计数据层的几个节点（I b数组的程序），最后高度和最大的一个， b和统计，乘以输出节目，我直接敲在回答中，有可能是语法错误，你会看到

千问 · 2006-2-8 13:12:26

过程struct_tree（VAR号码：树）; VAR C：字符; 开始读（F，C）; 如果c ='^'，然后开始 P-：=零;退出;在这里似乎换下场{退出} 新的（P）P ^键：= C;struct_tree（P ^左）;struct_tree（P ^右）; 年底;

千问 · 2006-2-8 13:12:26