fortran问题（很古老）在线求解

Question

Answer 1

program test
implicit none 
real y(1:10,0:9), x
integer i, j 
write(*,"(7x,*(:,'X.',i1,4x))")  (i,i=0,9)
do i = 1, 10
  do j = 0 , 9
    x = i + 0.1*j
    y(i,j) = log10(x)
  end do
  write(*,"(f4.1,2x,*(f5.3,2x))") i*1.0, y(i,:)
end do
pause
end program