fortran write语言中的string(i:i)=char(ichar(string(i:i))-key)这句是什么意思啊？

来源：蜘蛛抓取(WebSpider) 时间：2012-02-26 03:03 标签： fortran write
CHARACTER(4)::A,B,C*5
A=’YOUR’;B=’BOYS’;C=’GIRLS’
WRITE(*,’(A4,A5,A6,A1)’)A,B,C,’!’
A、YOURBOYSGIRLS！
C、YOURBOYSGIRLS!B、YOURBOYSGIRLS!D、YOURBOYSGIRLS!
26、有如下循环入口语句：
DOI=15,1,3则循环次数为。
A、0B、5C、无限D、不一定
27、执行read‘(I3)’,x,y,z语句时，以下说法中错误的是①可在一行输入完3个整数②可分三行输入3个整数
③必须分三行完成输入④可分三行输入任意个数整数
⑤必须一行输入完3个整数
A、①⑤B、③④C、①④D、④⑤
28、PRINT*,((’a’,J=1,2),I,I=1,2）执行该语句后，输出的结果是。
A、aa1aa2B、’a’‘a’1‘a’‘a’2
C、aaaaD、1aa2aa
29、下列有关数组的说法正确的是。
A、任何形式的数组定义语句中都可以出现变量
B、任何形式的数组定义语句中都不可以出现变量
C、常界数组可在任何程序单元中使用
D、数组元素的下标不能使用表达式
30、设有下列变量和指针的定义：
INTEGER,TARGET::i,j
INTEGER,POINTER::p1,p2,p3
p1=&i;p2=&j能够正确实现两个变量交换的语句是。
A、p3=&p1;p1=&p2;p2=&p3B、p3=p1;p1=p2;p2=p3
C、p1=&p2;p2=&p3;p3=&p1D、p1=p2;p2=p3;p3=p1
31、INTEGER,DIMENSION(2,2)::A
A=RESHAPE((/3,4,5,6/),(/2,2/))
数组元素A（2，1）的值为。
A、3B、4C、5D、6
32、FORTRAN90中一个INTEGER型数据的KIND值是1，那么该数据值的范围
第6页共12页
C、0~65535D、-128~127
33、有关FORTRAN90各程序单元的说法错误的是。
A、各程序单元都能实现递归调用
B、主程序单元是独立的程序单元，应独立编写
C、外部子程序单元是独立的程序单元，源程序中包含的个数任意
D、除模块中的内部过程外，模块不能包含可执行语句
34、REAL，DIMENSION(3，4)：：A
READ*,(A(K,1:4),K=1,3)
执行时从键盘上输入的第二个数是数组A的第个元素。
A、2B、4C、5D、6
35、Fortran90中，综合表达式中各成员的优先级从高到低是。
A、最内层括号、函数、逻辑运算、关系运算
B、函数、括号、乘号、逻辑运算
C、&=、.not.、mod、+
D、逻辑运算、关系运算、算术运算
36、FORTRAN90自由格式规定，多条语句写在一行时用作语句分隔符的是。
A、&B、：C、；D、，
37、下列四种程序结构块内，使用数组作为判别依据的是A、DO循环结构B、WHERE结构
C、CASE选择结构D、块IF选择判定结构
38、若过程的某哑元是过程名，调用过程时其对应的实元需要特别说明。以下关于实元的说明语句错误的是。
A、REAL,EXTERNAL::fB、REAL,INTRINSIC::SIN
C、写该实元的接口块D、EXTERNAL::f
39、以下关于DOWHILE(expression)……ENDDO循环结构的叙述中，正确的是。
A、expression只能含有关系运算符
B、expression只能取逻辑值“真”或“假”
C、expression只能含有逻辑运算符
D、expression不能包含算术或字符运算符
40、以下带有控制信息表的读写语句中，错误的是。
A、read(fmt=*,unit=2,iostat=ios)a,b,j,k
B、read(unit=2,fmt=’(2A6,2I4)’,rec=number)a,b,j,k
C、write(unit=*,fmt=’(2A6,2I4)’,rec=number)a,b,j,k
D、write(iostat=ios,unit=3,rec=number)a,b,c,i,j,k
第7页共12页
二、填空题（请将答案按空填写在答题纸上。每空占一行，每行写一个答案25×2=50分）
1、以下程序执行后，输出的第一行是，第二行是RECURSIVEFUNCTIONF(n,x)RESULT(r)
IMPLICITNONE
INTEGER::n
IF(n==1)THEN
r=(1+x)*F(n-1,x)
ENDFUNCTONF
PROGRAMMAIN
IMPLICITNONE
PRINT‘(F7.3)’,F(2,0.8),F(3,0.5)
ENDPROGRAMMAIN
2、以下程序执行后，输出的第一行是PROGRAMpointer
IMPLICITNONE
INTEGER,POINTER::a,b,c
INTEGER,TARGET::x,y,z
x=33;y=55;z=x+y
a=&x;b=&y;c=&z
c=&a;a=&b;b=&c;PRINT'(3I4)',a,b,c
a=&b;b=&c;c=&a;PRINT'(3I4)',a,b,c
ENDPROGRAMpointer
3、下列程序执行后，输出的第一行是，第二行是，第三行是。
PROGRAMABC3692
INTEGER,DIMENSION(8)::ARR
INTEGER::I,J,SUMA
ARR=(/((3*J,J=1,3),2*I,I=1,2)/)
SUMA=SUM(ARR,MASK=ARR&3)
第8页共12页369434
PRINT‘(4I3)’,ARR
PRINT‘(I3)’,SUMA
ENDPROGRAMABC
4、下列程序执行后，输出的S值是。
INTEGER::K
WRITE(*,*)S
5、以下程序执行后，输出的内容是自定义运算符.exchange.的功能是：PROGRAMTEST
INTERFACEOPERATOR(.exchange.)
FUNCTIONchange(x)RESULT(y)
INTEGER::i,constant
CHARACTER(LEN=45),INTENT(in)::xCHARACTER(LEN=45)::y
ENDFUNCTIONchange
ENDINTERFACE
CHARACTER(LEN=40)::x,y
x=‘2008,bEIJINGoLYMPICgAMES,success!’y=.exchange.(x)
ENDPROGRAMTEST
!--------------------------------------
FUNCTIONchange(x)RESULT(y)
INTEGER::i,constant=32!同一字母大小写的ASCII码值之差等于32CHARACTER(LEN=*)::x,y
DOi=1,LEN(x)
IF(x(i:i)&=‘A’.AND.x(i:i)&=‘Z’)THEN
y(i:i)=CHAR(ICHAR(x(i:i))+constant)ELSEIF(x(i:i)&=‘a’.AND.x(i:i)&=‘z’)THEN
第9页共12页一个fortran程序_百度知道fortran语言里for k=1，n是什么意思_百度知道fortran 语言中GE,GT,LE,
GE是大于等于号（>=）,GT是大于号(>),LE是小于等于号(
为您推荐：
其他类似问题
扫描下载二维码fortran语言语法_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
fortran语言语法
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩15页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢

我要回帖

更多关于 fortran write 的文章

 

随机推荐