//本算法一趟找出一個關鍵字最小的結點
//當前結點和最小結點的前驅指針
p:=head↑
WHILE p<>NIL DO
[q:=p↑
WHILE <q<>NIL DO
[IF q↑
q:=q↑
]
IF r<>p THEN r↑
p:=p↑
]
ENDP;
[
From:http://tw.wingwit.com/Article/program/sjjg/201311/23181.html
//本算法一趟找出一個關鍵字最小的結點
//當前結點和最小結點的前驅指針
p:=head↑
WHILE p<>NIL DO
[q:=p↑
WHILE <q<>NIL DO
[IF q↑
q:=q↑
]
IF r<>p THEN r↑
p:=p↑
]
ENDP;
[