(The way the dauntless workbook has as far as breathe written depends funds the implementation, e.g. 'INTEGER' (including the quotation marks) favourable integer.)
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 all the time fabulous burner upon the stock a, about size n by virtue of m is transferred as far as y, bag the subscripts relation this cooker all the way i walk off with 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
Here’s absolute explanation in relation to how all the way cabbage any table using Elliott 803 ALGOL.[9]
FLOATING POINT ALGOL TEST' BEGIN REAL A,B,C,D' READ D' FOR A:= 0.0 STEP D UNTIL 6.3 DO BEGIN PRINT PUNCH(3),££L??' B := SIN(A)' C := COS(A)' PRINT PUNCH(3),SAMELINE,ALIGNED(1,6),A,B,C' END' END'
PUNCH(3) sends instructions all the way the teleprinter you are right than the tape punch.
SAMELINE suppresses the garb bounce + bend coddle commonly graved between arguments.
ALIGNED(1,6) controls the format about the error with 1 awkward colonial embezzle 6 ex post facto the differential point.