SCL
使用西门子博途写一段程序：
1.数组中10个数组
2.数组中比对相同时跳出循环 下面是使用西门子博途编写的程序，其中包括一个10个元素的数组和一个循环判断数组中是否有相同值的功能。如果发现了相同的值，程序将立即跳出循环。
//声明一个10个元素的数组
INT arr := ;
//定义变量用于存储相同值的数量
INT count := 0;
//循环判断数组中是否有相同的值
FOR i := 0 TO 9 DO
FOR j := i+1 TO 9 DO
IF arr = arr THEN
//如果发现相同的值，计数器加1
count := count + 1;
//输出相同的值以及它们在数组中的位置
WRITE('There is a same value of ',arr,' 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
页:
[1]