JOVIAL
JOVIAL，是一种高级编程语言，基于ALGOL 58，主要针对嵌入式系统开发。JOVIAL包含ALGOL标准所没有的一些特点，如记录、记录数组、内联汇编等。JOVIAL是1960年代至1970年代主要的系統程式語言[2]。
| 过程式, 指令式, 结构化 | |
| 语言家族 | ALGOL |
| 設計者 | 系统开发公司 |
| 實作者 | 软件工程协会公司[1] |
| 1960年 | |
| 型態系統 | 静态, 强类型, 安全, 结构 |
| 作用域 | 词法 |
| 主要實作產品 | |
| MVS, OpenVMS, macOS, Windows, Linux, SPARC, PowerPC, MIL-STD-1750A, 和其他遗留系统 | |
| 衍生副語言 | |
| J3, J3B-2, J73 | |
| 啟發語言 | |
| ALGOL, SAGE | |
| 影響語言 | |
| CMS-2, Coral 66, SYMPL | |
历史
JOVIAL是“Jules Own Version of the International Algorithmic Language.”（朱尔斯自己版本的国际算法语言）一语的缩写。[3]JOVIAL于1959年由朱尔斯·施瓦兹发明，用于编写军用飞机电子系统的编写。
例子
下列例子取自《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侦察机
参考文献
This article is issued from Wikipedia. The text is licensed under Creative Commons - Attribution - Sharealike. Additional terms may apply for the media files.