AnonymousEng

3a - page 166

Jan 14th, 2013
52
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.       DIMENSION A(100)
  2.       A(1) = 1
  3.       A(2) = 1
  4.       DO 10 I=3,100
  5.          A(I)= A(I-1) + A(I-2)
  6.  10   CONTINUE
  7.       WRITE(*,*) (A(I),I=1,100)
  8.       PAUSE
  9.       STOP
  10.       END
Advertisement
Add Comment
Please, Sign In to add comment