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)
“All that a city will ever allow you is an angle on it—an oblique, indirect sample of what it contains, or what passes through it; a point of view.”
—Peter Conrad (b. 1948)