※ 引述《gazelle ( )》之銘言：
: ※ 引述《dreamship (我最神)》之銘言：
: : 一週一度的計程作業又來了
: : 各位強者快快 PO 板ㄅ
: : 急需你們的想法
: : 小弟我以經準備好接招了
: 為了方便檢查作業結果正不正確
: 請加上主程式的部份
: 避免增加各位的負擔
: 提供主程式給各位參考
: PROGRAM HW11
: INTEGER BOARD(8,8)
: INTEGER COLOR,ROW,COL
: LOGICAL MOVE(8,8)
: INTEGER CAPTUREDM(8,8),CAPTUREDR(8,8,50),CAPTUREDC(8,8,50)
: DATA BOARD/64*0/,CAPTUREDM/64*0/
: DATA CAPTUREDR/3200*0/,CAPTUREDC/3200*0/
: COLOR=1
: CALL BWC1(BOARD,COLOR,MOVE,CAPTUREDM,CAPTUREDR,CAPTUREDC)
: DO 10 I=1,8
: WRITE(*,'(8I3)')(BOARD(I,J),J=1,8)
: 10 CONTINUE
: DO 20 I=1,8
: WRITE(*,*)(MOVE(I,J),J=1,8)
: 20 CONTINUE
: DO 30 ROW=1,8
: WRITE(*,'(8I3)')(CAPTUREDM(ROW,COL),COL=1,8)
: 30 CONTINUE
: PRINT *,'PLEASE INPUT ROW AND COL'
: PRINT*,'ROW='
: READ*,ROW
: PRINT*,'COL='
: READ*,COL
: PRINT*,' ROW COL R C'
: DO 40 K=1,CAPTUREDM(ROW,COL)
: PRINT'(4I5)',ROW,COL,CAPTUREDR(ROW,COL,K),CAPTUREDC(ROW,COL,K)
: 40 CONTINUE
: STOP
: END
: 副程式的部份
: 檢查方式類似generation的那次作業
: 棋子顏色不同相乘﹦-1
: 相同 ﹦ 1
: 提供的起始情況有點簡單
: 同學可以改成複雜點的情況
: 檢查有無錯誤
我提供的主程式 只適合老師說的格式
作業可以不依照老師說的格式寫
但請輸出結果 讓我知道寫的對不對
謝謝
此外
就這樣的board
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 0 -1 0 0 0 0
0 0 1 -1 1 1 0 0
0 1 -1 1 1 1 -1 0
0 -1 0 -1 1 1 1 0
0 0 0 0 1 1 0 0
0 0 0 0 0 1 0 0
可下的位置 下那位置哪些會變色 如下表
row col c..r c..c
( 2 3 1) 3 4
( 2 4 1) 3 4
( 2 4 2) 4 4
( 2 5 1) 3 4
( 3 3 1) 4 4
( 4 2 1) 5 3
( 4 2 2) 6 4
( 4 7 1) 5 7
( 4 8 1) 5 7
( 5 8 1) 5 7
( 6 3 1) 6 4
( 6 3 2) 5 3
( 6 8 1) 5 7
( 7 2 1) 6 2
( 7 3 1) 6 4
( 7 4 1) 6 4
這樣的board
0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 1 -1 0 0 0 0
0 0 1 -1 -1 1 0 0
0 1 -1 1 -1 1 -1 0
0 -1 0 -1 -1 1 1 0
1 0 0 0 1 1 0 0
0 0 0 0 0 1 0 0
下在(5,3)的位置
ROW=
3
COL=
5
可變色的位置為
ROW COL R C
3 5 4 5
3 5 5 5
3 5 6 5
3 5 4 4
3 5 5 3
3 5 6 2
3 5 3 4
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 140.112.22.35
※ 編輯: gazelle 來自: 140.112.22.35 (12/26 16:07)