这是摘录的一部分算法，pascal语言描述。