fork download
copy 
  1. Function fact(n)
  2. Integer fact
  3. Fact=1
  4. Do i =2,n
  5. Fact=fact*i
  6. Enddo
  7. Return
  8. End
  9. Integer fact
  10. Read*,x
  11. Sum=0.0
  12. K=1
  13. Do i =1,11,2
  14. Sum=sum+k*x**i/real(fact(i))
  15. K=-k
  16. Enddo
  17. Print*,'sinx=',sum
  18. Stop
  19. End
Success #stdin #stdout 0.01s 5292KB
comments (?)
stdin
copy 
1
stdout
copy 
 sinx=  0.841470957
https://ideone.com/eWAc7v
language:
Fortran (gfortran 8.3)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!