Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Fib series
Program fibici Implicit none Real j,k,fib,N Integer i J=-1 k=1 N=10 fib=0 100 continue fib=j+k J=k K=fib i=i+1 Write(*,*) fib If(I .le. 10) goto 100 End program fibici
run
|
edit
|
history
|
help
-1
Fhhjhh
1(iii)
Finite
finitos
Fortran Homework 1
IF GO TO
A_03 RUNGE KUTTA METHOD O(4)
problem_2
A_04 GUASSIAN QUADRATURE METHOD FOR 3(I) AND 3(II)
Rand