首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
工程
(2008年)阅读下列FORTRAN程序: DIMENSION M(4,3) DATE M/-10,12,24,11,20,-15,61,78,93,30,44,-45/ N=M(1,1) DO 10 I=1,4
(2008年)阅读下列FORTRAN程序: DIMENSION M(4,3) DATE M/-10,12,24,11,20,-15,61,78,93,30,44,-45/ N=M(1,1) DO 10 I=1,4
admin
2014-08-29
45
问题
(2008年)阅读下列FORTRAN程序:
DIMENSION M(4,3)
DATE M/-10,12,24,11,20,-15,61,78,93,30,44,-45/
N=M(1,1)
DO 10 I=1,4
DO 10 J=1,3
IF (M(I,J).LT.N)THEN
N=M(I,J)
K1=I
K2=J
ENFIF
10 CONTINUE
WRITE(*,‘(2x,314)’)N,K1,K2
END
程序运行后的输出结果是( )。
选项
A、93,3,1
B、-10,1,1
C、-45,4,3
D、78,3,2
答案
C
解析
数组元素的值分别为: M(1,1)=-10,M(2,1)=-12,M(3,1)=-24,M(4,1)=11,
M(1,2)=-20,M(2,2)=-15,M(3,2)=61,M(4,2)=78,
M(1,3)=93,M(2,3)=30,M(3,3)=44,M(4,3)=-45,
最后一次循环:N=M(4,3)=-45,K1=4,K2=3
转载请注明原文地址:https://kaotiyun.com/show/aLtf777K
本试题收录于:
动力基础考试(上午)题库注册公用设备工程师分类
0
动力基础考试(上午)
注册公用设备工程师
相关试题推荐
Windows提供了两个十分有效的文件管理工具,它们是()。
一端固定一端自由的细长(大柔度)压杆,长为L(图a),当杆的长度减小一半时(图b),其临界载荷Fcr比原来增加()。
在图示机构中,杆O1A∥O2B,杆O2C∥O3D,且O1A=20cm,O2C=40cm,若杆AO1以角速度ω=3rad/s匀速转动,则CD杆上任意点M的速度及加速度大小为()。
在一容器中,反应2NO2(g)2NO(g)+O2(g),恒温条件下达到平衡后,加一定量Ar气体保持总压力不变,平衡将会()。
两块钢板由相同材料的两块盖板和十个铆钉连接,如图a、b所示,图上尺寸单位为mm。已知铆钉的许用应力[τ]=120MPa,[σbs]=300MPa,钢板的许用应力[σ]=160MPa,则此接头的强度为()。
有一直径dn=20cm的输油管道,输油的流量Qn=10L/s,运动粘滞系数vn=30×10-6m2/s。若在模型实验中采用直径dm=5cm的圆管,模型中分别用运动粘滞系数vml=1.0×10-6m2/s的水和vm2=17×10-6m2/s的空气做实验。为保
如图所示,均质鼓轮A和圆盘B质量均为m,半径均为R,物体C质量也为m。若物体C上升时的速度为v,则系统对A点的动量矩为()。
如图所示,皮带轮边缘上一点A以50cm/s的速度运动,在轮上另一点B以10cm/s的速度运动,两点到轴O的距离相差20cm。则皮带轮的角速度和直径分别为()。
(2006年)在材料相同的条件下,随着柔度的增大,()。
(2008年)当社会通货膨胀率趋于上升,其他因素没有变化时,基准折现率应()。
随机试题
本案中,作为许可方的王某擅自许可第三人私营公司在北京市内实施其专利,其行为违反了合同约定,构成了对某生产厂家独家实施权的侵犯。因此,王某要对某生产厂家承担违约责任,同时,还要与私营公司共同承担侵权责任。
A.预防褥疮、肢体置功能位及被动关节运动,呼吸训练及排痰训练和防止泌尿系感染B.肌力训练、床上全面锻炼,坐位练习、轮椅训练,站立和步行训练,作业疗法C.痉挛、性功能障碍和疼痛D.运动功能障碍和姿势异常E.早期发现,早期康复,康复与游戏及教育相结合,
A.推动作用B.温煦作用C.防御作用D.固摄作用E.气化作用
关于屋面细石混凝土找平层的说法,错误的是()。
在价值工程的工作程序中,()是对新构思方案进行初步研究,其目的是从众多的方案中进行粗略的筛选,以减少详细评价的工作量,使精力集中于优秀方案的评价。
请简述出口产品质量的构成要素。
在我国,行政职能的服务特性集中体现在()。
中共十三大明确提出我国正处在社会主义的初级阶段。这个论断表明()
所谓概念模型,指的是______。
EveryyearBerryBros&Rudd,Britain’soldestwinemerchant,issuesapocket-sizedpricelist.Readingoldcopiesmakesamateur
最新回复
(
0
)