انجام برنامه نویسی فرترن نمونه کد فرترن تبدیل مبنای 2 به 10

PROGRAM mabna

IMPLICIT NONE

INTEGER::n,s,i,j,t,k

READ*,n

j=1

DO

IF (n<(10**j)) THEN

k=i

EXIT

ELSE

j=j+1

END IF

END DO

s=0

DO  i=0,k-1

t=MOD(n,10)*(2**i)

s=s+t

n=INT(n/10)

END DO

PRINT*,s

END