Fortran90 课件 04.pptVIP

分班思考题 200人，按分数排序，分为4个班 特定条件： 如何保证相对公平？ 如何定义每个因素？ 如何计算每个班整体实力？ 如何考虑其它因素？ 班主任？ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 一个猜数游戏。用随机数产生器产生1－10之间的一个整数，你猜它，如果猜得太大或太小都会提示，猜对了结束。 循环命名 隐DO循环 ？ Numeric Arrays: Part 1 Numeric Array : Part 1 有10个实数，将它们按大小排列。 有10个实数，将它们按大小排列。 * * * * * * * * * Fortran 90 语言初步 南开大学数学学院 向 兵 2008-09-24 变量的声明: part 1 变量名称: a-Z , _ , 0-9 ( 首字母为英文） 变量长度：F77(1-6) F90( 1-31) Fortran内定变量(IMPLICIT)： 变量不一定需要经过声明才能用，Fortran可以根据首字母判断变量类型： 变量首字母为：i/j/k/l/m/n 整型变量 （其他为实型） IMPLICIT NONE的重要作用 变量的声明: part 2 使用parameter参数声明变量为常数： 使用equivalence参数共用内存，增加计算速度 Integer a,b equivalence (a,b) 使用implicit参数 （P21) 变量的赋值 pi = 3.1415926 Data语句 Constants ( Parameters) : Page 55 Unchanged throughout the program Not use meaningless names: PI The value of the constant can be adjusted throughout the program by changing 1 line. Controlling Execution: The Execution Sequence Blocks and Executable Constructs IF Construct and IF Statement The CASE Construct The DO Construct Branching Obsolescent Control Statement Numeric Array : Part one IF-Else Statement The Arithmetic IF Statement The IF-ENDIF Statement The ELSE Statement The ELSE-IF Statement Nesting IF-ENDIF Structures IF语句 IF语句与GOTO语句合用 Logical Expression LOGICAL Type ? .True. or .False. Logical expressions : .Not. .AND. .OR. .EQV. .NEQV. Relational Operators Logical Operators Logical Operators 浮點數邏輯運算 字符的逻辑运算 字符按照ASCII码顺序比较 ‘a’ ‘b’ ? ascii(a)=97, ascii(b)=98 ‘A’ ‘a’ ? ascii(A)=65 字串比较时，按照字母顺序一一比较 ‘abcd’ ‘axyz’ SELECT CASE 语句 Case default ? 非必要 Value: ? 必须为常数 (1:5) ? 1= ? = 5 (1: ) ? 1= ? ( : 5) ? ? = 5 ( 1, 5 ) ? ? =1 or 5 可取代IF, 但不能使用浮点数和复数 The CONTINUE and GOTO statements 由於 GOTO 的使用不當將造成程式結構混亂，且其閱讀性差，從 Fortran 77 開始，已經不建議使用 GOTO ，而利用 DO 指令。 利用GOTO強制程式回到特定指令行，形成 LOOP loop body 需加入迴圈終止判斷 Indexed Looping GOTO : part 1 GOTO : part 2 PAUSE. CONTINUE.STOP PAUSE 程序执行至此，暂停，暗下CR继续 CONTINUE 方便程序阅读，同GOTO配合 STOP 结束程序执行 DO statements (Indexed Looping)