24小时热门版块排行榜

返回列表

当前主题已经存档。

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

pzhan1982

金虫 (著名写手)

应助: 4 (幼儿园)
金币: 3849.7
散金: 18
红花: 1
帖子: 1170
在线: 499.6小时
虫号: 447168
注册: 2007-10-30
专业: 林产化学

[交流] 【求助】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人回复

1楼2009-08-09 15:44:50

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

argo

铁杆木虫 (著名写手)

上善若水

应助: 4 (幼儿园)
金币: 9672.8
散金: 200
红花: 34
帖子: 1940
在线: 486.4小时
虫号: 507533
注册: 2008-02-19
性别: GG
专业: 凝聚态物性 II ：电子结构

★
小木虫(金币+0.5):给个红包，谢谢回帖交流

第一个问题正确的代码应该是：

CODE:

character A*4,B*6,C*5

DATA A,B,C/'big','middle','small'/

if(A.GT.B)then

  if(A.GT.C)then

    print*,A

  else

    print*,B

  endif

else

  if(B.GT.C)then

    print*,B

  else

    print*,C

  endif

endif

end

运行结果：

CODE: