第４回（2000年11月21日）講義録
〜FORTRAN入門 2〜

FORTRANソースプログラムの制御構造

• 単純if文: 条件判断処理、条件を満たせば文Ａを実行してから文Ｂに、 満たさなければ文Ａを飛ばして文Ｂに進む。

         if (条件)  文Ａ
         文Ｂ
  

• ブロックif文: 条件分岐処理

         if (条件)  then
            条件が真ならば実行
         else
            条件が偽ならば実行
         endif
         真でも偽でもこれ以下は実行する
  

• goto文: 指定された文番号に飛ぶ。

     10  read(*,*) a
         if (条件)  goto 10
         a2 = a**2
  

• FORTRANの文法

配列(とりあえず一次元)

• 『その月の全日数』のようなインデックス(月)に対して値(全日数)が決まる ような変数を配列という。
• 配列は、数学の数ベクトルのように番号付の複数の数の集合を表している。
• 次のように宣言(以下は整数配列の例)して使用する。『12』はインデックス の上限である。ちなみに下限は(C言語とは違い)『1』である。

         integer total(12)
  

• インデックスの下限(下では『0』)を指定する場合は以下のようにする。

         integer total(0:100)
  

• 変数の初期値設定、代入、引用は次のようにできる。

         integer total(12), month, date, sum
         character*1 yorn
         logical     leap
         data total/31,28,31,30,31,30,31,31,30,31,30,31/
         write(*,*) 'input month and date'
         read (*,*) month, date
         write(*,*) 'leap year? y or n'
         read (*,*) yorn
         if (yorn .eq. 'y' .or. yorn .eq. 'Y') then
             leap = .true.
         else
             leap = .false.
         endif
         if (leap)  total(2) = 29
         sum = 0
         do m = 1, month-1
           sum = sum + total(m)
         enddo
         sum = sum + date
         stop
         end
  

• 課題1: 1月1日からm月d日までの日数を計算するプログラム。ただし、 その年がうるう年かどうかを与えられること。なお、1月1日も日数に 数える(つまり1月2日までは2日となるようにする)。
• 課題2: ある年の1月1日からy年の1月1日の前日までの日数を計算する プログラム。うるう年の規則(4で割りきれるが100で割りきれない年 もしくは400で割りきれる年はうるう年)をきちんと満たすこと。