A．Function Length(L：Lin integer begin p:=L； j:=0； while p↑.next≠NIL DO [p：=p↑.next； j：=j+1 ] return( end;
B．Function Length(L：Lin integer begin p：=L； k：=0； while p≠NIL DO [p：=p↑.next； k：=k+1) return( end；
C．Function Length(L：Lininteger begin p：=L；k：=0； repeat k：=k+1； p=p↑.next until p=NIL return(k-1) end；
D．Function Length(L：Lininteger begin p：=L↑.next； k：=1； while p≠NIL DO [k：=k+1； p：=p↑.next] return( end；