procedure senddata var i:integer commflg : Boolean begin commflg:=true for i:=1 to 8 do begin if not fcomm comml writecommdata(sendbutter,i) then begin Commflg=false break end end

数字图像处理课上讲到图像和视觉基础时涉及到了离散数学中的一个概念: 传递闭包。刚好我的C语言刚看到数组，就编来看看吧。-Digital Image Processing class visual sense to the base image and involves a discrete mathematics concepts: the transitive closure. Just me just to see the array of C language, on the alloca