星期天計算
程式編寫日期: 2007年1月5日
程式(65步)
| 1 | ENT | 2. | Kin 1 | 3. | ENT | 4. | Kin 2 | 5. | ENT |
| 6. | Kin 3 | 7. | 1 | 8. | Kin + 2 | 9. | 3 | 10. | . |
| 11. | 5 | 12. | - | 13. | Kout 2 | 14. | = | 15. | ÷ |
| 16. | x2 | 17. | √ | 18. | + | 19. | 1 | 20. | = |
| 21. | ÷ | 22. | 2 | 23. | × | 24. | Kin - 1 | 25. | 1 |
| 26. | 2 | 27. | = | 28. | Kin + 2 | 29. | 3 | 30. | 6 |
| 31. | 5 | 32. | . | 33. | 2 | 34. | 5 | 35. | × |
| 36. | Kout 1 | 37. | - | 38. | . | 39. | 5 | 40. | = |
| 41. | Fix 0 | 42. | RND | 43. | + | 44. | 3 | 45. | 0 |
| 46. | . | 47. | 6 | 48. | × | 49. | Kout 2 | 50. | - |
| 51. | 9 | 52. | . | 53. | 5 | 54. | + | 55. | Kout 3 |
| 56. | = | 57. | RND | 58. | Kin 1 | 59. | ÷ | 60 | 7 |
| 61. | - | 62. | . | 63. | 5 | 64. | = | 65. | RND |
| 66. | Norm | 67. | × | 68. | 7 | 69. | = | 70. | Kin - 1 |
| 71. | Kout 1 | 72. | 73. | 74. | 75. |
LRN 模式輸入程式(只供 fx-3800P使用，程式長度: 65步 )
| ENT 1 | Kin 1 | ENT 2 | Kin 2 | ENT 3 |
| Kin 3 | 1 | Kin + 2 | 3 | . |
| 5 | - | Kout 2 | = | ÷ |
| x2 | √ | + | 1 | = |
| ÷ | 2 | × | Kin - 1 | 1 |
| 2 | = | Kin + 2 | 3 | 6 |
| 5 | . | 2 | 5 | × |
| Kout 1 | - | . | 5 | = |
| Fix 0 | RND | + | 3 | 0 |
| . | 6 | × | Kout 2 | - |
| 9 | . | 5 | + | Kout 3 |
| = | RND | Kin 1 | ÷ | 7 |
| - | . | 5 | = | RND |
| Norm | × | 7 | = | Kin - 1 |
| Kout 1 | MODE . |
註1: 答案的數值1至6分別代表星期一至六，數值0則代表星期日。
註2: 輸入的數值必須為整數。
例題1: 計算2004年12月31日是那個星期天。
按 P1 2004 RUN 12 RUN 31 RUN (顯示數值為5，即星期五)
例題2: 計算2005年1月16日是那個星期天。
按 P1 2005 RUN 1 RUN 16 RUN (顯示數值為0，即星期日)