97久久精品人人爽人人爽蜜臀/www.青草视频/成视频年人黄网站视频福利/国产第一页第二页/国产裸拍裸体视频在线观看/国产又色又爽又高潮免费/精品超清无码视频在线观看/久久精品蜜芽亚洲国产av/辽宁熟女高潮狂叫视频/你懂在线/欧美少妇15p/人妖 丝袜 另类 亚洲/日韩欧美网站/少妇人妻大乳在线视频/婷婷色国产/性色av无码久久一区二区三区/亚洲精品图片一区15p/亚洲一卡2卡3卡4卡5卡精品

各位大神，小弟求助關于三菱work2 用ST語言求20位數組中值平均數，要求去掉最大值和最小值。數組單精度實數類型，求各位大聲不吝賜教！！！！！！！！！！！！！！！！！！！

要不你先做個梯形圖的出來吧

.........

二樓大神麻煩把計算器頁面去掉，擋住了         

套指令

rSum:=aData[0];
rMin:=aData[0];
rMax:=aData[0];
FOR index:=1 TO 20 BY 1 DO
    IF rMin > aData[index] THEN
        rMin:=aData[index];
    END_IF;
    IF rMax < aData[index] THEN
        rMax:=aData[index];
    END_IF;        
    rSum:=rSum+aData[index];
END_FOR;
rSum:=rSum-rMax;
rSum:=rSum-rMin;
rAve:=rSum/20.0;

謝謝各位大神已解決

引用

引用第5樓uthman于2022-11-21 17:26發表的 Re:求助關于三菱work2 用ST語言求20位數組中值平均數，要求去掉最大值和 .. :
rSum:=aData[0];
rMin:=aData[0];
rMax:=aData[0];
FOR index:=1 TO 20 BY 1 DO
    IF rMin > aData[index] THEN
.......

有個小問題，就是沒有排除非0數，如果 數組就兩個數   賦值>0 那結果就錯誤了

(*三菱work2 用ST語言求20位數組中值平均數，
要求去掉最大值和最小值 數組單精度實數類型 *)

(* 初始化*)
IF bstart THEN
    IF NOT bstartOld THEN
        DataMax:=0.0;
        DataMin:=0.0;
        DataSun:=0.0;
        bstartFlg:=TRUE;
    END_IF;
ELSIF bstartOld THEN
    bstartFlg:=FALSE;
        DataMax:=0.0;
        DataMin:=0.0;
        DataSun:=0.0;
END_IF;

(* 計算*)
IF bstartFlg AND NOT bstartFlgOld THEN
    FOR     index:=0 TO 19 DO
         IF DataMax<Data[index]THEN  (*求最大值*)
             DataMax:=Data[index];
         END_IF;
        
         IF DataMin>Data[index]THEN  (*求最小值*)
             DataMin:=Data[index];
         END_IF;
        
          DataSun:=Data[index]+DataSun;(*求和*)
          DataAverage:=(DataSun-DataMax-DataMin)/18.0;(*求平均值*)
     END_FOR;    
END_IF;

bstartOld:=    bstart ;
bstartFlgOld:=bstartFlg;