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
EXERCISE
Finite
A_01 FIXED_POINT_IM(II)
Finding trace
A_02 GUASSIAN_ELIMINATION METHOD
SIUM(3.7)
222
A_02 GUASS SEIDEL METHOD
my_second_code
CHARACTER REVOLVING