Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
recursive factorial
program hello implicit none integer::fact write(*,10)'Factoprial value --->>',fact(5) 10 format(4x,A30,2x,I5) end program recursive function fact(n) result (val) implicit none integer::n,val if(n==0.or.n==1)then val=1; else val=n*fact(n-1) return end if end function
run
|
edit
|
history
|
help
0
A_03 RUNGE KUTTA METHOD O(4)
euler-cromer
euler-cromer
8
exercise
my_second_code
C
A_01 CHEBYSHEV_METHOD
Fortran!
fucugigugug