Advertisement
Guest User

Untitled

a guest
Oct 21st, 2011
26
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.57 KB | None | 0 0
  1. Start
  2. cstrFrom = “From: President Wehrung”
  3. cstrRE = “Re: Merger Meeting Time”
  4. cstrMeetingTime 1 = “Monday @ 9:00 AM”
  5. cstrMeetingTime2 = “Monday @ 1:00 PM”
  6. cstrMeetingTime3 = “Tuesday @ 1:00 PM”
  7. cstrMeetingTime4 = “Wednesday @ 9:00 AM”
  8. cnumDeptNumber1 = 4
  9. cnumDeptNumber2 = 8
  10. cnumDeptNumber3 = 17
  11. cnumDeptNumber4 = 20
  12. cstrError = “You are FIRED because you are STUPID!!”
  13. Input (“Please enter your name.”) = strName
  14. Input (“Please enter your department number.”) = numDept
  15. IF numDept <= cnumDeptNumber1
  16. strMeetingTime = cstrMeetingTime1
  17. Output (“To: - “ + strName)
  18. Output (strFrom)
  19. Output (strRE)
  20. Output (“You meeting time will be: “ + strMeetingTime)
  21. ELSE IF numDept <= cnumDeptNumber2
  22. strMeetingTime = cstrMeetingTime2
  23. Output (“To: - “ + strName)
  24. Output (strFrom)
  25. Output (strRE)
  26. Output (“You meeting time will be: “ + strMeetingTime)
  27. ELSE IF numDept <= cnumDeptNumber3
  28. strMeetingTime = cstrMeetingTime3
  29. Output (“To: - “ + strName)
  30. Output (strFrom)
  31. Output (strRE)
  32. Output (“You meeting time will be: “ + strMeetingTime)
  33. ELSE IF strMeetingTime = cstrMeetingTime4
  34. strMeetingTime = cstrMeetingTime4
  35. Output (“To: - “ + strName)
  36. Output (strFrom)
  37. Output (strRE)
  38. Output (“You meeting time will be: “ + strMeetingTime)
  39. ELSE Output(cstrError)
  40. ENDIF
  41. ENDIF
  42. ENDIF
  43. ENDIF
  44. END
  45.  
  46.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement