くだすれFORTRAN（超初心者用）その3

くだすれFORTRAN（超初心者用）その3 at TECH

414:407 >>392
08/06/25 01:36:07
month.dat
31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31

>>406
今回は、うるう年を外部データとして与えようという親心なのかもしれない。

>>396
プログラムの解説
FUNCTION IDAYS(IM, ID, MDAYS)
一月一日から特定の月日までの日数を計算する。

FUNCTION IDW(IDIFF, IDW0)
今日からの日数差と今日の曜日から、その日数差の日の曜日を求める。
この計算式は、考えるのが面倒なのでちょっと複雑。
もう少しシンプルな書き方があるかもしれない。
FORTAN７７のMOD関数は負数を引数とすると、負の数を返すので＋７とかが必要。
Fortran90ならMODULO関数というのが新設されていて便利。
だがいずれにせよ７で割り切れるときは０を返すので、１～７にするために-1/+1の
人工的な操作をした。自分で決める曜日を０～６にすれば話はもっと楽になる。

PROGRAM CALEND
まず各月の日数をファイルから読み込む。
今年はうるう年なので、うるう年の日数データを用意した。
あとは、I/Oの後、上で用意した関数を使ってやればいい。
ここでループから抜けるために、今日の月が０以下の数の場合終了するようにした。

次ページ

続きを表示

1を表示