Re: 有人會幾A幾B fortran95的寫法嗎？
program abby
implicit none
character(1),dimension(4),parameter :: ans=(/'0','2','1','4'/)
character(1),dimension(4) :: try
integer(4) :: i,j,a=0,b=0,n=0
n=0
DO WHILE(a/=4)
n=n+1
read(*,'(4a1)') try
a=0
do i=1,4
if(try(i)==ans(i)) then
a=a+1
try(i)='x'
endif
enddo
b=0
do i=1,4
do j=1,4
if(try(i)==ans(j)) b=b+1
enddo
enddo
print*,n,':',a,'A',b,'B'
ENDDO
end program abby
※ 引述《key000079 (key000079)》之銘言：
: 有人會幾A幾B 數字遊戲fortran 95的寫法嗎？ 大家都是c++可是我想知道fortran寫法?
: 期末考試考題求大家幫幫忙
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 129.12.24.112
※ 文章網址: https://www.ptt.cc/bbs/Fortran/M.1512068136.A.8C1.html
ps.執行後，read(*,*)會等待接收來自鍵盤的輸入，而不是程式卡住或跑很久，別犯傻。
※ 編輯: PTT0207445 (129.12.24.112), 03/22/2018 02:20:03
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
-4
30