用Fortran语言把十进制转换为二进制

!十进制转化成二进制
PARAMETER(MS=1000)
INTEGER A,B,C(MS)!由于不确定长度，
!所以数组先定义大一些
WRITE(*,*)'INPUT A DATA N:'
READ(*,*)A
WRITE(*,*)A
I=1
M=0
10 IF(A>0) THEN
B=MOD(A,2)
A=A/2
!WRITE(*,*)'A=',A
WRITE(*,*)'B=',B
C(I)=B
I=I+1
M=M+1
GOTO 10
END IF
P=1
K=M
20 IF(PT=C(P)
C(P)=C(K)
C(K)=T
P=P+1
K=K-1
GOTO 20
END IF
WRITE(*,*)'C=',C(1:M)
END

!十进制转化成二进制
PARAMETER(MS=1000)
INTEGER
A,B,C(MS)!由于不确定长度，
!所以数组先定义大一些
WRITE(*,*)'INPUT
A
DATA
N:'
READ(*,*)A
WRITE(*,*)A
I=1
M=0
10
IF(A>0)
THEN
B=MOD(A,2)
A=A/2
!WRITE(*,*)'A=',A
WRITE(*,*)'B=',B
C(I)=B
I=I+1
M=M+1
GOTO
10
END
IF
P=1
K=M
20
IF(PTHEN
T=C(P)
C(P)=C(K)
C(K)=T
P=P+1
K=K-1
GOTO
20
END
IF
WRITE(*,*)'C=',C(1:M)
END