Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Fact funsub
!gfortran, gcc version 5.4.0 201606 program fact_value implicit none integer::fact,n,i,p n=4 print*,n,fact(n) end program fact_value integer function fact(n) implicit none integer::n,i,p=1 do i=n,1,-1 p=p*i end do fact=p end function fact
run
|
edit
|
history
|
help
0
euler-cromer
Secant Method
euler-cromer
Characteristics polynomial
Jánošík 2018
Comparison of three numbers
SIUM(3.5)
Prime
Test
Jacobi