復活節日期計算

第一個程式可以計算任何年份復活節的日期。第二個程式為簡化版本,只可以計算1900-2099年的複活節日期。

程式編寫日期: 2007年9月17日 (更新日期: 2008年7月11日)

程式需要在 BASE 模式下執行,因此在選擇新程式位置後,按 3 選用BASE模式。

第一個程式 (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

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集

Free Web Hosting