Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Fibonacci
Language: FORTRAN
Code:
integer f1,f2,f3
f1=1
f2=2
write (*,*)'to display fibonacci numbers.'
write (*,*) 'enter the number of terms to be displayed.'
read (*,*)n
write(*,*) ' the fibonacci sequence is :'
IF (n.EQ.1)THEN
write (*,10)f1
format (1x,16)
ELSE
write (*,10)f1
write (*,10)f2
DO 20 i=3, n
f3=f1+f2
write (*,10)f3
f1=f2
f2=f3
continue
ENDIF
STOP
END     
Comments: