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

کد فرترن ضریب دو جمله ای|کد فرترن ضریب دوجمله ای|کد فرترن ضرایب دو جمله ای|کد فرترن ضرایب دوجمله ای نیوتن|ضریب دوجمله ای نیوتن|مثلث خیام|مثلث خیام پاسکال|مثلث خیام به زبان فرترن|ضرایب دو جمله ای به زبان فرترن

--------------------------------------------------------------------------------------------------------------------------------------------

 

 

 

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

 

 

 

PROGRAMkhayam

 

 

IMPLICIT NONE

 

 

INTEGER::n,i,t1,t2,t3,j1,j2,j3

 

 

INTEGER,ALLOCATABLE::a(:)

 

 

PRINT*," n ra vared konid : "

 

 

READ*,n

 

 

PRINT*

 

 

ALLOCATE (a(n+1))

 

 

t1=1

 

 

DO  j1=1,n

 

 

t1=t1*j1

 

 

END DO

 

 

DO  i=0,n

 

 

t3=1

 

 

t2=1

 

 

DO  j2=1,i

 

 

t2=t2*j2

 

 

END DO

 

 

DO  j3=1,n-i

 

 

t3=t3*j3

 

 

END DO

 

 

a(i+1)=t1/(t2*t3)

 

 

END DO

 

 

PRINT*,"zarayeb baraye tavan",n," :     ",a

 

 

PRINT*

 

 

END