JOVIAL语言

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

历史 
JOVIAL是“Jules Own Version of the International Algorithmic Language.”（朱尔斯自己版本的国际算法语言）一语的缩写。JOVIAL语言于1959年由发明，用于编写军用飞机电子系统的编写。

例子
下列例子取自《JOVIAL（J73）语言计算机编程手册》：
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侦察机

参考文献

ALGOL程式語言家族
系統程式語言