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

如何解决如何创建将八进制转换为二进制？

当我输入数字 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 if。 if else if 列车通常由 case 语句提供更好的服务。

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

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

bin = bin + 'xxx'

与：

bin = 'xxx' + bin