ALGOL W

ALGOL W，一種程式語言，為ALGOL家族的一份子。它基於尼克勞斯·維爾特與東尼·霍爾在IFIP Working Group 2.1（英語：IFIP Working Group 2.1）針對ALGOL X所提出的草案而設計，希望能作為ALGOL 60的後繼者^[1]。經過小幅度的修改^[2]，在史丹福大學，尼克勞斯·維爾特利用IBM System/360機器，以PL360實作出第一版的ALGOL W^[3] 。

ALGOL W

編程範型	多范型：過程式, 指令式, 結構化
語言家族	ALGOL
設計者	Niklaus Wirth, Tony Hoare
釋出時間	1966年，​59年前​（1966）
型態系統	靜態, 強類型
作用域	詞法
實作語言	PL360
系統平台	IBM System/360
受影響於
ALGOL 60, ALGOL X
影響語言
Pascal, Modula-2

它的編譯器是用尼克勞斯·維爾特所設計的PL360組語所寫成^[4]。

例子

下面例子展示ALGOL W的記錄類型設施：

RECORD PERSON (
    STRING(20) NAME; 
    INTEGER AGE; 
    LOGICAL MALE; 
    REFERENCE(PERSON) FATHER, MOTHER, YOUNGESTOFFSPRING, ELDERSIBLING
);

REFERENCE(PERSON) PROCEDURE YOUNGESTUNCLE (REFERENCE(PERSON) R);
BEGIN
    REFERENCE(PERSON) P, M;
    P := YOUNGESTOFFSPRING(FATHER(FATHER(R)));
    WHILE (P ¬= NULL) AND (¬ MALE(P)) OR (P = FATHER(R)) DO
        P := ELDERSIBLING(P);
    M := YOUNGESTOFFSPRING(MOTHER(MOTHER(R)));
    WHILE (M ¬= NULL) AND (¬ MALE(M)) DO
        M := ELDERSIBLING(M);
    IF P = NULL THEN 
        M 
    ELSE IF M = NULL THEN 
        P 
    ELSE 
        IF AGE(P) < AGE(M) THEN P ELSE M
END