作者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/cn.aspx?n=bbs/Fortran/M.1512068136.A.8C1.html
ps.执行後，read(*,*)会等待接收来自键盘的输入，而不是程式卡住或跑很久，别犯傻。
※ 编辑: PTT0207445 (129.12.24.112), 03/22/2018 02:20:03