IT pass HikiWiki - [itbase2023]Fortran 実習条件分岐

if 文
比較演算子・論理演算子
練習問題 1
- プログラム例
練習問題 2
- ヒントとプログラム例
練習問題 3
- ヒントとプログラム例

プログラムでは, 条件によって処理の内容を変えることが良くあります. Fortran ではこの条件分岐の方法がいくつか提供されていますが, ここでは最も基本的な方法である if 文について説明します.

if 文

if 文は例えば下のようにのように書きます.

if ( 条件文 ) then

  実行文 1

else

  実行文 2

end if

このプログラムは, まず条件文が評価され, それが成り立つときには実行文 1 が実行されます. もし条件文が成り立たない場合には実行文 2 のみが実行されます.

下のようなプログラムを ifelse.f90 というファイル名で作成して実行してみましょう.

program ifelse

  implicit none

  real :: val

  write( 6, * ) "Input a number: "      ! 数値の入力を促す
  read ( 5, * ) val                     ! キーボードから数値を入力

  if ( val > 0 ) then
    ! 数値が正の時の処理
    write( 6, * ) "Positive"

  else
    ! それ以外の時の処理
    write( 6, * ) "Zero or Negative"

  end if

end program ifelse

入力を促されたときには正の数値や負の数値を入力して動作を確認してみましょう.

上の例では, キーボードから数値を入力すると, その数値が正なのかそうでないのかによって画面に表示される文字が変わります.

なお, else 文は必ず必要なわけではなく, なくても構いません. つまり, if 文は下のような構造でも問題ありません.

if ( val > 0 ) then
  ! 数値が正の時の処理
  write( 6, * ) "Positive"

end if

また, if 文は, 下のように複数を重ねることもできます.

if ( 条件文 1 ) then

  実行文 1

else if ( 条件文 2 ) then

  実行文 2

else if ( 条件文 3 ) then

  実行文 3

else

  実行文 4

end if

また, if 文は, 下のように入れ子にすることもできます.

if ( 条件文 1 ) then

  実行文 1

  if ( 条件文 2 ) then

    実行文 2

  else

    実行文 3

  end if

else

  実行文 4

end if

比較演算子・論理演算子

条件文に使える比較演算子や論理演算子には下のようなものがあります.

演算子	旧来の書き方	意味	使用例
＝＝	.eq.	等しい	a == b
/=	.ne.	等しくない	a /= b
>	.gt.	より大きい	a > b
>=	.ge.	以上	a >= b
<	.lt.	より小さい	a < b
<=	.le.	以下	a <= b
.not.		以外 (否定)	.not. (a==b)
.and.		かつ	(a==b).and.(c==d)
.or.		もしくは	(a==b).or.(c==d)