| 以文本方式查看主题 - Fortran中文网 (http://fortran.cn/bbs/index.asp) -- Fortran语言开发经验交流 (http://fortran.cn/bbs/list.asp?boardid=3) ---- 一段源程序，大家解释解释 (http://fortran.cn/bbs/dispbbs.asp?boardid=3&id=1803) |
| -- 作者：saint369cn -- 发布时间：2009/1/9 11:57:00 -- 一段源程序，大家解释解释 program main intrinsic sin, cos integer y write(*,*)\'y=\' read*,y x=3.14159/y y1=triangle(sin,cos,x) y2=triangle(cos,sin,x) print *,\'x=\',x write(*,100)\'tan(\',x*180/3.14159,\')=\',y1 write(*,100)\'ctn(\',x*180/3.14159,\')=\',y2 100 format(6x,a,f6.2,a,e13.6) pause end
function triangle(f1,f2,x) triangle=f1(x)/f2(x) end |
| -- 作者：saint369cn -- 发布时间：2009/1/9 12:01:48 -- write(*,100)\'tan(\',x*180/3.14159,\')=\',y1，此句(\',x*180/3.14159,\')括号里面为什么x*180/3.14159前后各有一个逗号‘，’？ |
| -- 作者：saint369cn -- 发布时间：2009/1/9 12:04:05 -- sin，cos，的问题。 X的值会自动付给sin，cos这俩个函数吗？ triangle=f1(x)/f2(x)中的f1(x)和f2(x)有定义的其函数表达式吗，否则如何计算triangle的值呢？ 请高手叙述一下这些参数的调用关系，以及可能隐含的调用关系？谢谢 [此贴子已经被作者于2009-1-9 12:13:09编辑过]
|
| -- 作者：saint369cn -- 发布时间：2009/1/9 12:08:59 -- function triangle(f1,f2,x) f1(x)，f2(x)的表达式是什么？没有表达式的话，triangle=f1(x)/f2(x)怎么可能有计算结果能？ |
| -- 作者：fortranl-er -- 发布时间：2009/7/7 17:03:17 -- f1(x)与f（x）需要使用function f1（x）定义 |