復活節日期
第一個程式可以計算任何年份復活節的日期。第二個程式為簡化版本,只可以計算1900-2099年的複活節日期。
程式需要在 BASE 模式下執行,因此在輸入程式前請先按 Mode Mode 3 進入BASE模式。
程式編寫日期:2006年7月15日 (更新日期: 2008年7月5日)
第一個程式 (135 bytes, 使用記憶為A, C, Y及M):
Dec: ?→Y: Y ÷ 100→C: Y - Y ÷ 19 × 19→A:
C - C ÷ 4 - ( 8C + 13) ÷ 25 + 19A + 15→M:
Ans ÷ 30 × 30M-: M ÷ 28 × ( 1 - ( 21 - A) ÷ 11 ×
( 29 ÷ (M + 1M-: Y + Y ÷ 4 + M + 2 - C + C ÷ 4:
Ans - Ans ÷ 7 × 7 - 40M-: 3 + M ÷ 44◢
M - 12 - Ans ÷ 4 × 31
第二個程式 (80 bytes, 使用記憶為A, C, Y及M):
Dec: ?→Y: : 24 + 19(Y - Y ÷ 19 × 19→M:
Ans ÷ 30 × 30M-: M ÷ 28M-:
Y + Y ÷ 4 + M - 13:
Ans - Ans ÷ 7 × 7 - 40 M-: 3 + M ÷ 44◢
M - 12 - Ans ÷ 4 × 31
例題: 計算2008年復活節的日期。
Prog 1 2008 EXE (顯示3) EXE (顯示23)
所以2008年復活節日期為年3月23日
參考資料: 有關復節日期的計算方法,可以參考以下網址的資料:
http://www.tondering.dk/claus/cal/calendar29.html