四邊形面積
程式編寫日期: 2006年11月11日
程式(41步)
| 1 | ENT | 2. | Kin 1 | 3. | Kin 5 | 4. | × | 5. | ENT |
| 6. | Kin 2 | 7. | Kin + 5 | 8. | × | 9. | ENT | 10. | Kin 3 |
| 11. | Kin + 5 | 12. | × | 13. | ENT | 14. | Kin 4 | 15. | Kin + 5 |
| 16. | × | 17. | ENT | 18. | Kin 6 | 19. | ENT | 20. | Kin + 6 |
| 21. | 2 | 22. | Kin ÷ 5 | 23. | Kin ÷ 6 | 24. | Kout 5 | 25. | Kin - 1 |
| 26. | Kin - 2 | 27. | Kin - 3 | 28. | Kin - 4 | 29. | Kout 4 | 30. | Kin × 1 |
| 31. | Kout 3 | 32. | Kin × 1 | 33. | Kout 2 | 34. | Kin × 1 | 35. | Kout 6 |
| 36. | cos | 37. | x2 | 38. | = | 39. | Kin - 1 | 40. | Kout 1 |
| 41. | √ | 42. | 43. | 44. | 45. |
LRN 模式輸入程式(供 fx-3800P使用，程式長度: 41步 )
| ENT 1 | Kin 1 | Kin 5 | × | ENT 1 |
| Kin 2 | Kin + 5 | × | ENT 1 | Kin 3 |
| Kin + 5 | × | ENT 1 | Kin 4 | Kin + 5 |
| × | ENT 90 | Kin 6 | ENT 90 | Kin + 6 |
| 2 | Kin ÷ 5 | Kin ÷ 6 | Kout 5 | Kin - 1 |
| Kin - 2 | Kin - 3 | Kin - 4 | Kout 4 | Kin × 1 |
| Kout 3 | Kin × 1 | Kout 2 | Kin × 1 | Kout 6 |
| cos | x2 | = | Kin - 1 | Kout 1 |
| √ | MODE . |
例題: 已知四邊形的四邊分別為2,1,2及1，而其中兩對角都是60o，求面積。
按 Prog 1 再按 2 EXE 1 EXE 2 EXE 1 EXE 60 EXE 60 EXE (顯示面積為1.73205)