- 1、本文档共20页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
FORTRAN90第7章字符数据处理
§7 字符数据处理;一个字符在内存中占一个字节。;§7.1.1 字符型常量;§7.1.2 字符型变量;§7.1.3 字符型变量的赋值;§7.1.4 字符型变量的输入与输出;§7.1.5 字符型变量作虚参;§7.2.1 字符表达式;§7.2.1 字符表达式;§7.2.2 字符型数据的比较;统计字符串长度:LEN(S);§7.2.3 处理字符串的系统函数;字符串中连续之部分称为该字符串的子字符串。例: ‘ORT’, ‘RAN P’, ‘rog’, ‘Program’都是字符串‘FORTRAN Program‘的子字符串。;§7.3.2 字符子串的引用;Character(80) A; Integer m,n
Real ::PI=3DX,X
DX = pi*0.05;X=0;m = int(pi/dx+0.5*dx)+1
Do L=1,M
write(a,(1X,F4.2)) X
n = int(25*sin(x))+40
a(40:40) = :;a(n:n) = S
n = int(25*cos(x))+40;a(n:n) = c
print (A), a;x = x+dx
Enddo;End;Character(LEN=80) A,c*1
Integer s,e
read (A), A
e = LEN(A); s = 1
do while(s = e)
c = A(S:S); A(S:S) = A(E:E); A(E:E)=c
e = e-1; s = s+1
enddo
print (1X,A), a
End;;例:打印下列图形,要求中间一列在30列输出;例:输入一段文字,找出包含多少个空格,然后将空格删除。;例:输入十个姓名,要求按字母顺序输出
文档评论(0)