́ (. 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] , , ( «»). , ( , , , ), .
[] .
[]
[]
- . 2.5. : ALGOL 60 // = Concepts of Programming Languages. 5- . .: «», 2001. . 672. ISBN 5-8459-0192-8
[]
- -60 ( ).
- (.) ALGOL 60 .
- «The Emperors Old Clothes» (.) ACM 1980 .
- «803 ALGOL» (.) Elliott 803 ALGOL.
- -60.

