ALGOL 58

ALGOL 58

编程范型	过程式, 指令式, 结构化
设计者	Friedrich L. Bauer, Hermann Bottenbruch, Heinz Rutishauser, Klaus Samelson, 约翰·巴科斯, Charles Katz, 艾伦·佩利, Joseph Henry Wegstein
发行时间	1958年​（1958）
启发语言
FORTRAN, IT, Plankalkül, Superplan, Sequentielle Formelübersetzung
影响语言
ALGOL 60，以及类ALGOL语言

ALGOL 58（源自英语：ALGOrithmic Language 1958的缩写），最早称为国际代数语言（英语：International Algebraic Language，缩写为IAL），一种编程语言，是ALGOL家族的第一个成员。它在1958年问世，ALGOL 60即是它的基础上开发而成。

ALGOL 58介入了复合语句的基础概念，但只局限于控制流程，它没有以ALGOL 60中块的那种方式，结合上标识符作用域。

历史

1958年，ACM小组和以当时联邦德国的应用数学和力学协会（GAMM），在苏黎世把他们关于算法表示法的建议综合为一从而形成IAL（国际代数语言），后来改称ALGOL 58。

ALGOL 58变体时间线

名称	年	作者	国家	描述	目标CPU
ZMMD实现	1958	Friedrich L. Bauer, Heinz Rutishauser, Klaus Samelson, Hermann Bottenbruch	德国	ZMMD是Zürich、München、Mainz、Darmstadt的缩写	Z22
NELIAC	1958	海军电子实验室	美国		AN/USQ-17
JOVIAL	1960	Jules Schwartz	美国	DOD的HOL，先于Ada	多种
BALGOL	1960	Joel Merner等人	美国		Burroughs公司 B220
MAD	1960	密歇根大学	美国		IBM 7090/7094主机，接着在1960年代中期移植到Univac 1108
ALGO	1961	Bendix公司	美国		Bendix G-15
ALGOL 30	1962	达特茅斯学院的Thomas Eugene Kurtz等人	美国	后来演进成ALGOL 60	LGP-30
SUBALGOL	1962	斯坦福大学的Bob Braden, Lawrence M. Breed和Roger Moore	美国	BALGOL扩展	IBM 7090

例子代码

下面是语言报告中的例子代码，采用辛普森积分法计算函数F(x)的积分，函数F(x)的值由假定存在的函数例程提供：

procedure Simps(F(), a, b, delta, V);
comment a, b are the min and max, resp. of the points def. interval of integ.
        F() is the function to integrated.
        delta is the permissible difference between two successive Simpson sums.
        V is greater than maximum absolute value of F on a, b;
begin
Simps:  Ibar := V×(b-a)
        n    := 1
        h    := (b-a)/2
        J    := h×(F(a)+F(b))
J1:     S    := 0;
  for   k    := 1 (1) n
        S    := S+F(a+(2×k-1)×h)
        I    := J+4×h×S
  if    (delta < abs(I-Ibar))
begin   Ibar := I
        J    := (I+J)/4
        n    := 2×n; h := h/2
        go to J1 end
        Simps := I/3
return
integer (k, n)
  end   Simps

这里的非实数类型声明放在了过程的末尾。原文中的斜体显示改为了粗体，下面再将其调整为ALGOL 60开创的缩进格局：

procedure Simps(F(), a, b, delta, V);
comment a, b are the min and max, resp. of the points def. interval of integ.
    F() is the function to integrated.
    delta is the permissible difference between two successive Simpson sums.
    V is greater than maximum absolute value of F on a, b;
begin
Simps:
    Ibar := V×(b-a)
    n := 1
    h := (b-a)/2
    J := h×(F(a)+F(b))
J1: S := 0;
    for k := 1 (1) n
        S := S+F(a+(2×k-1)×h)
    I := J+4×h×S
    if (delta < abs(I-Ibar))
    begin
        Ibar := I
        J := (I+J)/4
        n := 2×n; h := h/2
        go to J1
    end
    Simps := I/3
    return
    integer (k, n)
end Simps

外部链接

• Algol 58Archive.is的存档，存档日期2013-04-15 at the Software Preservation Group (cf. Computer History Museum)
• Algol 58 report from CACM（页面存档备份，存于互联网档案馆） at the Software Preservation Group