十进制数字转为二进制字符

vvt

最简单的方法当然是像楼上那样用内部文件读写

做为编程练习，你的代码也是可以的，但有一些问题，如下（注意你的代码不适合负数）：

关于为什么是 "" 而不是 1，你可以看本站文章：
http://string.w.fcode.cn/

[Fortran] 纯文本查看 复制代码

program decimal_to_binary
  implicit none
  integer :: decimal_number
  character(len=32) :: binary_string
  integer :: i, remainder

  write(*, *) "请输入一个十进制数字：" 
  read(*, *) decimal_number
  binary_string = ""
  do i = 31, 0, -1
    remainder = mod(decimal_number, 2)
    binary_string = char(remainder + 48)//binary_string  !//放前面
    decimal_number = decimal_number / 2
    if(decimal_number<1)exit !//需要中止循环条件
  end do
  write(*, *) "对应的二进制字符串为：", binary_string
end program decimal_to_binary