NoiP2003提高组复赛试题分析_天津南开中学滕伟.docVIP

我看了李学武教授写的《关于NOIP复赛的若干问题的思考（ 邮编：300100，电子邮箱： 或 tjnkzx2000@ ） 公式中的Wji（可能为负值）表示连接j号神经元和i号神经元的边的权值。当Ci大于0时，该神经元处于兴奋状态，否则就处于平静状态。当神经元处于兴奋状态时，下一秒它会向其它神经元传递信号，信号的强度为Ci。 2、输入： 两个整数n（1≤n≤20）和p。n表示节点的个数；p表示有向边的条数。 下面n行表示1-n号节点的状态和阈值。 下面p行表示有向边及其权值。 3、输出： 输出输出层状态大于零的神经元编号和状态，并且按照编号有小到大顺序输出！ 若输出层的神经元最后状态小于等于0，则输出NULL。 二、问题分析 1、题目中给出每层神经元只向下一层的神经元输出信息，只从上一层神经元接受信息。所以不必进行拓扑排序，一层一层的向下传递信号即可。输出最后一层中信号大于零的节点编号。 2、可以建立一个队列，将输入层节点入队。 3、取队首节点出队，寻找此节点有向边，如果有有向边： 1）则记录此节点不是输出层； 2）再判断此节点信号大于零则向下传递信号，将指向的节点入队（防止重复入队）。再出队再传递，直至全部出队。 注意：1）输入层可以是输出层。2）信号传递公式中只减一次U[i]。 【程序清单】 下面是我校学生肖天同学写的程序。 {NOIP 2003 Problem 1 by Xiao Tian} {Test 1..5 : All right} Program network; Const InName=network.in; OutName=network.out; MM=100; Var InFile,OutFile:Text; C,U:Array[1..MM] Of LongInt; Map:Array[1..MM,1..MM] Of LongInt; Flag:Array[1..MM,1..MM] Of Boolean; IsOut:Array[1..MM] Of Boolean; Queue:Array[1..MM] Of LongInt; N,P,i,Int1,Int2,Head,Rear:LongInt; IsInQueue:Array[1..MM] Of Boolean; IsNull:Boolean; Begin Assign(InFile,InName); Reset(InFile); ReadLn(InFile,N,P); For i:=1 To N Do ReadLn(InFile,C[i],U[i]); FillChar(Flag,SizeOf(Flag),False); For i:=1 To P Do Begin Read(InFile,Int1,Int2); ReadLn(InFile,Map[Int1,Int2]); Flag[Int1,Int2]:=True; End; Close(InFile); FillChar(IsOut,SizeOf(IsOut),True); FillChar(IsInQueue,SizeOf(IsInQueue),False); Head:=1; Rear:=1; For i:=1 To N Do Begin If C[i]0 Then Begin Queue[Rear]:=i; Inc(Rear); IsInQueue[i]:=True; End Else C[i]:=-U[i]; End; While HeadRear Do Begin For i:=1 To N Do If Flag[Queue[Head],i] Then Begin If C[Queue[Head]]0 Then Begin Inc(C[i],Map[Queue[Head],i]*C[Queue[Head]]); If Not IsInQueue[i] Then Begin Queue[Rear]:=i;