- 260 名前：254 [2007/02/10(土) 20:21:30 ]
- 今自宅なので、実際にプログラムを起動させて確認を取ることができないので、
構文だけここに記入します。間違いなどを指摘してくだされば幸いです。
※xfirstはxの初期値とする。
program main
integer x,z,xfirst,miss
real y
x=7
xfirst=7
y=int(rand()*10)
z=10
miss=0
do 20 z=1,10
x-y=x
if(x .gt. 0) then
z=z+1
else
miss=miss+1
x=xfirst
end if
20 continue
