| 查看: 956 | 回复: 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则运行结果为？？ |
回复此楼» 猜你喜欢
如何实现卤原子转化
已经有7人回复
-
云南大学材料与能源学院解琳课题组钙钛矿博士招生
已经有5人回复
-
献血感触
已经有6人回复
-
2026山东省优青
已经有4人回复
-
评审有感
已经有16人回复
-
反应很差，大量原料没有反应
已经有3人回复
-
Sci. Bull. 悲剧经验
已经有4人回复
-
找博士生导师
已经有7人回复
-
上海大学实验技术岗位非升即走
已经有11人回复
-
26/27申博自荐-锂/钠电池方向
已经有4人回复
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
pzhan1982
金虫 (著名写手)
- 应助: 4 (幼儿园)
- 金币: 3849.7
- 散金: 18
- 红花: 1
- 帖子: 1170
- 在线: 499.6小时
- 虫号: 447168
- 注册: 2007-10-30
- 专业: 林产化学
5楼2009-08-10 11:59:12
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
6楼2009-08-10 16:16:04
pzhan1982
金虫 (著名写手)
- 应助: 4 (幼儿园)
- 金币: 3849.7
- 散金: 18
- 红花: 1
- 帖子: 1170
- 在线: 499.6小时
- 虫号: 447168
- 注册: 2007-10-30
- 专业: 林产化学
7楼2009-08-10 17:25:40
dummy1
木虫 (正式写手)
- 应助: 13 (小学生)
- 金币: 5841.7
- 散金: 32
- 红花: 1
- 帖子: 312
- 在线: 295.8小时
- 虫号: 270440
- 注册: 2006-08-06
- 专业: 理论和计算化学
8楼2009-08-10 19:39:59
pzhan1982
金虫 (著名写手)
- 应助: 4 (幼儿园)
- 金币: 3849.7
- 散金: 18
- 红花: 1
- 帖子: 1170
- 在线: 499.6小时
- 虫号: 447168
- 注册: 2007-10-30
- 专业: 林产化学
9楼2009-08-10 20:39:24
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
10楼2009-08-10 21:11:49
30