0

fortran で do ループを使用しているときに問題が発生しました。 

REAL W,V,X 
DO 50 W = 0.5,5.0,0.5
DO 50 V = 10.0,1000.0,10.0
DO 50 X = 1.0,10,1.0
C=(W*V*X)/1000.0
WRITE(*,*) W,V,X,C
50 CONTINUE
STOP
END

これを指定した場合、do ループで整数のみを使用する必要があることを示しています。do ループで整数を指定する方法や、それを行う他の方法はありますか?

4

2 に答える 2

6

ループ インデックスとして整数を使用する

      REAL W,V,X
      INTEGER I,J,K

      DO 50 I = 1,10
        DO 50 J = 1,100
          DO 50 K = 1,10

            W = 0.5 * I
            V = 10.0 * J
            X = 1.0 * K

            C=(W*V*X)/1000.0
            WRITE(*,*) W,V,X,C

50    CONTINUE
      STOP
      END
于 2013-06-13T17:04:09.707 に答える
0

ステップ値を追加して実際の変数をインクリメントし、if then を使用してループを終了することで、同じことを達成できるはずです。不格好ですが、動作するはずです。

前回 Fortran でプログラミングしたときは、パンチ カードと IBM-360 を使用したので、構文を覚えているふりをするつもりはありません。

于 2013-06-13T17:17:42.280 に答える