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
Practice secant
Fact funsub
3
A_02 JACOBIAN NEWTON'S ITERATIVE METHOD
Practice 2(I)
Me
Square even loop
Quardratic equation solve
1(iii)
simpsonova for