Open main menu
Home
Random
Recent changes
Special pages
Community portal
Preferences
About Wikipedia
Disclaimers
Incubator escapee wiki
Search
User menu
Talk
Dark mode
Contributions
Create account
Log in
Editing
ALGOL 60
(section)
Warning:
You are not logged in. Your IP address will be publicly visible if you make any edits. If you
log in
or
create an account
, your edits will be attributed to your username, along with other benefits.
Anti-spam check. Do
not
fill this in!
====ALGOL 60==== '''procedure''' Absmax(a) Size:(n, m) Result:(y) Subscripts:(i, k); '''value''' n, m; '''array''' a; '''integer''' n, m, i, k; '''real''' y; '''comment''' The absolute greatest element of the matrix a, of size n by m, is copied to y, and the subscripts of this element to i and k; '''begin''' '''integer''' p, q; y := 0; i := k := 1; '''for''' p := 1 '''step''' 1 '''until''' n '''do''' '''for''' q := 1 '''step''' 1 '''until''' m '''do''' '''if''' abs(a[p, q]) > y '''then''' '''begin''' y := abs(a[p, q]); i := p; k := q '''end''' '''end''' Absmax; Implementations differ in how the text in bold must be written. The word 'INTEGER', including the quotation marks, must be used in some implementations in place of '''integer''', above, thereby [[stropping (syntax)|designating]] it as a special keyword. Following is an example of how to produce a table using [[Elliott 803]] ALGOL:<ref>[http://www.billp.org/ccs/A104/ "803 ALGOL"], the manual for [[Elliott 803]] ALGOL</ref> FLOATING POINT ALGOL TEST' BEGIN REAL A,B,C,D' READ D' FOR A:= 0.0 STEP D UNTIL 6.3 DO BEGIN PRINT {{abbr|PUNCH(3)|sends output to the teleprinter rather than the tape punch.}},££L??' B := SIN(A)' C := COS(A)' PRINT {{abbr|PUNCH(3)|sends output to the teleprinter rather than the tape punch.}},{{abbr|SAMELINE|suppresses the carriage return + line feed normally printed between arguments.}},{{abbr|ALIGNED(1,6)|controls the format of the output with 1 digit before and 6 after the decimal point.}},A,B,C' END' END'
Edit summary
(Briefly describe your changes)
By publishing changes, you agree to the
Terms of Use
, and you irrevocably agree to release your contribution under the
CC BY-SA 4.0 License
and the
GFDL
. You agree that a hyperlink or URL is sufficient attribution under the Creative Commons license.
Cancel
Editing help
(opens in new window)