Program InfSeriesTerms
!------------------------------------------------------------------------------
!Program: First 10 Partial Sums of 1/k!
!Author: Chris Harper
!Date: 2/1/2008
!------------------------------------------------------------------------------

IMPLICIT NONE

!declarations
integer :: i, j, k, factorial
real :: partialSum

!headers
Print *, "First 10 Partial Sums of 1/k!"
print "(1X, T2, A10, T14, A10)", "n", "part. sum"

!10 partial sums
do i = 1, 10
	partialSum = 0.0
	!i terms
	do j = 0, i-1
		!fake a factorial function
		factorial = 1
		do k = 2, j
			factorial = factorial * j
		enddo
		
		partialSum = partialSum + (1.0 / factorial)
	enddo
	print *, i, partialSum
enddo
End