24小时热门版块排行榜

返回列表

当前主题已经存档。

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

pzhan1982

金虫 (著名写手)

应助: 4 (幼儿园)
金币: 3849.7
散金: 18
红花: 1
帖子: 1170
在线: 499.7小时
虫号: 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则运行结果为？？

回复此楼

» 猜你喜欢

售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急已经有5人回复
面上没中，邀请各位路过的虫友分析一下分数已经有7人回复
哈尔滨工业大学韩晓军教授课题组招收2027年硕士推免生及博士研究生已经有3人回复
找导师已经有8人回复
国社科又开始会评了，不知道这次命运如何已经有14人回复
麻烦专家们看看评委们的意见（F口面上）已经有13人回复
科研人应该花精力去思考如何解决问题，而不是去凝练问题已经有14人回复
要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够已经有17人回复
学科评审组评审是指会评吗？已经有5人回复
小白求助投论文要求的highlights应该如何写已经有4人回复

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: