欣赏一下上古时期的程序，有没有能读懂的 - 科创

网站应用

文章汇总

社区事务

公共事务：社区建设

公用平台

自助服务区

行业领域

电磁脉冲EMP

核与粒子束

核辐射探测器

高压与强磁

特斯拉线圈

高电压技术

晶体养成所

等离子体气相沉积

业余无线电

软件无线电

雷达与电子战

学科分类

科技总论：科学技术学|创造学

教育：教育学

数学大类：数学

物理学：物理

化学化工：化学与化工|含能材料

宇宙和天文：天文与空间科学

地球科学：地理学|大气科学|地质与矿产|地震学

农林牧渔：农业

医药卫生：医学

自然生物学：生物学

机械工程：机械工程与工艺|三维打印

电气技术：电气工程|电力电子

电子信息：电子技术|仪表与测量|通信工程

计算机科学：计算机电子学|软件综合|机器学习|Windows|Linux

轻工业：纺织|食品

交通运输：电动汽车

航天航空：航天技术|航空技术

经济：经济学

管理：管理学

语言文字：外国语言文学

非主流科学：江湖科学

项目专题

内部项目

主页>生活广场>科创茶话

文号 854148

3173

9

收藏(2)

欣赏一下上古时期的程序，有没有能读懂的

虎哥 2019-2-1正能量研究

大约代表1970年代我国军工领域的较高水平，截图没有顺序，仅供欣赏。

[修改于 2 年前 - 2019-02-01 16:32:52]

来自：生活广场 / 科创茶话，计算机科学 / 软件综合

全部只看作者

2019-02-01 18:54:02

（作者）

1楼

以上程序出自这套书，一套9册。除了那本优选手册，其它都是公式比文字多的。任何时候，尖端技术都不是一件简单事。

[修改于 2 年前 - 2019-02-01 18:54:43]

折叠评论

加载评论中，请稍候...

折叠评论

2019-02-02 11:20:12

2楼

看起来像fortran做有限元，打孔卡年代。。

折叠评论

加载评论中，请稍候...

折叠评论

3楼

折叠评论

加载评论中，请稍候...

折叠评论

4楼

老资料到哪里去搞？

折叠评论

加载评论中，请稍候...

折叠评论

2019-02-03 00:19:46

5楼

那个时候，做学问还是很认真的，科研人员大多都有真本领。

折叠评论

加载评论中，请稍候...

折叠评论

2019-02-17 10:59:53

6楼

看到箭头赋值，想起了计算器basic。。。

折叠评论

加载评论中，请稍候...

折叠评论

7楼

折叠评论

加载评论中，请稍候...

折叠评论

8楼

那个“对于”应该就是for

折叠评论

加载评论中，请稍候...

折叠评论

想参与大家的讨论？现在就登录或者注册。

虎哥

盖世豪杰

专家学者机友笔友

文章

1367

回复

10930

学术分

39

2005/08/24注册，2 小时前活动

刘虎

创新工程局主席

名片专栏私信

作者最新文章

来找我咨询，是给我面子，我应该受宠若惊

科创茶话虎哥1 天前

键盘政治局开会了

科创茶话虎哥7 天前

很久没爬山了，找个黑中继玩玩

业余无线电虎哥24 天前

一项关于无神论者的调查和由此出名的不匹配计数法

科学技术学虎哥1 个月前

爱好者创收途径——代做毕设/课程设计

教育学虎哥1 个月前

小学生可以看懂的金属密度测量方法

科创茶话虎哥1 个月前

古代地震仪DS-1（DD-1）散件组装

拆机鉴赏虎哥2 个月前

大家想想“科创人民科学素质基准”应该包括哪些内容？

科创茶话虎哥2 个月前

大家遇到过牛批的供应商吗

科创茶话虎哥2 个月前

电视剧《切尔诺贝利》中的多道分析仪

科创茶话虎哥2 个月前

%7B%22isDisplay%22%3Atrue%7D

仅供内部学术交流或培训使用，请先保存到本地。本内容不代表科创观点，未经原作者同意，请勿转载。

插入资源

全部

图片

视频

音频

附件

全部

未使用

已使用

正在上传

{{b.num+1}}{{b.num+1}}..

跳转到确定

空空如也~

上传中..{{f.progress}}%

处理中..

上传失败，点击重试

等待中...

{{f.name}}

空空如也~

(视频){{r.oname}}

{{selectedResourcesId.indexOf(r.rid) + 1}}

处理中..

处理失败

插入表情

我的表情

共享表情

Emoji

上传

{{b.num+1}}{{b.num+1}}..

跳转到确定

分享

注意事项

最大尺寸100px，超过会被压缩。为保证效果，建议上传前自行处理。
建议上传自己DIY的表情，严禁上传侵权内容。

点击重试等待上传{{s.progress}}%处理中...已上传

空空如也~

草稿箱

加载中...

此处只插入正文，如果要使用草稿中的其余内容，请点击继续创作。

刷新{{b.num+1}}{{b.num+1}}..

{{fromNow(d.toc)}}

{{getDraftInfo(d)}}

标题：{{d.t}}

内容：{{d.c}}

继续创作

删除插入插入

{{forum.displayName}}

{{forum.countThreads}}

篇文章，

{{forum.countPosts}}

条回复

{{forum.description || "暂无简介"}}

ID: {{user.uid}}

{{user.username}}

用户已注销

{{user.info.certsName}}

{{user.description}}

{{format("YYYY/MM/DD", user.toc)}}注册，{{fromNow(user.tlv)}}活动

{{user.threadCount - user.disabledThreadsCount}}

{{user.postCount - user.disabledPostsCount}}

学术分

{{user.xsf}}

学术分隐藏

请输入学术分值

{{submitted?"":"投诉"}}

请选择违规类型：

{{reason.description}}

投诉成功！

感谢您的反馈！我们会第一时间查看和处理。
如果小编认为不需要处理，就不会处理。建议您继续观察，如果情况恶化，可以再次投诉。
请确保您的投诉是真实的、客观的，并对此负责。恶意投诉将受到处罚。

支持的图片格式：jpg, jpeg, png

插入公式

温馨提示

1. 公式行内显示(inline)：请使用 $....$ 或 \(....\) 包裹代码

2. 公式独占一行显示(display)：请使用 $$....$$ 或 \[....\] 包裹代码

3. 插入的公式在编辑时不会渲染，请检查无误后再插入。

公式输入

公式预览

$\sum_{i=0}^N\int_{a}^{b}g(t,i)\text{d}t$

下载资料

{{fileName}}

大小：{{size}}

下载或预览当前附件将花费 {{costMessage}}。

你当前剩余 {{holdMessage}}。

立即下载预览

{{fileName}}

大小：{{size}}

{{settingNoNeed? '':'你已下载过此附件，'}}下载或预览当前附件不需要花费积分。

立即下载预览

加载中...

{{errorInfo}}

当前账号的附件下载数量限制如下：

时段	个数
{{f.startingTime}}点 - {{f.endTime}}点	{{f.fileCount}}