06/11/17 12:00:23
>>37 がんばったけど書式がうまくいかなかった。ゴメン
c DO文を使用して，xの値を，
c 1,10,100,1000,10000,100000,1000000 の順に変えて
c その常用対数および自然対数の値を 計算して表示する
c 計算結果は書式の指定をして，x, log10(x), log(x) の順に
c 計算結果が整数となるものは整数型(In)，
c 実数となるものは実数型(Fn.m)または指数型(En.m)で出力．
Program report5
Implicit none
INTEGER i
REAL x
do i = 0, 6
x = 10.0**i
write(*, *) aint(x), log10(x), log(x)
end do
stop
end
c 実行結果
c 1.00000 0.000000E+00 0.000000E+00
c 10.0000 1.00000 2.30259
c 100.000 2.00000 4.60517
c 1000.00 3.00000 6.90776
c 10000.0 4.00000 9.21034
c 100000. 5.00000 11.5129
c 0.100000E+07 6.00000 13.8155