|
作者： 时间：2001-9-24 15:26:11 来自： 责任编辑： 阅读次数： | |
到找遍所有的祖先。
[程序]
FUNCTION FINDLV(MA,MB)
INTEGER PARENT (2,100), FINDLV
INTEGER NOA(100), LEVA (100), TOPA
INTEGER NOB(100), LEVA (100),TOPB
COMMON PARENT
CALL GF (MA,NOA,LEVA,TOPA)
CALL GF (MB,NOB,LEVB,TOPB)
L = 100
DO 10 I =1,TOPA
DO 10 J =1, TOPB
IF (NOA(I).EQ.NOB(J))THEN
L = MIN (L,LEVA(I))
____(1)____
ENDIF
10 CONTINUE
____(2)____
RETURN
END
SUBROUTINE GF (MAB,NO,LEV,TOP)
INTEGER NO(100),LEV(100),PARENT(2,100),TOP,TOP1
___(3)___
TOP1=1
TOP=1
NO(TOP)=MAB
LEV(TOP)=1
10 IF(TOP1.LE.TOP)THEN
NOP=NO(TOP1)
L=LEV(TOP1)
TOP1=TOP1+1
DO 20 I=1,2
IF (____(4)____)THEN
TOP = TOP+!
NO(TOP)=___(5)___
LEV(TOP)=___(6)___
ENDIF
20 CONTINUE
_____(7)_____
ENDIF
RETURN
END
 一九九六年度程序员级上午试卷 共有5页 第 1 2 3 4 5 页
|
|
|
|
中华网校依法保护知识产权，如果我们的文章有涉及或侵犯您的有关权益，请即时与我们
联系，
注明网址及文章，我们会即时处理或删除，感谢您的合作！中华网校email
中华网校由广州市中六电脑城智锐计算机专业培训学院及中华网校技术中心提供网络支持未经本站许可任何个人网站、书刊报社一律不得私自复制,转载本站内容! |
|
 | |
