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