发布于 2015-01-23 08:32:20
11楼
FUNCTION FC27 : INT
// Block Parameters
VAR_INPUT
in0:REAL; // Input Parameters
in1:REAL;
in2:REAL;
in3:REAL;
in4:REAL;
in5:REAL;
in6:REAL;
in7:REAL;//x轴输入数据
in_0:REAL;
in_1:REAL;
in_2:REAL;
in_3:REAL;
in_4:REAL;
in_5:REAL;
in_6:REAL;
in_7:REAL;//y轴数据
END_VAR
VAR_IN_OUT
// I/O Parameters
END_VAR
VAR_OUTPUT
// Output Parameters
END_VAR
VAR_TEMP
input1:ARRAY[0..7] OF real;//x轴输入
input2:ARRAY[0..7] OF real;//y轴输入
temp:REAL;//临时变量
i:INT;
j:INT;
END_VAR
input1[0]:=in0;
input1[1]:=in1;
input1[2]:=in2;
input1[3]:=in3;
input1[4]:=in4;
input1[5]:=in5;
input1[6]:=in6;
input1[7]:=in7;
input2[0]:=in_0;
input2[1]:=in_1;
input2[2]:=in_2;
input2[3]:=in_3;
input2[4]:=in_4;
input2[5]:=in_5;
input2[6]:=in_6;
input2[7]:=in_7;
FOR i:=0 TO 7 DO
FOR j:=0 TO 7 do
IF input1[i]>input1[j] THEN
temp:=input1[i];
input1[i]:=input1[j];
input1[j]:=input1[i];//x轴交换
temp:=input2[i];
input2[i]:=input2[j];
input2[j]:=input2[i];//y轴交换
END_IF;
END_FOR;
END_FOR;
// Statement Section
;
FC27 := 100;
END_FUNCTION
活到老,学到老!为了生活学习吧!