- 37 名前：デフォルトの名無しさん [2006/11/15(水) 17:59:05 ]
- DO文を使用して，xの値を，1,10,100,1000,10000,100000,1000000 の順に変えて
その常用対数および自然対数の値を 計算して表示するプログラムを作れ．
なお，計算結果は書式の指定をして，x, log10(x), log(x) の順に表形式で表示すること．
また，計算結果が整数となるものは整数型(In)，実数となるものは実数型(Fn.m)または指数型(En.m)で出力すること．
program report5
implicit none
integer :: x
real :: y,z
write (*,*) 'x='
read (*,*) x,log(x),log10(x)
do 10 i = 0.6
x=10.0**real(i)
y=log(x)
z=log10(x)
write (6,)
end do
stop
end program report5
何処がおかしいんでしょうか?
