假定就绪队列中的进程按优先数自大到小顺序排列，当有进程要加入就绪队列时，应按它的优先数排人相应的位置，试就单向链接的方式写出实现进程进入队列的程序。

假定就绪队列中的进程按优先数自大到小顺序排列，当有进程要加入就绪队列时，应按它的优先数排人相应的位置，试就单向链接的方式写出实现进程进入队列的程序。

(此过程使用类Pascal语言写成，仅供参考) Procedure Insert(RL：Queue；p：Pointer) {RL就绪队列指针，p要插入队列进程指针； p中Priority指示其进程的优先数； p中Next指示其后继进程指针 } Var p1，p2：Pointer； {p1指示比p优先数小的第一个进程指针； p2指示比p优先数大的最后一个进程的指针 } Begin p1：=RL； P2：=rl； {以下循环查找p在队列中的确切位置) While(p．PriorityNull)Do Begin p2：=p1； p 1：=p1．Next； End； {将p插入到就绪队列中) p．Next：=p1； p2．Next：=p； End；