ALGOL68

ALGOL 68（ALGOrithmic Language 1968）是一种高级编程语言，由国际算法语言委员会（IFIP WG 2.1）设计并于1968年12月正式发布。它是ALGOL系列语言的一个重要成员，代表了20世纪60年代编程语言理论的巅峰成就之一。

简单代码示例

#求两个数的最大值 #
PROC max = (REAL a, b) REAL:
  IF a > b THEN a ELSE b FI;

# 计算阶乘的函数 #
PROC factorial = (INT n) INT:
  IF n <= 1 THEN 1 ELSE n * factorial(n - 1) FI;

# 主程序 #
BEGIN
  INT n := 5;
  print(("阶乘 ", n, " 等于 ", factorial(n), new line));
  
  REAL x := 3.14, y := 2.71;
  print(("较大值是: ", max(x, y), new line))
END

代码关键字

关键字	作用
begin/end	代码的开始和结束
proc	声明函数
mode	类型声明
heap/loc	内存分配
if/then/else/fi	条件语句,fi表示条件结束
case/in/out/esac	多分支选择结构
do/od	循环或代码块的开始与结束
for/from/to/by/while	循环控制
goto	跳转
par/co/sema	并行处理相关
struct/union	结构体和联合体
flex	声明动态数组
ref	引用(指针)类型
bool/int/real/char/string	基本数据类型
and/or/not	逻辑运算
eq/ne/lt/le/gt/ge	比较运算
:=	赋值运算
print/read	输入输出
skip	空操作
exit	退出当前块或程序
comment	注释块的开始(以#结束)

参考资料

ALGOL 68 - 维基百科，自由的百科全书