使用.bat对来执行fortran的可执行程序并传递输入参数_百度知道
使用.bat对来执行fortran的可执行程序并传递输入参数
第一张：如上图，程序功能介绍。比较简单
第二张：Build命令后，Debug文件中有可执行程序name.exe，想把程序name的执行和需要输入的字符串写入一个run.bat文件里。如果按照上图的写法，结果出不来。
第三张，如果手工输入，在.bat中只执行程序命令，第...
我有更好的答案
1.Qt QProcess中，这个类可以启动其他应用程序 2.QProcess参数可以被传递到其他应用程序，如果其他程序可能更复杂一点，通过QT可以定义一个通用的数据结构
为您推荐：
其他类似问题
fortran的相关知识
等待您来回答导读：《自立式铁塔内力分析软件》(IGT2.0)使用手册，源程序全部使用FORTRAN77语言，COMB.EXE:与SPL及TSL配套使用的程序，用户按本手册的要求准备好铁塔计算数据文件后，该文件只在使用美国标准时才生成，以期使用户经交互式处理后，号码小的那部分供受力材端点使用，大的那部分供补助材端点使用，必须按由小到大顺序（按由上往下编号递增）指定给铁塔本体和各腿使用，指定1000号以下的供本体使《自立式铁塔内力分析软件》(IGT 2.0)使用手册
１、程序概况
源程序全部使用FORTRAN77语言，适用于各类微机。
源程序经编译后形成九段可执行程序： BAT.EXE:批命令形成文件； TTA.EXE:铁塔分析程序； TTR4.EXE:输出报告程序； TTO4.EXE:绘制单线图程序； RPT.EXE:按美国土木工程师协会「输电铁塔设计导则」设计铁塔的详
细报告程序； SPL.EXE:直线塔荷载自动组合程序； TSL.EXE: 耐张塔荷载自动组合程序； COMB.EXE:与SPL及TSL配套使用的程序； LOADTREE.EXE:荷载表绘图程序； 此外该软件尚有个支撑文件DATA.INI； 由一个名为TTT.BAT 的批处理文件连成一个整体。
用户按本手册的要求准备好铁塔计算数据文件后，假定文件名为SS(注意数据文件名不得有后缀(扩展名),如用户要求自动计算导、地线荷载，还应准备荷载数据文件SS.APX)，就可键入命令：
?（?表示按回车键） 按程序提示用户应输入数据文件名，上述八段程序顺序自动运行。 程序运行完毕后生成十二个有固定后缀的文件，以本例来说就是： SS.MEM、SS.FIG、SS.OUT、SS_2.DXF、SS_3.DXF、 SS.WIN、SS.DIS、SS.BRI、SS.LOD、SS.CSE、SS.DTL、SS.TTT和SS_T.DXF
以 .OUT为扩展名的文件是计算结果文件,可打印输出，具体内容后文说明。
以 .DXF为扩展名的文件是图形接口文件，_2.DXF、_3.DXF和_T.DXF,分别为二维单线图、三维单线图和荷载表的图形接口文件。
以 .MEM为扩展名的文件是继承文件，一般也值得保存。如机器档次很高，速度很快，必要时可重新运行、重新生成。所谓继承是指不改变业已选出杆件规格（全部继承）或只改变部分杆件规格（部分继承），而去实现设计者其它目的。例如,满应力设计后，杆件规格业已选出（不变或部分改变），想在此基础上进行某种验算（例如想了解某种非控制工况下的应力或改变部分荷载后的应力）或者进行详细的内力计算以便同试验值对照。详见数据填写一节。
以 .BRI为扩展名的文件是简要的计算结果文件。 -------------------------------.1.----------------------------- 《自立式铁塔内力分析软件》(IGT 2.0)使用手册
以 .DTL为扩展名的文件是按照国际通用的输出格式的详细计算结果文件，该文件只在使用美国标准时才生成。
以 .WIN为扩展名的文件是要求程序自动计算铁塔风荷载时生成的风荷载计算结果文件。 以 .DIS为扩展名的文件是选用逐工况计算内力方式时生成的节点位移文件，否则它是统材信息，其中包括每一统材组统材后所选定的角钢号，杆件的长度，不统材时所选中的角钢号，杆件的最大拉力、压力和同时受压时的压力及最大压应力，供用户参考判明有无节约潜力。
以 .LOD为扩展名的文件是荷载文件，亦即导地线荷载与塔身风荷载组合后的作用于铁塔的实际荷载。判明荷载是否正确很重要，但数据中可能包含大批塔例，文件极为冗长不便阅读，较好的对策是先迭代至收敛，再改按继承方式只验算某一或几个塔，这样就等于从中摘取一部分便于阅读了。
以 .CSE为扩展名的文件是荷载控制工况文件，首先针对杆件的最大内力说明哪些工况起作用，哪些不起作用，不起作用的工况如果其基础作用力也不起控制作用，就是可以删除的工况，接着说明各基础和杆件的控制情况，其中Var项说明起控制作用的高低腿布置，Var=0表示控制情况与高低腿的转换无关。
-------------------------------.2.----------------------------- 《自立式铁塔内力分析软件》(IGT 2.0)使用手册
2、主要功能、特点 2.1设计标准 2.1.1.现行的国内规程(DL/T 和 GB 50061-97)和《架空送电线路杆塔结构设计技术规定》(**********); 2.1.2国内规程（SDJ3-79）； 2.1.3.国内规程（SDGJ3-79）和《架空送电线路杆塔结构设计技术规定》（SDGJ94-90）； 2.1.4.美国土木工程师协会1986年颁布的《输电铁塔设计导则》(英文名称：Guide for the Design of Steel Transmission Towers)
2.2分析功能 线性空间桁架分析。本程序没有大位移，非线性功能，只能用于自立式结构；对于美国“输电铁塔设计导则”，只涉及热轧普通角钢杆件设计部分。 2.3概括性功能 多塔高、多接腿及高低腿进行自动组合分析功能；对不同塔高可以指定不同的荷载。 2.4荷载自动形成功能 2.4.1塔身风荷载 依据所选材料规格，自动更新塔身风荷载及塔身自重荷载，参与迭代循环。 2.4.2导地线荷载 依据电气专业提供的荷载，填写必要的数据便可使得导地线荷载的计算及组合能够很方便的完成。 2.5图形功能 机内生成的铁塔单线图，能清楚地表达出多塔高多接腿的情况，图中标明节点号，便于同输入数据对照和查错；还给出杆件所用的角钢规格和所需连接螺栓的数量、规格，以期使用户经交互式处理后，形成所需的制图条件。 2.6监督性功能 自动进行力的平衡检查，以防止将错误的计算结果误用于工程实际。所谓力的平衡是指内力同该组荷载的平衡。与此同时还要生成一个以.LOD为扩展名的文本文件，详细记述各个铁塔的荷载，必要时用户可以审阅该文件进而确认荷载是否正确。 2.7设计标准参数完全对用户开放 与设计标准有关的参数用户可自行修改。 2.8其它功能 2.8.1节点及杆件对称性的利用、节点编号优化、计算结果的继承、基础作用力的计算、纯补助材的计算以及自动处理平面节点等。 2.8.2在全部输入的荷载组合中，可以要求只计算其中的某一种或某几种；在全部输入的各接腿中，可以要求只分析其中某一个或某几个。 2.8.3对相互支撑的杆件，在同时受压时能按规定的要求自动处理。
-------------------------------.3.----------------------------- 《自立式铁塔内力分析软件》(IGT 2.0)使用手册
３、基本规定
+Y3.1 坐标系 三维直角坐标系X、Y轴必须同地面平行，Z轴同地面垂直，最好选用如图1所示之右手系，注意Z轴同重力方向一致，并且应同塔体的中心轴线重合, 以便数据中能利用铁塔的对称性。 3.2 节点分类
本程序将节点分为两种、三类如下表： a'自由节点受力材端点约束节点节点补助材端点+X+Z图1坐标系 a b'drbs
c'c既是受力材端点，又是补助材端点，必须图2
节点分类视为受力材端点，如图2中的b，该图中仅r和s才是补助材端点。补助材至少有一端不 是受力材端点，如b-r,r端不是受力材端点，因而视为补助材。 3.3 节点编号及编号原则 IVIII每一个节点都要指定一个数字号，X<0且Y=0且Y<0称为节点编号。 个位=3个位=2节点编号原则： 3.3.1．节点号的个位数必须是0～个位=0个位=13，根据俯视时节点所在象限,按图3规X=0X>=0且Y>=0定，不应违反。 最小节点号为10,最大III节点号为9993，总共约有4000个号码。 3.3.2．补助材端点编号必须大于所图3:
号码分配 有受力材端点编号。因此编号时划分区段，号码小的那部分供受力材端点使用，大的那部分供补助材端点使用，其间最好留有一些空号，绝不允许相互有重迭部分。例如6000以下的号码给受力材用；8000以上的号码给补助材用。
3.3.3．约束节点（基础）的编号，必须大于同一塔上所有自由节点编号。因此受力材端点，必须按由小到大顺序（按由上往下编号递增）指定给铁塔本体和各腿使用。例如，假定有4个腿，指定1000号以下的供本体使用，的供第一腿使用。的供第二腿使用….。
3.3.4．编号适当稀疏，以避免改动或补插时号差过大；
受力材两端点编号之间，实际占用的号码数，即为受力材的号差。例如，某斜材两端的编号分别为50和702,如果50到702之间的所有号码均被占用,
-------------------------------.4.----------------------------- 系关称对件杆
5图《自立式铁塔内力分析软件》(IGT 2.0)使用手册
则51～53有3个号被占用，60～93有4×4＝16个号被占用，100有6)B(～×40＝240个号被占用，再加上700和701总共有240＋16＋3＋2＝261个号，因此50至702的号差为261。但如果从100～693是空号，则号差为21。
受力材的最大号差对解题规模和运行时间都有很大影响，程序虽具有优041141化编号的功能，但欲达到绝对最佳是不容易的，因此节点编号时应注意减少号差。
节点的对称关系 )A(有三种对称关系：左右对称，前后对称及关于Z轴对称。 在图１所示坐标系下，两节点如果的Y、Z坐标值相同，但X坐标互为正、负就是左右对称的节点；两节点如果X、Z坐标相同，且Y坐标恰好互为正、负就是前后对称的节点；两节点如果Z坐标相同，但X、Y坐标都恰好互为正、负就是关于Z轴成对称。当然有的节点既是左右（前后）对称，也是Z轴对称，编号时应遵循左右对称和前后对称优先的原则，把它们不看成是Z轴成对称。
节点编号时，必须抓住节点之间的对称关系。互为对称的节点的特点是删去个位数后都是相同的。例如10、11、12、13，删去个位后都是1,这样就清楚地表达了它们是对称关系，至于是什么样的对称关系，则由个位数表达清楚。不存在对称节点时就不能要求按对称关系去生成该点，否则就出错。 3.6 杆件的对称关系
两杆件（受力材）的端点互为对称关系就是互为对称的杆件，例如图５中的杆件120－140同121－141互为左右对称的杆件，同122－142互为前后对称的杆件，同123－143互为对角线对称的杆件。存在对称杆件时，就应按对称关系去生成，这样数据量就少得多。但是，对于图5中的30－32，存在左右对称的杆件31－33，却不存在前后对称的杆件，不存在对称杆件时，就不能按对称关系去生成，否则杆件重复，是不允许的，程序会停机警告你去改正。
3.7过渡区 过渡区是指从与腿部有直接连接的最小节点开始到与腿部有直接连接的最大节点为止的一群节点及杆件。 3.8荷载
铁塔上的荷载，通常分为线条荷载(导线、地线荷载)和塔体自身荷载。荷载作用的节点称为荷载节点。荷载节点分为导地线荷载节点及塔体自 身荷载节点。这里所说的导地线荷载节点是广义的，不仅仅限于线条荷载，凡属各荷载工况之间不能象塔体自身荷载那样可以通过统一的换算系数进行换算的荷载节点均属导地线荷载节点，这些荷载节点的荷载可以按沿坐标轴方向的荷载分量逐个工况的输入(详见4.9)，也可以由程序转换而成（详见附录B）。
-------------------------------.5.----------------------------- 包含总结汇报、IT计算机、人文社科、考试资料、旅游景点、经管营销、教学教材、办公文档、资格考试、word文档以及东北院TTA使用手册(原版)等内容。本文共10页
相关内容搜索2000年9月二级笔试试题FORTRAN_IT 培训_认证试题 - 远宏学习网
您现在的位置是:→→→
2000年9月二级笔试试题FORTRAN
来源:&&时间:&&浏览次数：
一、选择题((1)--(40)每小题1分, (41)--(50)每小题2分, 共60分) 下列各题 A) 、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项在答题卡相应位置上涂黑，答在试卷上不得分。 (1) 下列电子邮件地址中正确的是(其中□表示空格) A) Malin& B) malin@ns. C) Lin□Ma& D) Lin□
(2) 下列说法中正确的是 A) 为了使用Novell网提供的服务，必须采用FTP协议 B) 为了使用Internet网提供的服务，必须采用TELNET协议 C) 为了使用Novell网提供的服务，必须采用TCP/IP协议 D) 为了使用Internet网提供的服务，必须采用TCP/IP协议
(3) 下列说法中不正确的是 A) 调制解调器(Modem)是局域网络设备 B) 集线器(Hub)是局域网络设备 C) 网卡(NIC)是局域网络设备 D) 中继器(Repeater)是局域网络设备
(4) 十进制数397的十六进制值为 A) 18D B) 18E C) 277 D) 361
(5) 下列说法中不正确的是 A) CD-ROM是一种只读存储器但不是内存储器 B) CD-ROM驱动器是多媒体计算机的基本部分 C) 只有存放在CD-ROM盘上的数据才称为多媒体信息 D) CD-ROM盘上最多能够存储大约650兆字节的信息
(6) Windows应用环境中鼠标的拖动操作不能完成的是 A) 当窗口不是最大时，可以移动窗口的位置 B) 当窗口最大时，可以将窗口缩小成图标 C) 当窗口有滚动条时可以实现窗口内容的滚动 D) 可以将一个文件移动(或复制)到另一个目录中去
(7) 从Windows中启动MS-DOS方式进入了DOS状态，如果想回到Windos状态，在DOS提示符下，应键入的命令为 A) EXIT B) QUIT C) WIN D) DOS -U
(8) 要在WINDOWS标准窗口的下拉菜单中选择命令，下列操作错误的是 A) 用鼠标单击该命令选项 B) 用键盘上的上下方向键将高亮度条移至该命令选项后再按回车键 C) 同时按下ALT键与该命令选项后括号中带有下划线的字母键 D) 直接按该命令选项后面括号中带有下划线的字母键
(9) ASCLL码(含扩展)可以用一个字节表示，则可以表示的ASCLL码值个数为 A) 1024 B) 256 C) 128 D) 8O
(10) 字长为32位的计算机是指 A) 该计算机能够处理的最大数不超过232 B) 该计算机中的CPU可以同时处理32位的二进制信息 C) 该计算机的内存量为32MB D) 该计算机每秒钟所能执行的指令条数为32MIPS
(11) 在DOS系统中，下列文件名中非法的是 A) ABCDEFG1 B) ABCDEFG1.234 C)ABCD_EFG D)ABCD\EFG
(12) DOS系统启动后，下列文件中驻留内存的是 A) CONFIG.SYS B)
C) AUTOEXEC.BAT D) MEM.EXE
(13) DOS下的“DIR *2”命令将列出当前目录下的 A) 所有名字末尾为字符2的非隐含文件和目录 B) 所有名字末尾为字符2的非隐含文件 C) 所有非隐含文件 D) 所有非隐含文件和目录
(14) 软驱的盘符为A，A盘上只有一个目录\XYZ,而\XYZ下有若干子目录和文件，若想把A盘的所有内容复制到C盘根目录下，应使用的命令为 A) COPY A:\*.* C: B) COPY A:\*.* C:\*.* C) XCOPY A:\*.* C:\ /S D) DISKCOPY A: C:
(15) 若要将当前盘目录下的文件A.TXT连接在文件B.TXT后面，应使用的命令为 A) COPY A.TXT&&B.TXT B) MOVE A.TXT&&B.TXT C) PATH A.TXT&&B.TXT D) TYPE A.TXT&&B.TXT
(16) 下列叙述中正确的是 A) 完整的FORTRAN77程序的第一个语句必须是PROGRAM语句 B) 完整的FORTRAN77程序中只能有一个END语句 C) FORTRAN77的任何可执行语句都可以有标号 D) FORTRAN77的所有语句都是可执行语句
(17) 下列叙述中不正确的是 A) FORTRAN77子程序可以单独编译 B) 对一个FORTRAN77源程序进行编译和连接无误后可生成可执行文件 C) 即使编译和连接都正确无误，FORTRAN77程序运行时仍可能出错 D) FORTRAN77连接的主要任务是把函数库中的函数翻译成机器指令
(18) 以下关于FORTRAN77源程序书写格式的叙述中正确的是 A) 程序行的第1列为注释标志区，不能用作标号 B) 程序行的7-72列为语句区 C) 利用续行标志，一条语句可以继续任意多行 D) 只要以字母C或字符*起头，就是注释区
(19) 阅读下列FORTRAN77程序： S=1.0 DO 10 K=2,4,2 10 S=S+1/K WRITE(*,*)S END 执行上述程序后,输出的S值为 A) 0.75 B) 1.75 C) 0.0 D) 1.0
(20) 下列标识符中不能作为FORTRAN77的合法变量名的是 A) A_1 B) A1 C) A1A D) A+1
(21) 设A=3.0,C=6.0,L=.FALSE.,则下列FORTRAN77表达式中值为.FALSE.的是 A) A.NE.C.AND..NOT.L B) A.NE.C.NEQV..NOT.L C) A.NE.C.EQV..NOT.L D) A.NE.C.OR..NOT.L
(22) ½²sin²(½)的FORTRAN77表达式正确的写法是 A) 0.5*SIN(1/2)**2 B)SIN(0.5)**2/2 C) 0.5(SIN(1/2))**2 D)(SIN**2)(1/2)/2
(23) 不等式0A) 0.0.LE.Y.LE.1.0 B) 0.0.LE.Y.OR.Y.LE.1.0 C) 0.0.LE.Y.AND.Y.LE.1.0 D) 0.0.LE.Y.NOT.Y.GT.1.0
(24) 下列各组说明语句中正确的是 A) REAL R B) PARAMETER(R=10) IMPLICITINTEGER(I-T) INTEGER R C) REAL R D) IMPLICITINTEGER(I-N) PARAMETER(R=10) REAL R=10
(25) 下列DATA语句中正确的是 A) DATA /A,B/-1.0, -1.0/ B) DATA A, B/2*(-1.0)/ C) DATA A, B/2*-1.0/ D) DATA A/-1.0, B/-1.0/
(26) 设M=2000,为了在屏幕上输出 □□***2000*** (其中□表示空格): 则应使用的格式输出语句为 A) WRITE(*,10)M 10 FORMAT(2X,’***’,I4,’***’) B) WRITE(*,10) 10 FORMAT(3X,’***M***’) C) WRITE(*,10) 10 FORMAT(3X,’***2000***’) D) WRITE(*,10)M 10 FORMAT(1X,’2X’,17,’***’)
(27) 若有格式输入语句如下: INTEGER A(4) READ(*,2O)A 20 FORMAT(4I2) 如果在执行时从键盘输入 □1□23□456□789L (其中□为空格, L为回车键) 则读入后的A(3)值为 A) 56 B) 456 C) 34 D) 30
(28) 下列不是FORTRAN77赋值语句的是 A) X=.TRUE. B) X=X*X C) X=X**2**2 D) X=X++
(29) 阅读下列FORTRAN77程序: READ(*,10)A,B,C 10 FORMAT(1X,F3.1,2X,2F3.2) WRITE(*,*)B END 如果在执行该程序时从键盘输入 L (其中L为回车键) 则运行后输出的B值为 A) 7.89 B) 6.78 C) 4.56 D) 0.67
(30) 阅读下列FORTRAN77程序: READ(*,*)A B=0.0 IF(A.GE.1.0)B=B+2.0 IF(A.GE.2.0)B=B-1.0 WRITE(*,*)B END 在执行时,从键盘输入 5.0L (其中L为回车键) 则输出的B值为 A) 2.0 B) -1.0 C) 0.0 D) 1.0
(31) 阅读下列FORTRAN77程序: PARAMETER(A=1.0) READ(*,*)B IF(B.LT.A)THEN B=A ELSE IF(B.GT.A)THEN B=B-A IF(B.GT.A)THEN B=B-A ENDIF ELSE B=0.0 ENDIF WRITE(*,*)B END 在执行时,从键盘输入 2.5L (其中L为回车键) 则输出的B 值为 A) 1.0 B) 2.5 C) 1.5 D) 0.5
(32) 设分段函数如下: 1 X&1 y= X 0 -X X≤0 实现上述函数功能的FORTRAN77程序段为 A) IF(X.GT.1.0)Y=1.0 IF(X.GT.0.0)Y=X IF(X.LE.0.0)Y=-X B) IF(X.GT.0.0)Y=X IF(X.LE.0.0)Y=-X IF(X.GT.1.0)Y=1.0 C) IF(X.LE.0.0)Y=-X IF(X.GT.1.0)Y=1.0 IF(X.GT.0.0)Y=X D) IF(X.GT.1.0)Y=1.0 IF(X.LE.0.0)Y=-X IF(X.GT.0.0)Y=X
(33) 下列各程序中正确的是 A) DO 10 N=1， 100 &循环体& 10 GOTO 100 B) DO 10 N=1，100 &循环体& 10 END C) DO 10 N=1，100 &循环体& 10 STOP D) DO 10 N=1，100 &循环体& 10 IF(N.GT.10)M=N-10
(34) 阅读下列FORTRAN77程序： DO 10 I=4，2，-1 A=1.0 DO 20 J=I，4，2 A=A+1.0 20 CONTINUE 10 CONTINUE WRITE(*，*)A END 运行上述程序后，输出的A值为 A) 5.0 B) 4.0 C) 3.0 D) 2.0
(35) 下列循环中不正确的是 A) DO 10 I=1，200，100 M=I DO 10N=M，10 &循环体& 10 CONTINUE B) DO 10 I=1，200，100 M=I DO 20 N=M，10 &循环体& 20 CONTINUE 10 CONTINUE C) DO 10 I=1，200，100 DO 20 N=I，10 &循环体& 20 CONTINUE 10 CONTINUE D) DO 10 I=1，200，100 M=I DO 20 I=M，10 &循环体& 20 CONTINUE 10 CONTINUE
(36) 对于下列给定的FORTRAN77说明和赋初值语句： INTEGER A(2，2) DATA A/3，4，5，6/ 数组元数A(2，1)的初值为 A) 3 B) 5 C) 4 D) 6
(37) 下列有关FORTRAN77数组的说法正确的是 A) 数组定义语句只能定义一维或二维数组 B) 数组元素下标不能出现负值 C) 在赋值语句中出现的A(3)肯定是数组元素 D) 程序中使用的数组必须进行说明
(38) 阅读下列FORTRAN77程序： INTEGER A(3，2) READ(*，100)A 100 FORMAT(2I3) WRITE(*，*)A END 运行后要使A(1，2)的值为2，正确的键盘输入为(其中□为空格)
A) □□1□□2 □□3□□4 □□5□□6 B) □□1□□2□□3 □□4□□5□□6 C) □□1□□3□□5 □□2□□4□□6 D) □□1□□3 □□5□□2 □□4□□6
(39) 阅读下列FORTRAN77程序： DIMENSION A(3) DATA A/3.0, 2.0,1.0/ X=F(A) WRITE(*,100)X 100 FORMAT(1X,F3.1) END FUNCTION F(B) DIMENSION A(3),B(3) DO 10 I=1,3 10 A(I)=B(I)- I F=A(1)+A(2)+(3) X=1.0 -F END 执行上述程序后，输出的X值为 A) 1.0 B) 0.0 C) 6.0 D) -5.0
(40) 设有FORTRAN77函数子程序如下： FUNCTION IP(N，A) IP=0 IF(A.LT.1.0)IP=N END 下列函数调用中正确的是 A) M=IP(1.0，IP(1，1.0)) B) M=IP(IP(1，1.0)，1.O) C) M=IP(A，A) D) M=IP(1.0，1.0)
(41) 下列FORTRAN77程序中有错误的是 A) DIMENSION A(10) CALL SUB(A，3) WRITE(*，*)(A(I)，I=1，6) END SUBROUTINE SUB(A，N) DIMENSION A(N，N) S=0.0 DO 10 I=1，N DO 10 J=1，N A(I，J)=S+1.0 S=S+1.0 10 CONTINUE END B) DIMENSION A(3，3) CALL SUB(A，3) WRITE(*，*)A END SUBROUTINE SUB(B，N) DIMENSION B(3，3) S=0.0 DO 10 I=1，3 DO 10 J=1，3 B(I，J)=S+1.0 S=S+1.0 10 CONTINUE END C) DIMENSION A(3，3) CALL SUB(A，4) WRITE(*，*)A END SUBROUTINE SUB(B，N) DIMENSION B(N，N) S=0.0 DO 10 I=1，N DO 10 J=1，N B(I，J)=S+1.0 S=S+1.0 10 CONTINUE END D) DIMENSION A(10) CALL SUB(A，3) WRITE(*,*)(A(I),I=1,6) END SUBROUTINE SUB(B,N) DIMENSION B(N,N) S=0.0 DO 10 I=1,N DO 10 J=1,N B(I,J)=S+1.0 S=S+1.0 10 CONTINUE END
(42) 下列对公用区的说明语句中错误的是 A) COMMON A(5)， B B) COMMON/AB/A(5)， B C) COMMON AB/A(5)， B/ D) COMMON//A(5)， B
(43) 下列在主程序与子程序中对公用区的说明不正确的是 主程序 子程序 A) COMMON A(2)，B，C，D COMMON A(3)，B，C，D B) COMMON A(2)，B COMMON A(3) COMMON C，D COMMON B，C，D C) COMMON A(2)，B COMMON A(2)，B COMMON C，D COMMON/X/C，D D) COMMON A(2)，B COMMON A(3) COMMON/X/C，D COMMON/X/B，C，D
(44) 阅读下列FORTRAN77程序： COMMON A，B，C，D A=1.0 B=2.0 C=3.0 D=4.0 CALL ABCD(2) WRITE(*,*)A,C END SUBROUTINE ABCD(N) COMMON B,C,D,A IF(N.GT.0) THEN B=A C=D ENDIF END 执行上述程序后,输出的A与C的值分别为 A) 1.0与3.0 B) 1.0与4.0 C) 4.0与3.0 D) 4.0与2.0
(45) 字符运算’AB’//’CD’产生的新字符串值为(其中□表示空格): A)’ABCD’ B)’AB//CD’ C)’AB□CD’ D)’AB□□CD’
(46) 阅读下列FORTRAN77程序(其中□表示空格): CHARACTER *3 A(3) A(1)=’A□GOOD□IDEA.’ WRITE(*,*)A(1) END 执行该程序后,输出的结果是 A) ’A□GOOD□IDEA.’ B) A□GOOD□IDEA. C) ’A□G’ D) A□G
(47) 下列表达式中值为.TRUE.的是 A)’ARE’.GT.’IS’ B)’are’.GT.’IS’ C)’ARE’.GT.’are’ D)’are’.GT.’is’
(48) 下列关于直接文件操作说法中不正确的是 A) 直接文件不能按记录的顺序读取 B) 直接文件的所有记录的长度都相等 C) 直接文件不能按表控格式存取 D) 顺序写入的文件都不能直接读取
(49) 阅读下列FORTRAN77程序: DIMENSION A(3) OPEN(6,FILE=’XY.DAT’,STATUS=’NEW’, ACCESS=’DIRECT’, * FORM=’FORMATTED’,RECL=30) DO 10 I=1,6 S=2.0*I WRITE(6,100,REC=I)S 100 FORMAT(E15.6) 10 CONTINUE REWIND(6) READ(6,100,REC=3)A S=0.0 DO 20 I=1,3 S=S+A(I) 20 CONTINUE WRITE(*,*)S CLOSE(6) END 上述程序执行后,S的输出结果是 A) 12.0 B) 18.0 C) 24.0 D) 30.0
(50) 阅读下列FPRTRAN77程序: COMMON C A=1.0 B=2.0 C=3.0 CALL TEST1(4.0,A,B) WRITE(*,*)A,B,C END SUBROUTINE TEST1(A,B,C) COMMON X X=0.0 IF(A.GT.B)C=A IF(A,LE,B)B=A X=C-B END 执行上述程序后,输出的A,B,C值分别为 A) 1.0 2.0 1.0 B) 4.0 4.0 4.0 C) 1.0 4.0 3.0 D) 2.0 4.0 4.0
二、填空题(每空2分，共40分) 请将每空的正确答案写在答题卡上[1]至[20]序号的横线上，答在试卷上不得分。 (1) 在DOS状态下,当执行当前盘当前目录中的程序A.EXE时,为了将本该在屏幕上显示的运行结果输出到文件A.DAT中,应使用的DOS命令为 [1] 。 (2) 在XCOPY、PATH、TREE三个DOS命令中，属于内部命令的是令是 [2] 。 (3) 设当前盘为C盘，为了将当前盘当前目录中第三个字符为X的所有文件同名复制到A盘的当前目录中，应使用的DOS命令为 [3] 。 (4) 要将当前盘的目录A\B\C设置为当前目录,应使用的DOS命令为 [4]。 (5) 计算机网络按通信距离划分为局域网与广域网,NOVELL网属于 [5] 。 (6) 下列FORTRAN77程序的功能是:对输入的N(&100)个实数,求其平均值并输出。请在程序中的下划线处填入合适的内容。 DIMENSION X(100) READ(*,*)N CALL ABC(N,X) END [6] DIMENSION A(N) DO 10 I=1,N READ(*,*)A(I) 10 CONTINUE [7] DO 20 J=1,N 20 S=S+A(J) [8] WRITE(*,*)S END (7) 下列FORTRAN77子程序的功能是对给定的N×K阶实矩阵A和K×M阶实矩阵B，求乘积矩阵C=AB。请在程序中的下划线处填入合适的内容。 SUBROUTINE SM(N,K,M,A,B,C) [9] DO 10 I=1,N DO 10 J=1,M [10] DO 20 L=1,K 20 C(I,J)=C(I,J)+A(I,L)*B(L,J) 10 [11] END (8) 下列FORTRAN77子程序的功能是：统计字符串中字母Q、字母U和字符串QU出现的次数。其中字符串通过键盘输入得到，其长度不超过80个字符。请在程序中的下划线处填入适当的内容。 CHARACTER *80 STR READ(*,*)STR NUMQ=0 NUMU=0 NUMQU=0 I=0 K=0 10 [12] IF(STR(I:I).EQ.’Q’) THEN NUMQ=NUMQ+1 [13] ELSE IF(STR(I:I).EQ.’U’) THEN NUMU=NUMU+1 IF(K.EQ.1) NUMQU=NUMQU+1 K=0 ELSE [14] ENDIF IF(I.LT.80) GOTO 10 WRITE(*,*)’NUMQ=’,NUMQ WRITE(*,*)’NUMU=’,NUMU WRITE(*,*)’NUMQU=’,NUMQU END (9) 用梯形公式求数值积分的近似公式为 取f(x)=s0+s1x+s2x2，对于不同的系数s0，s1，s2,和积分上下限a，b，计算近似积分值并输出结果。其中f(x)用函数子程序实现，数值积分用子程序实现，写成下列FORTRAN77程序。请在程序中的下划线处填入合适的内容。 [15] COMMON S0,S1,S2 WRITE(*,*)’S0,S1,S2=’ READ(*,*)S0,S1,S2 READ(*,*)A,B CALL SUB( [16] ) WRITE(*,*)’S0=’,S0,’S1=’,S1,’S2=’,S2 WRITE(*,*)’A=’,A,’B=’,B WRITE(*,*)’FAB=’,FAB END FUNCTION F(X) [17] F=S0+S1*X,S2*X*X END SUBROUTINE SUB(A,B,F,FAB) COMMON S0,S1,S2 FAB=0.5*(B-A)*(F(A)+F(B)) END (10) 下列FORTRAN77程序的功能是计算并输出&请在程序中的下划线处填入合适的内容。 K=1 [18] 10 IF(K.LE.5) THEN [19] DO 20 M=1,K+2 FAC=FAC*M 20 CONTINUE SUM=SUM+FAC [20] GOTO 10 END IF WRITE(*,*) SUM END&
《2000年9月二级笔试试题FORTRAN》转载自互联网，仅供读者交流和学习，若有涉及作者版权等问题请及时与我们联系，以便更正、删除或按规定办理。感谢所有提供资讯的网站，欢迎各类媒体与我们进行文章共享合作。合作电话：010- 投稿邮箱：警告： 对任何违反国家法律和远宏学习网相应管理规定且侵害了新远宏学习网合法权益的行为，远宏学习网将保留追究其法律责任的权利。关键字:2000年9月二级笔试试题FORTRAN
报名：010-
报名：010-
报名：010-
报名：010-
报名：010-
报名：010-
― ― ― ― ― ― ― ― ―
北京远宏学习网()
任何机构不得擅自复制、非法链接转载或镜像本站
咨询热线：010- 电子邮件：
总部：昌平区() 京ICP备号
