- 966 名前：デフォルトの名無しさん mailto:sage [2007/11/20(火) 21:25:14 ]
- 失礼します、初めて書き込みさせていただきます。
以下のようなプログラムを書いたのですが（相当省略してますが）、
nの値を8以上にするとmの値が正しく出ないのですがなぜなのでしょうか。
（とりあえずaはどうでもいいです）
integer :: i, j, m, n
real(8) :: a
read(* ,*) n
do i = 1, 2n-1, 2
m = 1D0
do j = 1, i
m = m * j
a = a + dble(m)
end do
end do
write (*, *) m
mはiまでの階乗を表したくてこのようにしているのですが…
