首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
工程
(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
25
问题
(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://jikaoti.com/ti/Re7hFFFM
本试题收录于:
基础考试(上午)题库一级结构工程师分类
0
基础考试(上午)
一级结构工程师
相关试题推荐
当结构的基本自振周期T1=1.24s,风荷载脉动增大系数最接近______项数值。计算第二振型参与系数γ2,其值与______项数值最为接近。
基桩竖向承载力设计值R最接近下列______项数值?需验算的软弱下卧层地基承载力设计值最接近下列______数值?
基桩竖向承载力设计值R最接近下列______项数值?软弱下卧层顶面处的附加应力最接近下列______数值?
在地基变形计算中,对于不同的结构应由不同的变形特征控制,()项规定不正确。
应当先履行债务的当事人,有确切证据证明对方有下列情形之一的,可以( )。①经营状况严重恶化;②转移财产、抽逃资金,以逃避债务的;③丧失商业信誉的;④有丧失或者可能丧失履行债务能力的其他情形。
建设项目主要阶段的环境管理及程序包括( )。①项目建议书阶段或预可行性研究阶段的环境管理;②可行性研究(设计任务书)阶段的环境管理;③设计阶段的环境管理;④施工阶段的环境管理;⑤试生产和竣工验收阶段的环境管理。
Intemet网上的服务都是基于某种协议,Web服务是基于()协议。
注册结构工程师因在结构工程设计或相关业务中犯有错误受到行政处罚或者撤职以上行政处分,自处罚、处分决定之日起至申请注册之日止不满多少年的不予注册?()[2009年真题]
注册结构工程师因在结构工程设计或相关业务中犯有错误受到行政处罚或者撤职以上行政处分,自处罚、处分决定之日起至申请注册之日止不满多少年的不予注册?()
取得注册结构工程师执业资格证书者,要从事结构工程设计业务的须申请注册,但有下列( )情形的,不予注册。①不具备完全民事行为能力的;②因受刑事处罚,自处罚完毕之日起至申请注册之日止不满5年的;③因在结构工程设计或相关业务中犯有错误
随机试题
女性,60岁,外伤1次,左下肢短缩,足外旋约50度,左髋部压痛,无肿胀,最可能诊断()
共济失调呼吸的损害水平
以下哪个可用作填充剂
给水管网上应设置阀门,当管径小于等于50mm时,宜采用( )。
营业税改征增值税以后,下列项目属于免征增值税的有()。
我国人民币汇率形成机制改革坚持的原则是( )。银行间市场是外汇市场的核心,改革后银行间市场的交易机制包括( )。
一般资料:男性,27岁,已婚,公司职员。求助者主诉:为感情问题痛苦,伴有失眠两个月余。求助者自述:妻子和孩子在家乡,我自己到城里打工,认识了一位女同事,互相有好感,以后经常约会,但是,一个月前,我妻子突然来了,提出来要在城里找工作。我很为难
调查研究法的具体方法包括()。
先用权是指专利申请之前,已有人制造相同产品,或使用相同方法,或已作好制造或使用的必要准备,则在批准申请人的专利权以后,上述人员仍可在原范围内继续制造或使用的权利。国际上一般都把“先用权”当作不能视为侵犯专利权的情况之一。下列不在先用权照顾的情况是(
ATheOrganizationofAnArticleBCheckYourReadingSpeedCAWaytoIncreaseYourReadingSpeedDCheckYourUnderstandin
最新回复
(
0
)