回复:冒泡算法扩展

zhangli0

西门子1847工业学习平台

  • 帖子

    17216
  • 精华

    64
  • 被关注

    898

论坛等级:至圣

注册时间:2003-06-06

钻石 钻石 如何晋级?

发布于 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
活到老,学到老!为了生活学习吧!
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC S7-300/400

共有54711条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
X 图片
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。