2-1基本起步2-2编程修改程序2.编写程序已知园半径分别为1、3、12时，对应的园周长为多少？示例4CMAINPROGEAM！注释下面为主程序PROGRAMEX2PRINT*,“R=”,1.0,“C=”,C(1.0)！显示半径周长PRINT*,"R=",3.0,"C=",C(3.0)PRINT*,“R=”,12.0,“C=”,C(12.0)！未解释CENDCSUBPROGRAM！下面为子程序FUNCTIONC(R)！C(R)是一个函数名字PI=3.1415926C=2*PI*RRETURNEND！编写了函数的内容2-4输入输出语句PRINT语句是Fortran中较为常用的一种输出语句，用它来完成表控输出的语法格式如下所示。PRINT*[,输出项,……]在PRINT语句中不能指定输出设备，只能向系统隐含指定的设备输出数据（隐含指定的输出设备一般是指计算机屏幕）；语句中的星号“*”表示“表控格式输出”，即按照计算机默认的格式进行数据的输出；输出项可以有多个，每个输出项之间用逗号“,”分隔；当语句中没有输出项时，命令将输出一个空白行。使用WRITE语句来完成表控输出的语法格式如下所示。WRITE(*,*)[输出项,……]WRITE语句中第一个星号“*”表示在系统隐含指定的设备上输出；WRITE语句中的第二个星号“*”表示“表控格式输出”；输出项可以有多个，每个输出项之间用逗号“,”分隔；当语句中没有输出项时，命令将输出一个空白行。输入语句使用READ语句来完成表控输入的语法形式如下所示。READ*[,输入项,……]在这种形式中，不能指定输入设备，只能由系统隐含指定的设备上输入（系统隐含指定的设备一般是指键盘）；语句中的星号“*”表示“表控输入”，即按照数据合法的格式进行输入；输入项可以有多个，每个输出项之间用逗号“,”分隔；当语句中没有输入项时，系统将挂起程序的运行直到用户键入回车符。2-5算法广义的说，为解决一个问题而采取的方法和步骤，就称为“算法”。举例1.求5！步骤1：先求1*2，得到2步骤2：将步骤1得到的乘积2再乘以3，得6步骤3：将6再乘以4，得24.步骤4：将24再乘以5，得120.PROGRAMEXAM!定义一个程序名INTEGERT,I！定义两个变量T=1！给两个变量赋初值I=2DO10,WHILE(I.LT.6)！循环当I<6时T=T*I！T的值变化I=I+1！I的值变化10CONTINUE！继续进行循环直到条件不成立时跳出PRINT*,T！打印TEND！结束2-5算法举例2.用条件语句编程，有5个学生，要求将他们之中成绩在80分以上的学号和成绩输出。PROGRAMEXAM！定义程序名称INTEGERNUM,GRADE！定义两个变量类型I=0！给I赋初值10READ*,NUM,GRADE！从程序外读入两个变量IF(GRADE.GT.80)THEN！判断如果分数大于80PRINT*,NUM,GRADE！那么打印数字分值ENDIF！结束判断I=I+1！I的值增1IF(I.LT.6)GOTO10！判断当I<6时回到程序标号10处执行不满足时跳出END！结束程序举例3.判定2000-2500年中哪一年是闰年。闰年的条件是：1、能被4整除但不能被100整除的年份是闰年，如1996、20042、能被100整除又能被400整除的年份是闰年，如1600、2000.PROGRAMEX1INTEGERYEARREAD*,YEARIF(MOD(YEAR,4).EQ.0)THENIF(MOD(YEAR,100).NE.0)THENPRINT*,YEAR,"是闰年"ELSEIF(MOD(YEAR,4).EQ.0)THENPRINT*,YEAR,"是闰年"ELSEPRINT*,YEAR,"是非闰年"ENDIFENDIFELSEPRINT*,YEAR,“是非闰年"ENDIFEND3-1数组数组是Fortran语言中功能最为强大、运用最为灵活的一种数据结构。数组（ARRAY）在科学和工程计算中通常用来表示矩阵和向量。同一般的变量声明相比，数组能够同时保存多个数据。它是一种使用大规模数据的方法。配合Fortran语言中的数组操作，可用于对大量不同的数据进行处理。在存储结构上，数组占用一片连续的存储单元。程序中通过数组索引来对数组元素、片断进行操作。3-1数组第一种数组定义形式的语法格式如下所示。类型说明[::]数组名([下标下界：]下标上界[，…])[，…]该定义形式通过类型说明来显式声明数组