: 73 - 80, 有特殊用途，说来话长，说出来，会被大家 : 看笑话。有兴趣知道的朋友，请举手。。。。 民国 62年的时候，读基隆的 省立海洋学院 造船系， 就是现在的 国立海洋大学。 选修 FORTRAN 和数值分析。 当时，学校里面没有电脑，只有几台 IBM 的打孔机。 一张卡片 五毛钱，只能打 一行指令。 当时的一客 普通 的学校自助餐，大概是 五到十元 新台币。 因为当班代表，又是比较有兴趣和热心。 所以，经常帮同学收集程式的卡片， 送往 基隆 和平岛的 台湾造船公司的 电脑室上机， 读卡，COMPILE, LINK, RUN, 产生报表携回， 发还给同学。 有那麽一次，惨案发生了。 我竟然把整盒的卡片，散落地上。 次序都弄乱了，怎麽办？ 还是硬着头皮送进电脑中心，才知道那几个 COLUMN 的妙用。 原来，那边是自动产生的卡片顺序码。 还是让电脑读卡，产生一个大型的文字档案， 使用电脑里面的 公用程式， 对卡片的内容，按照纳几个栏位 排序， 又自动的回覆原状。 里面的学长，很好心的帮我 又产生一个 COPY 的卡片输出， 不跟我拿 卡片的钱，还给我ㄧ些 橡皮筋，赶快把每一个程式码的卡片分开， 绑起来。 从此，印象很深刻，知道那几个 COLUMN 是干什麽用的。 顺便说明一下，当时学校买不起，台船的电脑中心所使用的电脑型号， 是 IBM 1130, 是第二代电脑，使用 积体电路 IC 的 前身， 是电晶体构造的电脑，足足有 一个办公室的大小， 但是 主记忆体 只有 16KB, 很逊吧！ : 这位朋友的程式码是 FIXED FORMAT, : 不知道因为什麽原因，& 符号和 部分的程式 移位。 : 程式很长，但是，使用类似如下的指令， : 一个指令就 搞定。 : REPLACE/ &/ &/ : REPLACE/ / / : 上面的空格，是有经过 仔细数过的，而且 : 指定 BEGIN LINE. : OK, 完工。 : ※ 引述《animos (NGCMW)》之铭言： : : 各位前辈好，我是之前没有用过fortran的新手， : : 最近因为实验的关系拿到一个似乎有点历史的程式码，要想办法把它跑起来 : : 问题是我现在用找的到的免费编译器都回传给我一堆错误 : : 看起来又很像是格式不同所引起 : : ex.Variable name expected after ',' : : This line should not start with '&' as it is not a continuation of the : : previous line : : 等等，然而在老师的古老编译器上却是可以跑的 : : 我因为是程式设计的新手所以实在是一头雾水 : : 不知有没有好心人可以大概指点一下可能是哪方面的问题 不然就要继续被老外干到死orz : : 下面附上程式开头的部份供参考 http://ppt.cc/OSht : : 希望有好心人可以帮我一下 必将涌泉以报 -- e-mail: [email protected] 我的课程介绍网页： http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18 AutoCAD 台湾地区菁英讲师获选 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 61.20.153.226