06/11/17 17:12:34
Program report5
Implicit none
real :: i,x
do i=0, 6
x=10.0**i
write(*, '(i7, f15.7 f15.7)') x, log10(x), log(x)
end do
stop
end
結果
******* 0.0000000 0.0000000
******* 1.0000000 2.3025851
******* 2.0000000 4.6051702
******* 3.0000000 6.9077554
******* 4.0000000 9.2103405
******* 5.0000000 11.5129251
******* 6.0000000 13.8155107
おかげさまでここまで出来たんですが、どうしても*******が出てしまいます＞＜