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
Title
Rvc
EXERCISE
Characteristics polynomial
A_04 GUASSIAN QUADRATURE METHOD
test for linear congruential method
Pivot 2
Bissection Method
Summation of 1 to 100 integer namber
Won rules summation 1 to 100 square namber