作者EdisonX (閉上眼的魚)
站內Programming
標題[問題] 請問此為何程式語言?
時間Tue Nov 22 22:38:53 2011
抱歉,想半天還是覺得標題這麼下最恰當。
最近看一本覺得寫得不錯的好書，
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
1F：→ tomnelson:Fortran? COBOL?112.104.103.107 11/22 22:49
2F：→ MOONRAKER:阿就FORTRAN 66嘛218.160.180.116 11/22 22:54
3F：→ EdisonX:感謝 t 大與 M 大回覆,非常感謝！！ 180.177.78.41 11/22 23:00
4F：→ EdisonX:( FORTRAN66...感覺很老了耶 XD ) 180.177.78.41 11/22 23:01
5F：→ MOONRAKER:還有行號 老叩叩嘍218.160.180.116 11/22 23:50
6F：→ MOONRAKER:基本上你知道他DO的用法和一些關係運算218.160.180.116 11/22 23:52
7F：→ MOONRAKER:子的意思 如.GT. .NE.等等 就可以轉換218.160.180.116 11/22 23:52
8F：→ MOONRAKER:但是他迴圈很原始只有goto218.160.180.116 11/22 23:54
9F：→ EdisonX:謝謝M大補充,那些都還好,就真的是goto看到 180.177.78.41 11/23 00:13
10F：→ EdisonX:整個爆!! 要轉 loop 倒是要花點時間.感謝. 180.177.78.41 11/23 00:14
11F：→ MOONRAKER:看來你都很清楚了 XD 其實不在乎難看的218.160.180.116 11/23 02:27
12F：→ MOONRAKER:話，也可以用一下Ｃ的goto XP218.160.180.116 11/23 02:28
13F：推 tren:Fortran 128.138.44.18 12/01 02:04