Advertisement
Rafael09ED

Untitled

Nov 29th, 2018
260
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.68 KB | None | 0 0
  1. Realization Recursive_Writing_Realiz (Operation Write_Entry(evaluates E: Entry);) for Writing_Capability of Preemptable_Queue_Template;
  2. Recursive Procedure Write_Queue(restores Q: P_Queue);
  3. Var Entry: Entry;
  4. Var Count: Integer;
  5.  
  6.  
  7. If ( Length(Q) >= 1)
  8. then
  9. Dequeue(Entry, Q);
  10. Write_Entry(Entry);
  11. Write_Queue(Q);
  12. Enqueue(Entry, Q);
  13. While ( Count < Length(Q) )
  14. decreasing |Q|-Count;
  15. do
  16. Dequeue(Entry, Q);
  17. Enqueue(Entry, Q);
  18. Count := Count + 1;
  19. end;
  20. end;
  21.  
  22.  
  23. end Write_Queue;
  24.  
  25. end Recursive_Writing_Realiz;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement