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

کد فرترن محاسبه ی فاکتوریل یک عدد

 

 

 

PROGRAM fuct

IMPLICIT NONE

INTEGER::n,s,i

READ*,n

s=1

DO  i=1,n

s=s*i

END DO

PRINT*,s

END