第5章 流程控制与逻辑运算.pptVIP

ex0502 program ex0502 implicit none real(kind=4) :: height ! 记录身高 real(kind=4) :: weight ! 记录体重 write(*,*) height: read(*,*) height ! 读入身高 write(*,*) weight: read(*,*) weight ! 读入体重 if ( weight height-100 ) then ! 如果体重大于身高减去100, 会执行下面的程序 write(*,*) Too fat! else ! 如果体重不大于身高减去100, 会执行下面的程序 write(*,*) Under control. end if stop end Fortran程序的调试 编写包含分支和循环结构的程序比编写简单的顺序结构程序更容易犯错误。 如果只是发现输出值有错误，如何定位排错？ 最好方法：符号调试器，但是需要查看系统手册以便如何使用。 一般方法：在程序中插入write语句，在一些关键位置点输出变量的值，以观察程序中间结果与预期结果的差异。 如果是IF块的问题：重点检查逻辑表达式。 另外一个常见错误：实数型变量的等值测试。 * 作业 P98 1、2、3、4