91黄动漫 I 欧美 日韩 国产 成人 在线 I a级成人毛片 I 农村黄色片 I 男生捅女生的肌肌 I 精品99一区二区三区 I 妃光莉av I 日日夜夜操操 I 性中国古装videossex I 久久不卡av I 美女高潮动态图 I 极品美女开粉嫩精品 I 牛牛精品一区二区 I 91精品福利视频 I 成人刺激视频 I 91国内精品视频 I 中国一级特黄毛片大片 I 校长狠狠挺进校花体内小说 I 欧美激情黄色片 I 欧美久久久一区 I 爱豆国产剧免费观看大全剧苏畅 I 麻豆国产人妻欲求不满谁演的 I 亚洲一区二区在线免费观看视频 I 国产超碰av人人做人人爽 I 精品国产第一国产综合精品 I 久久免费看av I 欧美一区二区三区白人 I 国产精品夫妻激情 I 校花被肉干高h潮不断 I 欧美最猛黑人xxxx黑人表情 I 国产欧美日韩一区二区搜索 I 极品女神露脸呻吟啪啪 I 人人天天久久 I 亚洲动漫在线 I 日本91福利区 I 五月天 桃色 开心 I av在线免费观看国产 I 男人添女人的免费视频 I 夜夜穞天天穞狠狠穞

ASDFG

謝謝分享

精華精華

嵌套二層循環就可以了。

牛逼牛逼，馬克了

IF Enable THEN
    IF LDP(TRUE,ContentStart) THEN
        SortEnd:=FALSE;
        ZRST(TRUE,DataOut1[0],DataOut1[29]);
        ZRST(TRUE,DataOut2[0],DataOut2[29]);
        ZRST(TRUE,DataContent_Min[0],DataContent_Min[29]);
        ZRST(TRUE,DataContent_Max[0],DataContent_Max[29]);
        Data_i:=0;
        MoveEnd:=TRUE;
    END_IF;
    IF MoveEnd THEN
        FOR Data_i:=0 TO DataNumber-1 BY 1 DO
            DataContent_Min[Data_i]:=DataContent[Data_i];  
            DataContent_Max[Data_i]:=DataContent[Data_i];
        END_FOR;    
        SortStart:=TRUE;
        MoveEnd:=FALSE;
    END_IF;
    IF SortStart THEN
        DataNumber_i:=0;
        FOR DataNumber_i:=0 TO DataNumber-2 BY 1 DO  
            DataSort:=DataNumber-(DataNumber_i+1);
            FOR DataSort_i:=0 TO DataSort-1 BY 1 DO
                IF DataContent_Min[DataNumber_i+DataSort_i+1]<=DataContent_Min[DataNumber_i] THEN
                    DataContent_N_E_Min:=DataContent_Min[DataNumber_i];
                    DataContent_S_E_Min:=DataContent_Min[DataNumber_i+DataSort_i+1];
                    DataContent_Min[DataNumber_i]:=DataContent_S_E_Min;
                    DataContent_Min[DataNumber_i+DataSort_i+1]:=DataContent_N_E_Min;
                    DataOut2[DataNumber_i]:=DataContent_S_E_Min;
                    DataOut2[DataNumber-1]:=DataContent_N_E_Min;
                END_IF;    
                IF DataContent_Max[DataNumber_i+DataSort_i+1]>=DataContent_Max[DataNumber_i] THEN
                    DataContent_N_E_Max:=DataContent_Max[DataNumber_i];
                    DataContent_S_E_Max:=DataContent_Max[DataNumber_i+DataSort_i+1];
                    DataContent_Max[DataNumber_i]:=DataContent_S_E_Max;
                    DataContent_Max[DataNumber_i+DataSort_i+1]:=DataContent_N_E_Max;
                    DataOut1[DataNumber_i]:=DataContent_S_E_Max;
                    DataOut1[DataNumber-1]:=DataContent_N_E_Max;
                END_IF;    
            END_FOR;    
        END_FOR;
        SortStart:=FALSE;
        SortEnd:=TRUE;
    END_IF;
END_IF;

謝謝分享

搜尋最大或最小值加上便址傳送並不難這種表格資料並不難,難的是你要如何將表格方式演化進去機械流程又不會異常

BMOV(TRUE,D100,K20,D200);
D0:=K20;
  
FOR D2 := 0 TO 19 BY 1 DO
    Z0:=K0;
    Z1:=K1;
    SUBP(TRUE,D0, K1, D1);
    FOR D3 := 1 TO D1 BY 1 DO
        IF   D200Z0>D200Z1  THEN
            XCH(TRUE,D200Z0,D200Z1);
        END_IF;
        INC(TRUE,Z0);
        INC(TRUE,Z1);
    END_FOR;
    DEC(TRUE,D0);
END_FOR;
;;

謝謝分享。。。。。。。

感謝分享

牛逼，超贊！