Fortran十进制转二进制：数组元素二进制转换代码求助

你的代码语法合规，但二进制转换逻辑和输出格式可以优化，让结果更直观清晰。以下是调整后的代码及说明：

原代码问题分析 #

原代码会生成固定32位的二进制字符串，包含大量冗余前导零；且当数值转换完成（k变为0）后仍会继续循环填充零，既浪费计算资源，也让输出不够简洁。

修改后的代码 #

program array_binary
    implicit none
    integer, dimension(8) :: numbers
    character(len=32), dimension(8) :: binary_numbers
    integer :: i, k, bit_pos

    numbers = [8, 9, 3, 4, 89, 6, 7, 8]
    binary_numbers = ""  ! 统一初始化二进制字符串

    do i = 1, 8
        k = numbers(i)
        bit_pos = 32  ! 从字符串末尾开始填充二进制位

        ! 单独处理数值为0的情况
        if (k == 0) then
            binary_numbers(i)(32:32) = "0"
            cycle
        end if

        ! 仅在k>0且还有可用位时循环转换
        do while (k > 0 .and. bit_pos >= 1)
            binary_numbers(i)(bit_pos:bit_pos) = merge("1", "0", mod(k,2) /= 0)
            k = k / 2
            bit_pos = bit_pos - 1
        end do
    end do

    ! 对应显示十进制数和紧凑二进制数
    do i = 1, 8
        write(*, '(A, I5, A, A)') "十进制: ", numbers(i), " 二进制: ", trim(adjustl(binary_numbers(i)))
    end do
end program array_binary

关键优化点 #

• 精简转换循环：改用do while循环，当k归0或字符串填满时立即停止，避免无效计算
• 兼容零值场景：添加数值为0时的特殊处理，确保输出正确的二进制"0"
• 优化输出可读性：使用格式化输出将十进制和二进制值对应展示，通过trim(adjustl(...))去除前导空格，得到紧凑的二进制结果
• 简化赋值逻辑：用merge函数替代if-else，让二进制位赋值更简洁

运行修改后的代码，你会看到每个十进制数对应的紧凑二进制值，输出清晰直观。

内容的提问来源于stack exchange，提问作者Koleander