fortran语言子程序编写
发布网友
发布时间：2022-04-21 20:56
共1个回答
热心网友
时间：2022-07-13 22:05
假设1角需要x个，2角y个，5角z个，那么满足要求的条件是，
x+2y+5z= 10，
其中，0≤x≤10，0≤y≤5，0≤z≤2，且 x，y，z 均为正整数. 因此最直观的程序可以写成
implicit none
integer x, y, z, id
write(*,*)
write(*,*) ' 方法号 1角硬币个数 2角硬币个数 5角硬币个数'
id = 0
do z = 0, 2
do y = 0, 5
do x = 0, 10
if ( (x+2*y+5*z) == 10 ) then
id = id + 1
write(*,999) id, x, y, z
end if
end do
end do
end do
999 format( 3x,i2,10x,i2, 2(13x,i2) )
end program money_assignment
题目要求用子程序，直接将program改成subroutine即可。
