M0 :=(D0=1 AND NOT X5 AND X7 AND X8) OR D2=1 OR D5=1 OR D12 =1;
IF M0= TRUE AND LDP(TRUE,M1) THEN
D100 :=D100+1;
END_IF;
IF M0= TRUE AND LDP(TRUE,M2) THEN
D101 :=D101+1;
END_IF;
IF M0= TRUE AND LDP(TRUE,M3) THEN
D102 :=D102+1;
END_IF;
IF M0= TRUE AND LDP(TRUE,M4) THEN
D103 :=D103+1;
END_IF;
IF M0= TRUE AND LDP(TRUE,M5) THEN
D104 :=D104+1;
END_IF;
IF M0= TRUE AND LDP(TRUE,M6) THEN
D105 :=D105+1;
END_IF;
IF M0= TRUE AND LDP(TRUE,M7) THEN
D106 :=D106+1;
END_IF;
其实我看出来你想说什么了,是我的会我会用标签的布尔数组,要加的数据也是数组;
用FOR去写就好了。我觉得你一定会用变址,因为你的思想已经被束缚了