[r]
(1)Procedure QINSERT (Var F, Var R,X) 1) Tạo nút
New ⇐ AVAIL; Infor(New) := X; Link(New) := ∅;
2) Bổ sung
If F=R=∅ then F:=R:=New Else begin
Link(R) := New; R := New; end;
Return { kết thúc}
Ngô Công Thắng Bài giảng Cấu trúc liệu giải thuật - Chương 02 3.1
Thủ tục loại bỏ phần tử khỏi hàng đợi
Function QDELETE(F,R)
1) {Ki
ể
m tra hàng
đợ
i r
ỗ
ng}
If F=
∅
then Begin
Write(‘Hàng
đợ
i r
ỗ
ng’);
Return;
End;
2) {Gi
ữ
l
ạ
i d
ữ
li
ệ
u
đị
a ch
ỉ
nút F}
Tg:=Infor(F); P:=F;
(2)Thủ tục loại bỏ phần tử khỏi hàng đợi 3) {Thay đổi F}
If F=R then {queue có phần tử} F:=R:=∅
Else
F:=Link(F); 4) {Hủy nút loại bỏ}
P => AVAIL; 5) QDELETE:=Tg; Return