如何创建将八进制转换为二进制?

问题描述

当我输入数字 2,5,7 时出现问题,结果正常,当我输入数字 1,3,4,6 时,结果不匹配。

define variable oct as character.
define variable l-oct as integer.
define variable oktal as integer.
define variable l-oktal  as integer.
define variable count as integer.
define variable i as integer.
define variable bin as character.
define variable bin2 as character.

end.

do i = length(bin) to 1 by -1:
  bin2 = bin2 + substring(bin,i,1).
end.

display bin2 with frame a down.

解决方法

您的 if else if 火车缺少 else ifif else if 列车通常由 case 语句提供更好的服务。

此外,您首先要构建一个从后到前的三位数字组二进制字符串,然后在末尾每个数字将其反转。

因此,在八进制 1 变成二进制 001 的情况下,您将其翻转为 100。不要在之后翻转,而是正确连接您的字符串以开始,因此替换所有出现的:

bin = bin + 'xxx'

与:

bin = 'xxx' + bin