下面是使用西门子博途编写的程序，其中包括一个10个元素的数组和一个循环判断数组中是否有相同值的功能。如果发现了相同的值，程序将立即跳出循环。
[code]//声明一个10个元素的数组
INT arr[10] := [1, 2, 3, 4, 5, 6, 7, 8, 9, 10];
//定义变量用于存储相同值的数量
INT count := 0;
//循环判断数组中是否有相同的值
FOR i := 0 TO 9 DO
FOR j := i+1 TO 9 DO
IF arr[i] = arr[j] THEN
//如果发现相同的值，计数器加1
count := count + 1;
//输出相同的值以及它们在数组中的位置
WRITE('There is a same value of ',arr[i],' in index ',i,' and index ',j);
//跳出循环
EXIT;
END_IF
END_FOR
END_FOR
//判断是否有相同的值，如果没有则输出提示信息
IF count = 0 THEN
WRITE('No same values found in the array');
END_IF[/code] |
