- 132 名前：デフォルトの名無しさん mailto:sage [2006/12/23(土) 18:27:45 ]
- >>128
PROGRAM q1
IMPLICIT NONE
INTEGER, PARAMETER :: n = 5
INTEGER :: i, j, k
REAL :: x(n), y(n * (n - 1) / 2)
CALL RANDOM_NUMBER(x)
k = 0
DO i = 1, n
DO j = i + 1, n
k = k + 1
y(k) = x(i) * x(j)
END DO
END DO
PRINT *, x
PRINT *
PRINT *, y
STOP
END PROGRAM q1
大文字はＦｏｒｔｒａｎに存在する命令。小文字は自分の定義する変数名など。
RANDOM_NUMBER()は0以上１未満の数を返す。
>>132 インデント
