例如,在邊長為B的正方形中挖一個(gè)半徑為R的圓,計(jì)算剩余的面積;若B<2R, 則給出相關(guān)信息。該問題的FORTRAN程序可編寫如下。
    C Computation of area.
    READ*, B, R
    IF (B. LT.2*R) THEN
    WRITE (*, 10)
    10 FORMAT (’Error message: B less than 2*R’)
    ELSE
    WRITE (*,，(”AREA =”, F10.2))
    $ B*B-3.14159*R*R
    ENDIF
    END
    本例中,第1行為注釋行,第5行為帶標(biāo)號(hào)的語句,第7~8行為連續(xù)行,符號(hào)$為續(xù)行標(biāo)志。
    (三)常量與變量
    1.常量指程序中其值固定不變的一些量,包括以下6種類型。
    (1)整形常量,也稱整數(shù)。一個(gè)整數(shù)可采用正、負(fù)號(hào)和數(shù)字字符表示,正號(hào)可以省略.。
    (2)實(shí)型常量,也稱實(shí)數(shù)?？梢杂眯?shù)形式或指數(shù)形式表示。用指數(shù)形式表示的實(shí)數(shù)如11.3E5,+11. 3E+5, 1. E-12,-.23E12等。
    (3)雙精度實(shí)型常量,或稱雙精度實(shí)數(shù)。雙精度實(shí)數(shù)也是實(shí)數(shù)。但在一般的微型計(jì)算 機(jī)中,實(shí)數(shù)的有效位數(shù)為7位,雙精度實(shí)數(shù)的有效位數(shù)可以達(dá)到15~17位。雙精度實(shí)數(shù) 的表示方法,除在指數(shù)形式的表達(dá)中用字符D代替E以外,其余和實(shí)數(shù)相同。
    (4)復(fù)型常量,簡稱復(fù)數(shù)。在FORTRAN中,用一對(duì)圓括弧括起來的兩個(gè)實(shí)數(shù)表示。 如(12 . 0 ,-6.E2 )表示復(fù)數(shù)12.0—600.0i。
    (5)邏輯型常量。FORTRAN中的邏輯型常量有兩個(gè)值: . TRUE.與. FALSE.。
    (6)字符型常量,也稱為字符串。計(jì)算機(jī)系統(tǒng)使用的若干個(gè)字符,用一對(duì)單引號(hào)括起 來后,就作為字符串。
    2.變量指在程序運(yùn)行期間可以改變的量。
    (1)變量的類型與常量相對(duì)應(yīng),分為整型變量、實(shí)型變量、雙精度實(shí)型變量、復(fù)型變 量、邏輯型變量與字符串變量。
    (2)變量名按一定的規(guī)則命名。在FORTRAN中,變量名采用1至6個(gè)字符(數(shù)字 或字母) ,其中第一個(gè)字符必須是字母。FORTRAN77規(guī)定,變量名書寫時(shí)不區(qū)別字母的 大寫與小寫,例如ABc與aBC都指同一個(gè)變量。
    (3)變量類型的說明方法。
    1) I-N隱含規(guī)則。在程序單位中沒有其他說明時(shí),以字母I, J, K, L, M, N中的 任一個(gè)字母打頭命名的變量都是整型變量。
    2)用類型說明語句規(guī)定變量類型。例如:
    INTEGER A, COUNT
    REAL ICOUNT
    DOUBLE PRECISION XING
    COMPLEX DUP
    LOGICAL JUG
    CHARACTER頭10 FILENM
    分別表示變量A, COUNT為整型, ICOUNT為實(shí)型, XING為雙精度實(shí)型, DUP為復(fù) 制, JUG為邏輯型, FILENM為字符型變量,其長度為10個(gè)字符。
    3)用隱含說明語句IMPLICIT語句,可以將程序單位中以某一字母開頭的所有變量 指定為所需類型。例如:
    IMPLICIT INTEGER (A, C), REAL (I-K)
    指定了以A與C字母開頭的所有變量都是整型變量,以字母I至K開頭的所有變量為實(shí) 型變量。
    類型說明語句和隱含說明語句只在本程序單位中有效;它們必須放在程序單位所有可 執(zhí)行語句的前面,而IMPLICIT語句又必須在所有的類型說明語句的前面。確定變量類 型的三種方法中,類型說明語句的優(yōu)先級(jí), I-N規(guī)則的優(yōu)先級(jí)最低。