字符串比对

使用西门子博途写一段程序：
1.数据块中有10个数组，数组类型是字符串，每个数组字符串大小为10个。
2.数组中查找相同时跳出循环

以下是使用西门子博途进行字符串比对的程序：

[code]PROGRAM StringComparison
VAR
    arr: ARRAY[1..10, 1..10] OF CHAR;
    i, j, k: INT;
BEGIN
    // 初始化数组
    arr[1] := 'hello';
    arr[2] := 'world';
    arr[3] := 'foo bar';
    arr[4] := 'lorem ipsum';
    arr[5] := 'dolor sit';
    arr[6] := 'amet';
    arr[7] := 'consectetur';
    arr[8] := 'adipiscing';
    arr[9] := 'elit';
    arr[10] := 'sed do';

    FOR i := 1 TO 9 DO
        FOR j := i + 1 TO 10 DO
            // 比对两个字符串
            k := 1;
            WHILE (arr[i, k] = arr[j, k]) AND (k < 10) DO
                k := k + 1;
            IF k = 10 THEN
                // 找到相同字符串
                WRITE('Found matching strings: ', arr[i], ' and ', arr[j]);
                RETURN; // 跳出循环
            END_IF;
        END_FOR;
    END_FOR;

    // 没有找到相同字符串
    WRITE('No matching strings found.');
END_PROGRAM[/code]