FUNCTION equal(l:pointer) :boolean;
VAR p
BEGIN result =true ; p:= l^
WHILE (p<>q) AND ((
IF p^
ELSE result=false ;
return(result);
END;【華南師范大學
[
From:http://tw.wingwit.com/Article/program/sjjg/201311/23471.html
FUNCTION equal(l:pointer) :boolean;
VAR p
BEGIN result =true ; p:= l^
WHILE (p<>q) AND ((
IF p^
ELSE result=false ;
return(result);
END;【華南師范大學
[