[問題] 請問此為何程式語言?

看板Programming作者 (閉上眼的魚)時間14年前 (2011/11/22 22:38), 編輯推噓1(1012)
留言13則, 4人參與, 最新討論串1/1
抱歉,想半天還是覺得標題這麼下最恰當。 最近看一本覺得寫得不錯的好書, Combinatorial Algorithms, For Computer and Calculators. 觀念講得蠻清楚的, Pseudo Code 看起來有點亂, 不過有用程式語言示之, 但偏偏不知道是哪種程式語言, 雖本意可由語法猜出一、二, 但實際用 C 替代時,有時就會卡卡的。 不期望能有將 (X語言 翻譯成 C語言) 之工具, 唯希望有經驗之版友能予以意見,告知為何種程式語言, 小弟感激不盡。 以 power set , NEX_SUB 為例。 --- SUBROUTINE NEXTSUB(N, IN, MTC, NCARD, J) INTEGER IN(N) LOGICAL MTC IF(MTC) GO TO 20 DO 11 I=1, N 11 IN(I)=0 NCARD=0 MTC = .TRUE. RETURN 12 J=1 IF (MOD (NCARD,2) ).EQ. 0) GOTO 40 C IF (J .GT. N) J=N 30 IN(J) = 1 - IN(J) NCARD = NCARD+2*IN(J)-1 MTC = NCARD .NE. IN(N) RETURN END -- If there is no tomorrow, I want to see u last time. -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 180.177.78.41

11/22 22:49, , 1F
Fortran? COBOL?
11/22 22:49, 1F

11/22 22:54, , 2F
阿就FORTRAN 66嘛
11/22 22:54, 2F

11/22 23:00, , 3F
感謝 t 大與 M 大回覆,非常感謝!!
11/22 23:00, 3F

11/22 23:01, , 4F
( FORTRAN66...感覺很老了耶 XD )
11/22 23:01, 4F

11/22 23:50, , 5F
還有行號 老叩叩嘍
11/22 23:50, 5F

11/22 23:52, , 6F
基本上你知道他DO的用法和一些關係運算
11/22 23:52, 6F

11/22 23:52, , 7F
子的意思 如.GT. .NE.等等 就可以轉換
11/22 23:52, 7F

11/22 23:54, , 8F
但是他迴圈很原始只有goto
11/22 23:54, 8F

11/23 00:13, , 9F
謝謝M大補充,那些都還好,就真的是goto看到
11/23 00:13, 9F

11/23 00:14, , 10F
整個爆!! 要轉 loop 倒是要花點時間.感謝.
11/23 00:14, 10F

11/23 02:27, , 11F
看來你都很清楚了 XD 其實不在乎難看的
11/23 02:27, 11F

11/23 02:28, , 12F
話,也可以用一下C的goto XP
11/23 02:28, 12F

12/01 02:04, , 13F
Fortran
12/01 02:04, 13F
文章代碼(AID): #1EoxG2vM (Programming)
文章代碼(AID): #1EoxG2vM (Programming)