fortran語言簡介-展示頁
2025-07-24 18:41本頁面
【正文】 ROGRAM MAIN IMPLICIT NONE REAL HIEGHT REAL WEIGHT READ(*,*) HEIGHT READ(*,*) WEIGHT IF (WEIGHT HEIGHT100) THEN WRITE(*,*) “TOO FAT!” ELSE WRITE(*,*) “UNDER CONTROL” END IF STOP END 35 FLOW CONTROL3 ? 邏輯運算式 = = 相等 / = 不相等 大於 = 大於等於 小於 = 小於等於 .AND. 如果兩邊式子都成立，整個條件就成立 .OR. 兩邊的式子只要有一個成立，整個條件就成立 .NOT. 如果後面的式子不成立，整個式子就算成立 .EQV. 兩邊式子的邏輯運算結(jié)果相同時，整個式子就成立 .NEQV. 兩邊式子的邏輯運算結(jié)果不同時，整個式子就成立 36 FLOW CONTROL4 ? FORTRAN 77的邏輯運算式 .EQ. 等於 .NE. 不等於 .GT. 大於 .GE. 大於等於 .LT. 小於 .LE. 小於等於 37 FLOW CONTROL5 ? DO迴圈語法： DO 起始值 , 終止值 , 累加值 執(zhí)行程式碼 END DO ? 例： DO I=10, 5, 1 WRITE(*,*) I END DO 38 FLOW CONTROL6 ? 結(jié)果： 10 9 8 7 6 5 39 FLOW CONTROL7 ? Do…while 語法： DO WHILE (邏輯運算 ) 程式碼 END DO 40 陣列 1 ? FORTRAN 90 陣列的宣告 integer a(10) !宣告 a這個陣列有 10個元素 integer , dimension(10) :: a ! 同上，另一種作法 ? FORTRAN 77 陣列的宣告 integer a dimension a(10) ? 注意 !!index值從 1開始算起 !! 41 陣列 2 ? 使用陣列 – a(1)=18 – INTEGER A(3) DATA A /36, 24, 36/ – 在 FORTRAN 90中，還可以省略 DATA這個敘述 INTEGER :: A(3) = (/36, 26, 36/) ◎ 括號跟除號之間不能有空格，並且冒號不能省略。 11 FORTRAN 基本事項 5 ! Free Format program main write(*,*) “hello” ! 列印出 hello這個字 write(*,*) amp。1 FORT
教學課件相關推薦
鄂ICP備17016276號-1