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:
“Acknowledge your will and speak to us all, “This alone is what I will to be!” Hang your own penal code up above you: we want to be its enforcers!”
—Friedrich Nietzsche (1844–1900)
“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)