[工学]FORTRAN编程演示.pptVIP

结构程序设计与应用 教材：《程序结构力学》袁驷主编 2- 1基本起步 主程序（program）是F90中最基本的程序单 元，一段完整的F90程序代码必须有一个子程序。 例如：一段完整的F90程序代码 PROGRAM EX1 ！感叹号后是注释 PRINT（*，*）“hello world!你好” ！第1个*表示屏幕输出 end program EX1 示范举例1。 2- 2 编程修改程序 当程序编制错误的时候，应该检查，修改，示范举例2。 2- 3 程序编写 1. 编程计算求解三个数的平均数。 读懂程序内容 。示例3。 C CALCULATE THE AVERAGE OF THRE UUMBER PROGRAM AVER !定义程序名为AVER X=1 Y=2 Z=3 AVER=(x+y+z)/3.0 !求出三个数的平均值给AVER PRINT *,“the three numbers is”,X,Y,Z !打印这三个值 PRINT *,“average=”,AVER !打印 这个结果 END !结束程序 2.编写程序已知园半径分别为1、3、12时，对应的园周长为多少？ 示例4 C MAIN PROGEAM ！注释下面为主程序 PROGRAM EX2 PRINT *,“R=”,1.0,“C=”,C(1.0) ！显示半径周长 PRINT *,R=,3.0,C=,C(3.0) PRINT *,“R=”,12.0,“C=”,C(12.0) ！未解释C END C SUBPROGRAM ！下面为子程序 FUNCTION C(R) ！C(R) 是一个函数名字 PI=3.1415926 C=2*PI*R RETURN END ！编写了函数的内容 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. PROGRAM EXAM !定义一个程序名 INTEGER T,I ！定义两个变量 T=1 ！给两个变量赋初值 I=2 DO 10,WHILE(I.LT.6) ！循环 当I6时 T=T*I ！