復活節日期

第一個程式可以計算任何年份復活節的日期。第二個程式為簡化版本,只可以計算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

 

返回 fx-3650P及SC185程式集

Free Web Hosting