Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Recursive fibonacci
!gfortran, gcc version 7.4.0 program hello implicit none integer::i,fib,n do i=0,n-1 write(*,*)fib(i) end do end program hello recursive function fib(n) result(s) implicit none integer::n,s if (n==0)then s=0; else if(n==1)then s=1 else s=fib(n-1)+fib(n-2) return end if end function
run
|
edit
|
history
|
help
0
Question1(b)
Gauss seidal
Gauss for
Gauss forward elimination
Blasius Euler Code
A_01 FIXED_POINT_IM(I)
55
exercise
A_04 TRAPEZOIDAL RULE (3(I))
Example 45 175 page