begin
comment et comment;
comment library 1;
real
c;
array
d[ - 0 : + 1, 0@0 : 1.0];
integer procedure r(c);
real
c;
r :=
if true then
c
else
r(0);
d[0, 0] := c := c := 1;
begin
real procedure p;
begin
q(a, b, c, a[1])encore : (b[1], (1));
for c := 1 step 1 until if false then p
else 1 do
for c := 1,
2 do
;
p := (0)
end :p;
switch b :=
(b[2]),
l,
if if a[1] = 0 and not false then true
else false then b[a[1] + 1] else l;
integer array
h,
a[1 : c + d[0, 1 - (r( + 1))]],
j[0 : 1];
procedure q(a, b, c, d)e : (e, f);
integer
f;
switch
b;
integer array
a;
real
c;
real
d;
label
e;
;
comment 'BEGIN' 'COMMENT' 'END';
a[1] := 0;
l :;
outreal(1, p);
c := c + 1 * 1^1;
if c = 2 then
goto b[p + 3]
end
end
algol
begin
comment library 1;
integer
n;
integer procedure p(q, r);
integer procedure
r,
q;
comment (r):'INTEGER' 'PROCEDURE' r;
begin
integer
b;
b := 3 * q(r);
p := b
end;
integer procedure a(f);
integer procedure
f;
a := 2 * f;
integer procedure b;
begin
n := n - 1;
b :=
if n = 0 then
1
else
p(a, b) + 1
end;
n := 2;
n := p(a, b);
outreal(1, n)
end
algol
begin
comment library 3;
real procedure a(k, x1, x2, x3, x4, x5);
value
k;
integer
k;
real
x1,
x2,
x3,
x4,
x5;
begin
real procedure b;
begin
k := k - 1;
b := a := a(k, b, x1, x2, x3, x4)
end;
if k <= 0 then
a := x4 + x5
else if b < 0 then
end;
outreal(1, cputime);
outreal(1, a(10, 1, - 1, - 1, 1, 0));
outreal(1, cputime);
end
algol
begin
comment library 1;
integer
j,
k,
s;
integer procedure f(n);
value
n;
integer
n;
begin
integer
i,
l;
for i := n,
s div 2 while s < 16 or s = 28 do
begin
s := s + i + n;
l := i
end;
f := n + l;
end f;
s := - 1;
for j := f(2),
f(3) while s = 97 do
begin
s := s + f(5) + j + s;
k := j
end;
s := s + k;
outreal(1, s)
end
algol
begin
comment library 1;
real procedure g(x);
real
x;
g := x + 1;
real procedure a(h);
real procedure
h;
comment (h1): 'REAL' h1;
begin
real procedure loc(x);
real
x;
loc := h(g(x));
a := loc(0);
end a;
real procedure b(f, h);
real procedure
f;
comment (f1): 'REAL' f1;
real procedure
h;
comment (h1): 'REAL' 'PROCEDURE' h1;
b := f(h(f) + a(g) + g(1));
outreal(1, b(g, a))
end
algol
begin
comment library 1;
procedure p(f);
real procedure
f;
comment (f1):'LABEL' f1;
f((m));
b1 :;
begin
real procedure q(l);
label
l;
begin
goto l;
q := 0;
outreal(1, 1)
end;
b2 :;
begin
real
i;
goto n;
i := 2;
outreal(1, i)
end;
n :;
p(q);
outreal(1, 3);
end b1;
outreal(1, 4);
m :;
outreal(1, 5)
end
algol
begin
comment library 1;
integer
x,
n,
k;
real procedure sigma(i, k, l, t);
value
l;
integer
i,
k,
l;
real
t;
begin
real
x;
x := 0;
for i := k step 1 until l do
x := t + x;
sigma := x
end sigma;
x := sigma(n, 1, 4, sigma(k, 1, n, 2) - 1);
comment working in august 1960 at amsterdam;
outreal(1, x)
end
algol
begin
comment library 1;
real procedure r(a);
real
a;
begin
integer procedure p(b, c);
integer
b,
c;
p := b + c;
r := p(a + 1, a)
end r;
real
x;
begin
real
y;
y := 4;
x := r(r(y + 1))
end;
outreal(1, x)
end
algol
begin
comment library 1;
procedure p(a, b, c, d);
value
b,
c;
real
a,
b;
array
c,
d;
begin
a := a + 1;
s := s + a + b + c[1, 2] + d[1, 2];
d[1, 2] := 2
end;
integer array
a[16384 : 16385, - 16383 : - 16382];
integer
s;
array
b[1 : 2, 0 : 2];
a[16384, - 16383] := 3.0;
b[1, 2] := a[16384, - 16383];
begin
integer array
g[1 : b[1, 2], 0 : 2];
s := 0;
g[1, 0] := g[2, 0] := g[3, 0] := g[1, 1] := g[2, 1]
:= g[3, 1] := g[1, 2] := g[2, 2] := g[3, 2]
:= 1;
p(b[1, 2], b[1, 2], g, b);
s := s + b[1, 2];
outreal(1, s)
end
end
algol
begin
comment library 1;
integer i,
array a[ 1 : 1 ];
i := a[1] := 1;
outreal(1, i + a[1])
end
kdf9