Programming languages ALGOL是否曾用于；“主流”；编程？

我知道语言作为一种理论语言非常重要，而且根据维基百科，它也有各种各样的实现

然而，不清楚的是，ALGOL（纯ALGOL，不是任何类似Simula的衍生物）是否曾以任何方式用于任何“真实”编程

我所说的“real”，是指用于除编程语言/CS研究之外的几个大型项目，或者用于大量开发人员（比如，>1000）

---

就我个人而言，我唯一做过的ALGOL编程是在纸上完成的，因此我很好奇。

当我开始编程时，ALGOL是唯一可用的编译器。是的，在我们得到Fortran编译器之前，它是主流。然而，不清楚的是，Algol（纯Algol，不是Simula之类的任何衍生物）是否以任何方式实际用于任何“真实”编程？

请避免使用“真实”编程这一术语。“真实”-与什么相对？富有想象力

我所说的“real”，是指用于除编程语言/CS研究以外的多个大型项目，或用于大量开发人员（例如，>1000人）。

对。它被用于一定数量的项目，这些项目由一定数量的开发人员负责

只是,今天经常被误解的是,；在那些日子里，计算机并不是一种真正的家庭商品。见鬼，30年前不是这样，更不用说60年前了。
编程是在政府所有（军事、学术、各种机构）或私营企业（大公司）的计算机中心进行的。编程并不是一种职业——它是工程师、数学家、科学家等在纸上工作时经常做的事情。。。或者他们有专门的操作员为他们做这件事。通常是女性，她们可能在这一特定领域有科学背景，也可能没有科学背景——她们是“语言翻译”，缺乏更好的术语（还有我糟糕的英语）

编程理论和研究才刚刚开始。。。供应商数量少（而且自然彼此不合作）。。。他们每个人都使用自己的扩展，并且通常为其中一个编写的程序与另一个供应商的系统不兼容。
没有一个“正确的方法”来做某事。。。你有那个，你用你能想到的任何方法来解决你的问题

但是，我已经离开了。让我回到人数上来。这也适用于其他几种语言；例如，fortran和cobol。 人们说，“很少有人使用它”。那根本不是真的。事实上，今天有一小部分人使用它，但有更大比例的人使用过它

正如我所说，在那些日子里只有sci。而工程师社区过去常常这样做。与总人口相比，他们的数量相对较少。如今，每个人都使用计算机，但工程师、数学家等的绝对数量几乎相同。所以似乎没有人再使用这些语言了。。。然而在现实中，对于某些特定的语言（现在fortran和cobol比algol更适用），用户数量几乎是恒定的

就我个人而言，我唯一做过的Algol编程是在纸上的，因此好奇。

---

我知道我没有回答你的问题，只是想澄清一下。Algol有点像“我的时代”。Algol是这个时代的主要编程语言。就重要应用而言，Algol58似乎是最成功的

来自维基百科：

是“朱尔斯自己”的首字母缩写 国际标准的版本 算法语言 “国际算法语言” 这是最初提议的名称 阿尔戈尔58。它是为作曲而开发的 电子计算机软件 朱尔斯·施瓦茨的军用飞机 1959年

然后：

使用JOVIAL的显著系统包括 这个 轰炸机， ，及， ，（在阻塞之前 50架）和战斗机， ，飞机， 飞机,， 海军巡洋舰、陆军 多管火箭发射系统 （），军用直升机， ，以及空气 防御与控制系统（休斯） HME-5118ME系统）和 火箭发动机。空运的 嵌入式快乐软件系统 包括， 及

在DRA的一部分中用于相同目的。参考维基百科：

这个 （通常称为“DRA”），是一个 联合国执行机构 （国防部）1991年4月至1995年4月。在 当时DRA是英国最大的科学和技术机构 技术组织

DRA的Algol68编译器终于在1999年4月开源，现在可以从sourceforge获得linux版。（但是，“”的解释器更容易使用）

ICL的Algol68是由英国公司（ICL）为其大型机开发的。它基于ALGOL 68，但数据类型和运算符与2900系列提供的数据类型和运算符一致。它是操作系统的实现语言

还有（至少）两种英国操作系统——和——是用Algol68变体编写的。还有1个苏联操作系统：，但我还没有找到他们的任何源代码。（如果有人能找到并分发此源代码，请让我知道）

顺便说一句：我相信VME仍然作为Linux/Unixware客户虚拟机在生产中运行。主要在海关/移民服务部门

同样在同一时期，苏联也在使用Algol68，c.f。Algol68用于俄罗斯电话交换机。而Algol58被用于俄罗斯的“航天飞机着陆系统”

ALGOL68于1968年国际化。我怀疑在其他国家还有其他Algol项目。特别是德语、荷兰语、日语和汉语，但我没有详细资料

如果您想实际试用Algol68和/或贡献您的代码，请

i := 80;
while i > 0 do
   begin
   scan ptrRay:ptrRay for i:i until in ALPHA;
   scan ptrEnd:ptrRay for i:i while in ALPHA;
   if i > 0 then
      begin
      replace nextToken by ptrRay for (offset(ptrEnd) - offset(ptrRay)); 
      end;
   end;