Fortran源自于“公式翻译”(英语:FormulaTranslation)的缩写,是一种编程语言。
它是世界上最早出现的计算机高级程序设计语言,广泛应用于科学和工程计算领域。FORTRAN语言以其特有的功能在数值、科学和工程计算领域发挥着重要作用。
随着FORTRAN语言版本的不断更新和变化,语言不兼容性问题日益突出,语言标准化工作被提上了日程。
1962年5月:美国标准化协会(简称ANSI)着手进行FORTRAN语言标准化的研究工作。
1966年:ANSI正式公布了两个标准文本:美国国家标准FORTRAN(ANSI X3.9-1966)和美国国家标准基本FORTRAN(ANSI X3.10-1966),前者相当于FORTRAN Ⅳ,后者相当于FORTRANⅡ。基本FORTRAN是美国国家标准FORTRAN的一个子集,从而实现了语言的向下兼容,初步解决了语言的兼容性问题。
假设1角需要x个,2角y个,5角z个,那么满足要求的条件是,
x+2y+5z= 10,
其中,0≤x≤10,0≤y≤5,0≤z≤2,且 x,y,z 均为正整数. 因此最直观的程序可以写成
program money_assignmentimplicit 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即可。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)