Basic イースターの日付を計算する

参考資料:イースターの日の決め方 http://www.geocities.co.jp/HeartLand/1987/easterdate.html

復活祭　イースターは毎年日付が変わるそうです。今年初めて知りました。

ということで、今回は十進Basicでイースターの日付を計算するプログラムを作ってみました。

ちなみに、私はクリスチャンではありません。

計算アルゴリズムは上記のサイトを参考にさせてもらいました。

イースター計算機.bas

INPUT year !求めたい年を入力

LET D=MOD(year,19) !ここから下は上記リンクの計算方法をそのまま写しました

LET D=255-D*11

DO

   IF D<51 THEN EXIT DO

   LET D=D-30

LOOP

IF D>48 THEN LET D=D-1

LET E=MOD(year+INT(year/4)+D+1,7)

LET Q=D+7-E

IF Q<=31 THEN 

   PRINT "3月"&STR$(Q) !表示(3月の場合)

ELSE

   PRINT "4月"&STR$(Q-31) !表示(4月の場合)

END IF

END