ALGOL 58

ALGOL 58（源自英語：ALGOrithmic Language 1958的縮寫），最早稱為國際代數語言（英語：International Algebraic Language，縮寫為IAL），一種程式語言，是ALGOL家族的第一個成員。它在1958年問世，ALGOL 60即是它的基礎上開發而成。

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介入了複合語句的基礎概念，但只局限於控制流程，它沒有以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