PROGRAM taulukointi
  IMPLICIT NONE
  INTEGER, PARAMETER :: n = 100
  INTEGER :: i
  REAL, DIMENSION(n) :: x
  REAL :: pi

  pi = 2*ACOS(0.0)

  DO i = 1, n
    x(i) = SIN(pi*(i-1.0)/(n-1.0))
  END DO

  WRITE(*,'(A)') 'sin(x) = '
  WRITE(*,'(5(F10.7))') x
END PROGRAM taulukointi