※ 引述《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
提供的起始情況有點簡單
同學可以改成複雜點的情況
檢查有無錯誤
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 140.112.22.35
※ 編輯: gazelle 來自: 140.112.22.35 (12/24 11:52)