fortran语言制作表格，大一新生求解

记录一到十之间（以0.1为一级），各个数的以十为底的对数，

program Test
implicit none
integer(4) i
real x, y
open(10,file='1.txt')
do i = 10, 100
  x = 0.1*i
  y = log10(x)
  write(10,*) x,y
  write(*,*) x,y
end do
close(10)
pause
end program Test