Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  derivée premiere
Language: FORTRAN
Code:
     program test
        n=20.
        pi=3.1415
        h=2*pi/n-1
        do i=1,n-1
        xi=(i-1)*h
        dfi=(sin(xi+h)-sin(xi))/h
        write(1,*)xi,dfi
        write(2,*)xi,cos(xi)
        enddo
        stop
        end
          
Comments: