作者PTT0207445 (我是鄉民)
看板Fortran
標題Re: 有人會幾A幾B fortran95的寫法嗎？
時間Fri Dec 1 02:55:33 2017
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://webptt.com/m.aspx?n=bbs/Fortran/M.1512068136.A.8C1.html
ps.執行後，read(*,*)會等待接收來自鍵盤的輸入，而不是程式卡住或跑很久，別犯傻。
※ 編輯: PTT0207445 (129.12.24.112), 03/22/2018 02:20:03