>>258 program hoge_f90 implicit none integer :: i character(len=20) :: fname do i=1, 9999 write(fname, "('hoge', I4.4, '.txt')") i open(unit=11, file=fname, status="REPLACE") close(11) end do end program hoge_f90
合計がxになるようなy個の乱数を抽出ってどうやれば良いんでしょうか? 今は以下のようなプログラムにしているのですが、とっても変な気がします。 rb=x For i = 0 To y-2 buf(i) = Int((x - 0 + 1) * Rnd() + 0) If buf(i) > rb Then i = i - 1 Continue For End If rb = rb - buf(i) Next i buf(y-1)=rb