انجام پروژه نمونه کد فرترن سری فیبوناچی

کد فرترن برنامه ای که که عدد n رو میگیره و تا جمله n ام سری فیبوناچی رو به صورت سطری چاپ میکنه.در پست قبل همین سری به صورت ستونی چاپ میشه

 

.

 

PROGRAM fibo

IMPLICIT NONE

INTEGER::f1,f2,f3,i,n

INTEGER,ALLOCATABLE::a(:)

READ*,n

ALLOCATE (a(n))

PRINT*

f1=1

f2=1

a(1)=f1

a(2)=f2

DO  i=3,n

f3=f2+f1

a(i)=f3

f1=f2

f2=f3

END DO

PRINT*,a

END