你好，以下是我在文华编程的语句，基本在金字塔可以运行。但是否能用循环语句或者别的函数帮我改成较为简单的程序，但思路不变。 J:=LLV(LOW,5); C1:=IFELSE(CZ>REF(J,1),REF(J,1),0); C2:=IFELSE(CZ>REF(J,2)&&CZ<=REF(J,1),REF(J,2),0); C3:=IFELSE(CZ>REF(J,3)&&CZ<=REF(J,1)&&CZ<=REF(J,2),REF(J,3),0); PX:=CZ<=REF(J,1)&&CZ<=REF(J,2)&&CZ<=REF(J,3); C4:=IFELSE(CZ>REF(J,4)&&PX,REF(J,4),0); C5:=IFELSE(CZ>REF(J,5)&&PX&&CZ<=REF(J,4),REF(J,5),0); PY:=PX&&CZ<=REF(J,4)&&CZ<=REF(J,5); C6:=IFELSE(CZ>REF(J,6)&&PY,REF(J,6),0); C7:=IFELSE(C>REF(J,7)&&PY&&C<=REF(J,6),REF(J,7),0); PZ:=PY&&CZ<=REF(J,6)&&CZ<=REF(J,7); C8:=IFELSE(CZ>REF(J,8)&&PZ,REF(J,8),0); C9:=IFELSE(CZ>REF(J,9)&&PZ&&CZ<=REF(J,8),REF(J,9),0); C10:=IFELSE(CZ>REF(J,10)&&PZ&&CZ<=REF(J,8)&&CZ<=REF(J,9),REF(J,10),0); AC:=C1+C2+C3+C4+C5+C6+C7+C8+C9+C10; PC1:=IFELSE(AC>REF(J,1),REF(J,1),0); PC2:=IFELSE(AC>REF(J,2)&&AC<=REF(J,1),REF(J,2),0); PC3:=IFELSE(AC>REF(J,3)&&AC<=REF(J,1)&&AC<=REF(J,2),REF(J,3),0); XP:=AC<=REF(J,1)&&AC<=REF(J,2)&&AC<=REF(J,3); PC4:=IFELSE(AC>REF(J,4)&&XP,REF(J,4),0); PC5:=IFELSE(AC>REF(J,5)&&XP&&AC<=REF(J,4),REF(J,5),0); YP:=XP&&AC<=REF(J,4)&&AC<=REF(J,5); PC6:=IFELSE(AC>REF(J,6)&&YP,REF(J,6),0); PC7:=IFELSE(AC>REF(J,7)&&YP&&AC<=REF(J,6),REF(J,7),0); ZP:=YP&&AC<=REF(J,6)&&AC<=REF(J,7); PC8:=IFELSE(AC>REF(J,8)&&ZP,REF(J,8),0); PC9:=IFELSE(AC>REF(J,9)&&ZP&&AC<=REF(J,8),REF(J,9),0); PC10:=IFELSE(AC>REF(J,10)&&ZP&&AC<=REF(J,8)&&AC<=REF(J,9),REF(J,10),0); AAC:=PC1+PC2+PC3+PC4+PC5+PC6+PC7+PC8+PC9+PC10; C0:=VALUEWHEN(AAC>0,AAC); |