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
Gauss pivot elimination
Test
euler-cromer
Exercise 02
Practice 1(IV)
A_02 JACOBIAN NEWTON'S ITERATIVE METHOD
A_03 EULER'S METHOD
Ch2 ex1 p15
Summation of 1 to 100 integer namber
problem_2