Code Sample (Clarion For Windows)
Absmax PROCEDURE(LONG a, *LONG OutMaxX, *LONG OutMaxY),LONG ! The absolute greatest element of the matrix is returned to caller as are its positions ! Call by address is done with the * similar to C x LONG,AUTO ! Loop variable y LONG,AUTO ! Loop variable m LONG(0) ! Maximum return value CODE OutMaxX = 1 OutMaxY = 1 LOOP x = 1 TO MAXIMUM(a,1) LOOP y = 1 TO MAXIMUM(a,2) IF ABS(a) > m m = ABS(a) OutMaxX = x OutMaxY = y END END END RETURN mJ Int = 0 z Int j=j+1 z=show(5,5,j) Return z Print z
Read more about this topic: Clarion (programming Language)
Famous quotes containing the words code and/or sample:
“... the self respect of individuals ought to make them demand of their leaders conformity with an agreed-upon code of ethics and moral conduct.”
—Mary Barnett Gilson (1877–?)
“The present war having so long cut off all communication with Great-Britain, we are not able to make a fair estimate of the state of science in that country. The spirit in which she wages war is the only sample before our eyes, and that does not seem the legitimate offspring either of science or of civilization.”
—Thomas Jefferson (1743–1826)