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

[EdisonX (閉上眼的魚)]

抱歉,想半天還是覺得標題這麼下最恰當。

最近看一本覺得寫得不錯的好書，

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
→ tomnelson:Fortran? COBOL?
→ MOONRAKER:阿就FORTRAN 66嘛
→ EdisonX:感謝 t 大與 M 大回覆,非常感謝！！
→ EdisonX:( FORTRAN66...感覺很老了耶 XD )
→ MOONRAKER:還有行號 老叩叩嘍
→ MOONRAKER:基本上你知道他DO的用法和一些關係運算
→ MOONRAKER:子的意思 如.GT. .NE.等等 就可以轉換
→ MOONRAKER:但是他迴圈很原始只有goto
→ EdisonX:謝謝M大補充,那些都還好,就真的是goto看到
→ EdisonX:整個爆!! 要轉 loop 倒是要花點時間.感謝.
→ MOONRAKER:看來你都很清楚了 XD 其實不在乎難看的
→ MOONRAKER:話，也可以用一下Ｃ的goto XP
推 tren:Fortran