主题：需自己输入参数的函数怎么编
huangx06
[专家分：0] 发布于 2010-04-24 20:31:00
比如要编一个求一元n次方程的根：
函数里各项的系数都需要自己输入。
这种情况下在主程序中定义这些系数，
问题是这些系数怎么传到函数f中？
不能是f(a1,a2,a3……,x)吧
我要的函数只是f（x）
谢谢大家！
回复列表 （共5个回复）
沙发
asymptotic [专家分：16630] 发布于 2010-04-24 21:01:00
F77 用 Common
F90 以后用 Module + Save 代替
板凳
huangx06 [专家分：0] 发布于 2010-04-24 21:09:00
只能这样做吗？
我是个新手，那块我还没学到。能给个大概的程序框架吗？谢谢！
3 楼
zg4392 [专家分：370] 发布于 2010-04-24 22:05:00
用数组做参数传递也可以
4 楼
huangx06 [专家分：0] 发布于 2010-04-24 22:48:00
我把所有的参数一股脑地都往函数里传，只会这样。
但函数f(x)就得写成f(a1,a2,b1,……,x)了
5 楼
asymptotic [专家分：16630] 发布于 2010-04-24 23:37:00
Module Ex01
implicit none
real, save:: a = 1.0
real, save:: b = 2.0
real, save:: c = 1.35
contains
real function ABC(x)
implicit none
real, intent(in):: x
ABC = c + (b + a * x) * x
return
end function
End Module
我来回复
您所在位置：