Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
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
Please
log in
to post a comment.
Vi ss. F
SUM OF ODD NUMBERS
4
Fortran
Fibonacci 500
first
New3
Characteristics polynomial
EXERCISE
Formatted Output 001
Please log in to post a comment.