putbox.bak

来自「此程序目的用来计算集装箱装量」· BAK 代码 · 共 31 行

FUNCTION putbox
	PARAMETERS state
	INT x=0
	INT Y=0
	INT a=0,b=0
	DO caculate WITH state

	FOR x = 0 TO wb-w
		FOR  Y = 0 TO lb-lb
			IF hb-HEIGHT(x,Y)>=h
				FOR (a=0a<wa++)
					FOR (b=0b<lb++)
						IF(HEIGHT(x+a,Y+b)!=HEIGHT(x,Y))	RETURN 0
						ELSE
							CONTINUE
						ENDIF
					ENDFOR
				ENDFOR
				FOR (a=0a<wa++)
					FOR (b=0b<lb++)
						HEIGHT(x+a,Y+b)=HEIGHT(x+a,Y+b)+h
					ENDFOR
				ENDFOR
				RETURN 1
			ELSE
				CONTINUE
			ENDIF
		ENDFOR
	ENDFOR
	RETURN 0
	END FUNCTION