qq910877460
這操蛋的工控行業(yè)
級(jí)別: 略有小成
|
牛逼牛逼,馬克了 |
|
---|---|---|
|
發(fā)照片
問題少年
級(jí)別: 略有小成
|
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; |
---|---|
|
maxmmx
maxmmx
級(jí)別: 探索解密
|
搜尋最大或最小值加上便址傳送並不難這種表格資料並不難,難的是你要如何將表格方式演化進(jìn)去機(jī)械流程又不會(huì)異常 |
---|---|
|
wu1111bin
12345
級(jí)別: 略有小成
|
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; ;; |
---|---|
|