第六章 数组.pptVIP

第六章 数组 兰州交通大学 数组数据类型的引入 现实问题的解决需要引入新的数据类型 问题：读入5名学生的fortran程序设计课程成绩，计算平均成绩和最高分，并打印每个同学的成绩与平均成绩的差值。 解决问题 解决问题 数组的概念 特点： 多个数据 每个数据具有相同的数据类型 是一个集体 需要说明包含数据的个数 需要说明包含数据的数据类型 需要说明各个数据在集体中的位置 8.2 数组声明/定义 8.2 数组声明/声明1 8.2 数组声明/声明3 * * 提问：1、5名学生的成绩如何存放？ 2、平均成绩如何计算 3、如何求最高成绩？ 4、如何计算每个同学的成绩与平均成绩的差值？ REAL A,B,C,D,E,AVE,BEST_SCORE, READ*,A,B,C,D,E AVE=(A+B+C+D+E)/5 BEST_SCORE=A IF(BBEST_SCORE) BEST_SCORE=B IF(CBEST_SCORE) BEST_SCORE=C IF(DBEST_SCORE) BEST_SCORE=D IF(EBEST_SCORE) BEST_SCORE=E PRINT*,AVE,BSET_SCORE,A-AVE,B-AVE,C-AVE,D-AVE,E-AVE END 100个学生怎么办？ 循环结构？ REAL::SCORE,SUM=0,AVE,BEST_SCORE DO I=1,100 READ*,SCORE SUM=SUM+ACORE ENDDO AVE=SUM/100 DO I=1,100 READ*,SCORE IF(SCOREBEST_SCORE) BEST_SCORE=SCORE PRINT*,SCORE-AVE ENDDO PRINT*, BEST_SCORE END 问题的根源在哪里？ 6.2 数组的定义 一般格式 DIMENSION 数组名(下标下界:下标上界，…),… DIMENSION sc(1:10),ar(2:5,-1:2,4) INTEGER day,count DIMENSION day(12), count(-3:3) DIMENSION country(15),L(5) CHARACTER*10 country LOGICAL L DIMENSION语句中不能出现::,不能给数组赋初值。 DIMENSION语句是非执行语句，必须放在程序单位的可执行语句之前。 声明1 声明2 声明3 说明 第八章 数组及经用 2.2 数组的定义 使用类型声明语句进行数组声明。 一般格式： 类型符 数组名 (下标下界:下标上界，…),… real a(1:10),n(10:15),w(1:2,1:3) integer b(-5:0),m(-1:1,0:2,0:3) character*8 name(1:30),c(5,4)*10 可以出现::,可给数组赋初值。 声明1 声明2 声明3 说明 第八章 数组及经用 2.2 数组的定义 使用类型声明语句和DIMENSION属性进行数组声明。一般格式： 类型符,dimension(下标下界:下标上界,…)::数组名[,…] 例： integer,dimension(10):: a,n=20,w(2,3) 必须出现::,可给数组赋初值。 声明1 声明2 声明3 说明 第八章 数组及经用 6.3 给数组赋初值 第八章 数组及经用 使用数组赋值符赋初值 一般格式为： 数组名=（/取值列表/） 其中取值列表可以是类型相同的常数、变量、函数、表达式或隐含DO循环，它们之间用逗号隔开。 例： integer a(5),b(5) a=(/1,3,5,7,9/) b=(/（i，i=2,10,2）/) 6.3 给数组赋初值 第八章 数组及经用 用DATA语句给数组赋初值 一般格式为： data 数组名/常量表/，数组名/常量表/，… 例： integer a(5) ，b(4) ， c(1:10) data a/1,2,3,4,5/， b/4*5/， data(c(i),i=1,5)/1,3,5,7,9/,(a(j),j=6,10)/2,4,6,8,10/ data语句是非执行语句，可以出现在程序中说明语句之后，end语句之前的任意位置 6.4 对数组的操作 第八章 数组及经用 对数组