derivative(ha)
{ q=ha ; pa=ha
while( (
{ if ( (
else{ pa
pa=( (
}
} 【南京理工大學
TYPE pointer =↑node
node=RECORD
data:integer; next: pointer
END;
PROCEDURE delmax (L:pointer);
VAR p
BEGIN
r:=L
IF p<>NIL THEN
[ m:=p↑
WHILE p<>NIL DO
[ IF (
(
]
q:=r↑
]
END;【北京科技大學
[
From:http://tw.wingwit.com/Article/program/sjjg/201311/22557.html