Cobol 反转字符串

在 Cobol 中反转字符串是一项重要的操作。本文将带你一步步了解 Cobol 中如何实现反转字符串。

实现

在 Cobol 中反转字符串的实现方法比较简单。首先，我们需要定义一个字符串以存储输入的字符串，接着通过计算这个字符串的长度，使用循环将字符串反转。下面是一个参考实现：

IDENTIFICATION DIVISION.
PROGRAM-ID. REVERSE-STRING.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 STRING-IN      PIC X(20) VALUE "Cobol".
01 STRING-OUT     PIC X(20).

PROCEDURE DIVISION.
    MOVE FUNCTION LENGTH(STRING-IN) TO WS-LEN
    COMPUTE WS-LEN = WS-LEN - 1
    PERFORM VARYING WS-I FROM 0 BY 1 UNTIL WS-I > WS-LEN
        MOVE STRING-IN(WS-LEN - WS-I + 1:1) TO STRING-OUT(WS-I + 1:1)
    END-PERFORM
    DISPLAY "Original String: " STRING-IN
    DISPLAY "Reversed String: " STRING-OUT
    STOP RUN.

在以上代码中，我们首先定义了两个字符串，用于存储输入字符串和反转后的字符串。然后，我们使用 LENGTH 函数计算字符串长度，然后将长度减去1。接着，我们使用循环遍历输入的字符串，通过 MOVE 语句将每个字符逆序存入输出字符串中。循环结束后，我们使用 DISPLAY 函数输出原始字符串和反转后的字符串。

测试

为了验证我们的实现是否正确，我们可以输入一些字符串进行测试：

Original String: Cobol
Reversed String: loboC

Original String: Hello World
Reversed String: dlroW olleH

以上例子说明我们的实现是可行的。

结论

在 Cobol 中实现反转字符串虽然简单，但是也需要遵循一定的规范。我们需要定义字符串、计算字符串长度、循环遍历字符串并逆序存储、输出反转后的字符串。通过以上实现和测试，我们可以看到 Cobol 中反转字符串的操作是完全可行的。