Διαφάνεια PPT

PROGRAM BINDEC

DIMENSION IA(20)

DATA IA/20*0/

READ(*,*) X

IF(X.GT.1000000.) STOP

J=0

30 CONTINUE

DO N=0,20

T = 2**N

IF (T.GT.X) THEN

IA(20+1-N)=1

X= X-2**(N-1)

IF(J.EQ.0) J=20+1-N

IF(X.EQ.0) GO TO 15

GO TO 30

ENDIF

ENDDO

15 CONTINUE

WRITE(*,'(1X,20I1)')(IA(I),I=J,20)

END

ΠΡΟΓΡΑΜΜΑ FORTRAN ΓΙΑ ΜΕΤΑΤΡΟΠΗ ΔEKΑΔΙΚΟΥ ΣΕ ΔYΑΔΙΚΟ

Προηγούμενη διαφάνεια

Επόμενη διαφάνεια

Μετάβαση στην πρώτη διαφάνεια

Προβολή έκδοσης γραφικών