JOVIAL语言

JOVIAL语言，是一种高级编程语言，基于ALGOL 58，主要针对嵌入式系统开发。JOVIAL语言包含ALGOL语言标准所没有的一些特点，如记录、记录数组、内联汇编等。JOVIAL语言是1960年代至1970年代主要的系統程式語言（英语：system programming language）^[2]。

JOVIAL

编程范型	过程式, 指令式, 结构化
语言家族	ALGOL
設計者	系统开发公司（英语：System Development Corporation）
實作者	软件工程协会公司^[1]
发行时间	1960年，​62年前​（1960）
型態系統	静态, 强类型, 安全, 结构（英语：Structural type system）
作用域	词法
主要實作產品
MVS（英语：MVS）, OpenVMS, macOS, Windows, Linux, SPARC, PowerPC, MIL-STD-1750A, 和其他遗留系统
衍生副語言
J3, J3B-2, J73
啟發語言
ALGOL, SAGE
影響語言
CMS-2（英语：CMS-2）, Coral 66（英语：CORAL）, SYMPL（英语：SYMPL）

历史

JOVIAL是“Jules Own Version of the International Algorithmic Language.”（朱尔斯自己版本的国际算法语言）一语的缩写。^[3]JOVIAL语言于1959年由朱尔斯·施瓦兹（英语：Jules Schwartz）发明，用于编写军用飞机电子系统的编写。

例子

下列例子取自《JOVIAL（J73）语言计算机编程手册》^[4]：

PROC RETRIEVE(CODE:VALUE); BEGIN  ITEM CODE U;  ITEM VALUE F;  VALUE = -99999.;  FOR I:0 BY 1 WHILE I<1000;  IF CODE = TABCODE(I);  BEGIN  VALUE = TABVALUE(I);  EXIT;  END END 

这个例子定义了叫做RETRIEVE的一个过程，它接受一个无符号整数输入参数CODE，和一个浮点输出参数VALUE。它在数组TABCODE的前1000个元素中，查找匹配CODE的项目，并接着将浮点变量VALUE设置成，数组TABVALUE的有相同匹配数组索引的那个元素。如果未找到匹配元素，则VALUE被设置成−99999.0。

应用案例

• B-52同温层堡垒轰炸机、B-1枪骑兵轰炸机、B-2幽灵战略轰炸机
• F-111战斗轰炸机、F-15鹰式战斗机、F-16战隼战斗机
• U-2侦察机

参考文献

1. Software Engineering Associates, Inc. (SEA). 
2. Mature Development Systems, Field Proven on Hundreds of Applications. DDC-I. Phoenix, Arizona. 2020 [2020-04-22]. 
3. 存档副本. [2014-08-26]. （原始内容于2018-06-04）. 
4. Softech, Inc. Computer Programming Manual for the JOVIAL (J73) Language (PDF). Rome, New York: Rome Air Development Center. June 1981: 1 [May 16, 2018]. （原始内容 (PDF)于July 29, 2018）.