GEOMETRIC PROGRESSION IN FORTRAN

1.                 GEOMETRIC PROGRESSION

This program is set to execute geometric progression.

program Geometric

!This program solve Arithemetic Progression

implicit none

         integer :: a,b,c,e,i

!a is first term

!b is commnon ratio

!c is last term

!e is value equation

print*, 'Please enter you first term'

    read*, a

print*, 'Please enter your common ratio'

    read *, b

print*, 'Please enter your last term'

    read *, c

   e=1

e=e*b

do i=a,c

  print *, i

  end do

end program Geometric