GNU Free Documentation License . .

: ,

́ (. Algol . algorithmic  . language  )  , - . IFIP 19581960 . (-58, -60); 19641968 . ( 68). . , , .   , Pascal.

( ) -60, 68 .

[]

1958 , ETH (, ) , , (IFIP). - . :   ,   ,   ,   « », ,   , , .

. , , « »  , . , , - . , , , , . , , - , . , , ( ),   .

1958 -58 ( IAL  International Algebraic Language, [1]) ,   -60; «» . 1959 « » ()  . , , -58. , , ,   (   BNF), ALGOL-60 .

, . , , . , , . , , , - 116 , .

SHARE  IBM,  , IBM OS/360   , IBM, , , . , IBM PL/I  - , .

. , , , , . , , .

Burroughs Corporation , B5000  Elliott ALGOL. LGP-30 Dartmouth ALGOL 30.

, .

[]

, . , , .   . , , begin end, .   , , , , . .

: , , , , begin end,   goto, .

- , (, begin  end , ), . , , , , . - .

, (   ,  ), . .

, . , -; , , . , , - . , - -, - .

  . ( ), ( , , , , ) .

[] -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    a,  n  m 
      y,       i  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

Elliott 803 ALGOL.

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) , . SAMELINE . ALIGNED(1,6)   1 6 .

[] Hello, World

Hello, World Dartmouth ALGOL 30 . .

BEGIN
FILE F (KIND=REMOTE);
EBCDIC ARRAY E [0:11];
REPLACE E BY "HELLO, WORLD!";
WHILE TRUE DO
  BEGIN
  WRITE (F, *, E);
  END;
END.

Elliott Algol.

 program HiFolks;
 begin
    print "Hello, world";
 end;

IBM OS/360 ALGOL F.

'BEGIN'
  OUTSTRING (1, '('HELLO, WORLD!')');
'END'

[]

:

begin
  procedure p (a, b);
    name a, b; integer a, b;
  begin
    for a:=1 step 1 until 10 do
      b := 0
  end p;
  integer i; integer array s [1:10];
  p (i, s[i])
end

, p s. « » . , ,  (.). , . -60, , . . PL/I, -60, , , ,   .[2] , , ( «»). , ( , , , ), .

[] .

[]

  1. A. J. Perlis. Talk on Computing in the fifties // ACM National Conference. 1981.
  2. . : .  .: , 1979.  576 .: .

[]

  • . 2.5. : ALGOL 60 // = Concepts of Programming Languages.  5- .  .: «», 2001.  . 672.  ISBN 5-8459-0192-8

[]