| 查看: 726 | 回复: 19 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
pzhan1982金虫 (著名写手)
|
[交流]
【求助】fortran编程运行结果求解
|
||
|
现有几道fortran题目求解： 1、 character A*4,B*6,C*5 DATA A,B,C/'big','middle','small'/ if(A.GTB)then if(A.GT.C)then print*,A else print*,B endif else if(B.GT.C)then print*,B else print*,C else if endif end 运行结果：？？ 2、program main external px y=tx(fx,3,2) print*,y end function tx(fun,a,b） tx=(fun(a)-fun(b)/2.0) end function fx(x) fx=x*x end 运行结果：？？？？ 3、dimension a(4) read*,a i=1 10 j=i+1 20 if(a(1)).lt.a(j)) then t=a(j) a(j)=a(i) a(i)=t endif j=j+1 if(j.le.4) goto 20 i=i+1 if(i.le.4) goto 10 print*,a(4) end 若输入4，2，3，5则运行结果为？？ |
回复此楼» 猜你喜欢
AI论文写作工具：是科研加速器还是学术作弊器？
已经有5人回复
-
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有7人回复
-
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗
已经有8人回复
-
申请2026年博士
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有7人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有6人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
argo
铁杆木虫 (著名写手)
上善若水
- 应助: 4 (幼儿园)
- 金币: 9672.8
- 散金: 200
- 红花: 34
- 帖子: 1940
- 在线: 486.4小时
- 虫号: 507533
- 注册: 2008-02-19
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
小木虫(金币+0.5):给个红包，谢谢回帖交流
|
第二个程序有三个问题： 1、第二行应该是external fx，而不应该是external fx，这里fx是外部子函数的名称，由于要作为y=tx(fx,3,2)中的参数，所以必须声明为外部子程序 2、第六行function tx(fun,a,b)最右边的右括号应该是英文的符号，不能用中文的 3、函数子程序function tx(fun,a,b)中a、b没有指明变量类型，所以按I-N法则，应该是实型的，但在主程序中使用整型的3和2，所以编译时会给出警告，但仍然可以运行。 因此，用上述程序代码，给出的结果是 0.0000000E+00 |
13楼2009-08-13 15:50:38
2楼2009-08-09 21:13:39
pzhan1982
金虫 (著名写手)
- 应助: 4 (幼儿园)
- 金币: 3849.7
- 散金: 18
- 红花: 1
- 帖子: 1170
- 在线: 499.6小时
- 虫号: 447168
- 注册: 2007-10-30
- 专业: 林产化学
3楼2009-08-09 21:33:46
4楼2009-08-10 08:39:24