Editing ALGOL (section)

====ALGOL 68====
The following code samples are ALGOL 68 versions of the above ALGOL 60 code samples.

ALGOL 68 implementations used ALGOL 60's approaches to [[stropping (programming)|stropping]]. In ALGOL 68's case tokens with the bold typeface are reserved words, types (modes) or operators.

 '''proc''' abs max = ([,]'''real''' a, '''ref''' '''real''' y, '''ref''' '''int''' i, k)'''real''':
 '''comment''' The absolute greatest element of the matrix a, of size ⌈a by 2⌈a
 is transferred to y, and the subscripts of this element to i and k; '''comment'''
 '''begin'''
    '''real''' y := 0; i := ⌊a; k := 2⌊a;
    '''for''' p '''from''' ⌊a '''to''' ⌈a '''do'''
      '''for''' q '''from''' 2⌊a '''to''' 2⌈a '''do'''
        '''if''' '''abs''' a[p, q] > y '''then'''
            y := '''abs''' a[p, q];
            i := p; k := q
        '''fi'''
      '''od'''
    '''od''';
    y
 '''end''' # abs max #

Note: lower (⌊) and upper (⌈) bounds of an array, and array slicing, are directly available to the programmer.

 floating point algol68 test:
 (
   '''real''' a,b,c,d;
   &nbsp;
   # ''printf'' – sends output to the '''file''' ''stand out''. #
   # ''printf($p$);'' – selects a ''new page'' #
   printf(($pg$,"Enter d:"));  
   read(d);
   &nbsp;
   '''for''' step '''from''' 0 '''while''' a:=step*d; a <= 2*pi '''do'''
     printf($l$);  # ''$l$'' - selects a ''new line''. #
     b := sin(a);
     c := cos(a);
     printf(($z-d.6d$,a,b,c))  # formats output with 1 digit before and 6 after the decimal point. #
   '''od'''
 )