0. IF -条件判断と分岐-

前回「条件判断と分岐」で学習した論理IF文と単純GO TO文を用いて記述した繰り返しのアルゴリズムはDO文およびCONTINUE文と呼ばれる制御文を用いると、プログラムの論理構造を分かりやすく記述し直すことができる。

(1) 流れ図

図-1　流れ図

       ・・・
       前の文
       N=1
   10 continue
      if(N.gt.n) go to 20 
       処理Ａ
       N=N+1
      go to 10
   20 continue
       次の文
       ・・・
    

       ・・・
       前の文
       N=1
   10 continue
      if(N.lt.n) then 
         処理Ａ
         N=N+1
        go to 10
      end if
       次の文
       ・・・
    

       ・・・
       前の文
       do 10 N=1,n,1  
         処理Ａ
    10 continue
       次の文
       ・・・
    

       ・・・
       前の文
       do N=1,n,1  
         処理Ａ
       end do
       次の文
       ・・・
    

図-2ではDO文とCONTINUE文によってはさまれた処理を１からＮまで１つずつ繰り返しておこなうことを意味する。

DO文による繰り返しの論理構造を、DOループという。一般形は次の通り。

L :	これより後にあるCONTINUE文の文番号
V :	変数名（整数型、実数型、倍精度実数型）
E1:	初期値パラメータ
E2:	終値パラメータ
E3:	増分パラメータ（Vの増分を指定※、例：1,2,-1,-2） ※E3=1の時はE3を省略することができる （この場合，『V=E1, E2』となる)
	（E1,E2,E3は整数型、実数型、倍精度実数型の式） ※E3は０ではいけない

2. プログラム例１（E1,E2,E3が整数の場合）

１から100までの整数の間で3の倍数を選び出し、それを合計して結果を出力する。

Fortran 77 program test1 c kos=100 n=0 ntl=0 c do 10 i=0,kos,3 n=n+1 ntl=ntl+i write(6,*) 'n=',n,' ntl=',ntl 10 continue c stop end

Fortran 90 program test1 c kos=100 n=0 ntl=0 c do i=0,kos,3 n=n+1 ntl=ntl+i write(6,*) 'n=',n,' ntl=',ntl end do c stop end

※viエディタを使用してのプログラムの作成法はソース・プログラムの作成を参考にすること

3. プログラム例２（E1,E2,E3が実数の場合） (計算機実習の授業では実定数のDO文は作成不可）

実定数0.1から9.8の間で0.7の倍数を大きい方から小さい方に向かって(9.8→0.1)選出し、それを合計する。

Fortran 77 program test2 c n=0 tl=0 c do 10 x=9.8,0.1,-0.7 n=n+1 tl=tl+x write(6,*) 'n=',n,' tl=',tl 10 continue c stop end

Fortran 90 program test2 c n=0 tl=0 c do x=9.8,0.1,-0.7 n=n+1 tl=tl+x write(6,*) 'n=',n,' tl=',tl end do c stop end

※viエディタを使用してのプログラムの作成法はソース・プログラムの作成を参考にすること

パラメータE1,E2,E3は算術定数だけではなく、変数を含む一般の算術式であっても構わない。ただし、変数の値はDO文の直前までに定まってなければならない。

Fortran 77 program test3 c l=0 m=5 n=7 a= -n/3. c do 10 i=l, 2*m+1, n/3 a=i+n/3. write(6,*) i,a 10 continue c stop end

Fortran 90 program test3 c l=0 m=5 n=7 a= -n/3. c do i=l, 2*m+1, n/3 a=i+n/3. write(6,*) i,a end do c stop end

※viエディタを使用してのプログラムの作成法はソース・プログラムの作成を参考にすること

DOループの中にDOループが階層的に存在してもよい。


(1) 階層型、(2)　並列型、(3)　混在型

図-3　多重DOループの例

Fortran 90 program test4 c do i=1, 3 do j=1, 2 write(6,*) 'i=', i, 'j=', j end do end do c stop end

※viエディタを使用してのプログラムの作成法はソース・プログラムの作成を参考にすること

図-4　プログラム例

２を５００回加算した値を求め，メールで結果を知らせなさい．
メール・アドレスはinu@nagaokaut.ac.jpで ある。
メールは大学で学生全員に割り当てているWebmailを使用して送信すること．
送信の方法は情報処理センター『Webmail(SquirreMail)について』を参考にすること。
Web Mail使用の際には『ログイン名』と『パスワード』が必要である．