#포트란 #10진수 #2진수
! convert decimal to binary
integer decimall, binaryy(10)
! initial 0
10 do 20 i=1,10
binaryy(i)=0
20 continue
! recieve decimal number as binary number
write(*,*) 'Integer with 3 digits or less...'
read(*, 25, end=999) decimall
25 format(i3)
! convert decimal to binary
do 30 i=10,1,-1
mok = decimall/2
nmg = decimall-mok*2
binaryy(i)= nmg
if(mok.eq.0) goto 40
decimall = mok
30 continue
! binary output
40 write(*,45) binaryy
45 format(1x,2i1, 1x, 4i1, 1x, 4i1, /)
goto 10
999 write(*,*)
write(*,*) 'end of run'
end
https://youtu.be/QSsuP05wZU4