原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
数组详细介绍;7.1 数组的概念;7.2 数组的说明与引用;例：IMPLICIT INTEGER(A-C), REAL(I,J)
DIMENSION B(3:15), IX(10);格式：
类型符, DIMENSION(维说明符[,维说明符]…) :: 数组名[,数组名]…;例如：
REAL(8),DIMENSION(0:10) :: A,B,C
INTEGER,DIMENSION(4,5) :: D,E
三个双精度型数组A,B,C，各含有11个元素。两个整型数组D,E，各含有20个元素。;数组名 (下标 [ ,下标 ]…);7.3 数组元素的存储结构; 7.4 数组的输入输出;数组元素按照在内存中的排列顺序一次全部输入输出。;三、用隐DO循环对数组元素进行输入输出;隐DO循环可以多层嵌套。
INTEGER W(3, 3)
READ(*,*)W
WRITE(*, 10)(( W( I, J ), J=1, 3 ), I=1, 3 )
10 FORMAT(1X, 3I3) ; 7.5 给数组赋初值 ; DATA语句可以放在END语句之前任何位置。在程序编译阶段赋初值。;例：
INTEGER PP(-1:8)
PP=(/3, 0, (i, i=1, 9, 2), 45, 34, 2/)
WRITE(*,10) pp
10 FORMAT(1X,10I3)
END
输出结果为：
??3??0??1??3??5??7??9?45?34??2;implicit none
integer :: a(10)
integer:: m, n, k, temp
do k =1, 10
read(*,*) a(k)
end do
m=1; n=1
do k=2, 10
if (a(m)a(k)) m=k
if (a(n)a(k)) n=k
end do
temp=a(1); a(1)=a(m); a(m)=temp
temp=a(10); a(10)=a(n); a(n)=temp
write(*,*) (a(k), k=1, 10)
end;PROGRAM LETTER
CHARACTER CH
INTEGER::LEN (5)
INTEGER COUNT, J
DO J=1,5
LEN(J)=0
END DO
DO COUNT=1, 100
READ(*,*)CH
IF (CH==A.OR.CH==a) THEN
LEN(1)=LEN(1)+1
ELSE IF(CH==E.OR.CH==e) THEN
LEN(2)=LEN(2)+1
ELSE IF(CH==I.OR.CH==i) THEN
LEN(3)=LEN(3)+1
ELSE IF(CH==O.OR.CH==o) THEN
LEN(4)=LEN(4)+1
ELSE IF(CH==U.OR.CH==u) THEN
LEN(5)=LEN(5)+1
END IF
END DO
……;Parameter (n=10)
Integer P(n), i, j, num, x
Logical flag
num=1 !统计不同数据的个数
do i =1, n
read(*,*) x
flag=.true.
do j=1, num-1
if (p(j)==x) then
flag=.false. ; exit
end if
end do
if (flag) then
p(num)=x
num=num+1
end if
end do
write(*,*)(p(i), i=1, num-1)
end;! 简单交换排序
integer(4) , parameter::n=10
integer(4) :: x(n)
integer:: i, j, t
do i =1, n
read(*,*) x(i)
end do
do i=1, n-1
do j=i+1, n
if ( x(i)x(j)) then
t=x(i)； x(i)=x(j)； x(j)=t
end if
end do
end do
write(*,*) (x(i), i=1, n)
end;! 选择排序
PARAMETER(N=10)
INTEGER, DIMENSION(N)::X
INTEGE
文档评论（0）