数値解析法及び演習 第四回

[1] IF文による条件分岐

プログラム中で条件分岐を行いたいときはIF文を用いる． 基本の形を以下にしめす．

例1：

if(b) 実行文 

bには論理式または算術関係式がはいります（算術関係式は下に説明. 論理式は後日説明します. ）．この形式だとbが真の場合にのみ実行文が行われ，それ以外だと何もせず次に制御が移ることになります．

例2:

if(b) then
実行文 
endif

基本的に上とおなじ. 実行文が二行以上になる時.

例3:

if(b) then

実行文 1

else

実行文 2

endif

上の形式では，もしbが真であれば実行文1が行われ，偽であれば実行文2が行 われます．実行文2にもあてはまらない場合をさらに場合分けしたいときはさらにブロックを重ねることができます.

if(b) then

実行文 1

else if(c) then

実行文 2

else

実行文3

endif

この場合は, もしbが真であれば実行文1が行なわれます. 偽の場合はさらにcによって条件がわかれ, 真の場合は2が, 偽の場合は3が実行されます. このif-elseブロックはいくらでも重ねることができます.

算術関係式の種類

• a.eq.b (a==b) aとbは等しい
• a.ne.b (a/=b) aとbは等しくない
• a.lt.b (a < b) aはbよりも小さい
• a.le.b (a<=b) aはb以下
• a.gt.b (a>b) aはbよりも大きい
• a.ge.b (a>=b) aはb以上

たとえば，以下のプログラムはキーボードから入力した値が10.以上ならその値を画面に表示させるプログラムである．

      implicit none      
      real*8 a

      read(5,*) a
      if(a.ge.1.D1) then
      write(6,*) a
      endif

      end

このプログラムを作成して実行してみよ．
以下のプログラムは，キーボードから整数を入力し，偶数ならその整数を画面に表示させるプログラムである．

      implicit none      
      integer n

      read(5,*) n

      if(mod(n,2)==0) write(6,*) n
     
      end

[2] 今日の宿題

• キーボードから二つの整数を変数m,nに代入する．もし m > nならば代入された値をいれかえるプログラムをつくれ．
• 次の10個の整数
  4 2 4 5 7 9 10 8 1 6
  をファイルから読み込み, 最大値と最小値をモニタに表示するプログラムを作成せよ.

• さきほどの10個の整数を大きい順に並び変えモニタに表示するプログラムを作成せよ.
• キーボードから整数を一つ入力し，その整数が素数であればその数を，素数で無ければその数の2倍をモニタに表示するプログラムを作成せよ．ヒント：mod(k,i)関数は，kをiで割った余りを返す関数である．

〆切は11/9. すべてのプログラムを添付ファイルで送付すること（結果はいらない）．


日程表へ戻る <<