Advertisement
Guest User

Untitled

a guest
Feb 19th, 2020
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.93 KB | None | 0 0
  1. OPENFILE Book.txt FOR READ
  2. DECLARE book_list : ARRAY[1:x] OF STRING
  3.  
  4. FOR line in book_file
  5. entries ← line.split
  6. WRITEFILE Book.txt, entries
  7.  
  8. CLOSEFILE Book.txt
  9.  
  10. REPEAT
  11. Book_found ← False
  12. Choice ← INPUT
  13.  
  14. if choice = 1
  15. THEN
  16. Book_name ← INPUT
  17. Book_author ← INPUT
  18. Book ← book_name, book_author
  19. WRITEFILE Book.txt, book
  20. OUTPUT Book_list
  21.  
  22. if choice = 2
  23. THEN
  24. Author ← INPUT
  25. FOR current_book in book_list
  26. IF current_book[1] = author
  27. OUTPUT Book title:,current_book[0]
  28. Book_found ← True
  29. IF NOT book_found
  30. OUTPUT No book found by the author.
  31.  
  32. if choice = 3
  33. THEN
  34. OUTPUT Ending Interface
  35. END
  36.  
  37. if choice = 4
  38. THEN
  39. FOR Book in book_list
  40. Book_pub_date ← INPUT
  41. WRITEFILE Book, book_pub_date
  42. OUTPUT book_list
  43.  
  44. OPENFILE Book.txt FOR WRITE
  45. FOR Book in Book_list
  46. WRITEFILE Book_file book[0] + , + book[1]
  47. LENGTH Book = 3
  48. WRITEFILE Book_file(, + Book[2])
  49.  
  50. CLOSEFILE Book.txt
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement