例如，在邊長(cháng)為B的正方形中挖一個(gè)半徑為R的圓，計算剩余的面積；若B<2R，則給出相關(guān)信息。該問(wèn)題的FORTRAN程序可編寫(xiě)如下。

　　CComputationofarea.READ*，B，RIF（B.LT.2*R）THENWRITE（*，10）

　　10FORMAT（‘Errormessage：Blessthan2*R’）

　　ELSEWRITE（*，，（“AREA=”，F10.2））

　　$B*B-3.14159*R*RENDIFEND本例中，第1行為注釋行，第5行為帶標號的語(yǔ)句，第7~8行為連續行，符號$為續行標志。

　　（三）常量與變量1.常量指程序中其值固定不變的一些量，包括以下6種類(lèi)型。

　�。�1）整形常量，也稱(chēng)整數。一個(gè)整數可采用正、負號和數字字符表示，正號可以省略……

　�。�2）實(shí)型常量，也稱(chēng)實(shí)數�？梢杂眯�數形式或指數形式表示。用指數形式表示的實(shí)數如11.3E5，+11.3E+5，1.E-12，-.23E12等。

　�。�3）雙精度實(shí)型常量，或稱(chēng)雙精度實(shí)數。雙精度實(shí)數也是實(shí)數。但在一般的微型計算機中，實(shí)數的有效位數為7位，雙精度實(shí)數的有效位數可以達到15~17位。雙精度實(shí)數的表示方法，除在指數形式的表達中用字符D代替E以外，其余和實(shí)數相同。

　�。�4）復型常量，簡(jiǎn)稱(chēng)復數。在FORTRAN中，用一對圓括弧括起來(lái)的兩個(gè)實(shí)數表示。如（12.0，-6.E2）表示復數12.0—600.0i.（5）邏輯型常量。FORTRAN中的邏輯型常量有兩個(gè)值：.TRUE.與。FALSE.。

　�。�6）字符型常量，也稱(chēng)為字符串。計算機系統使用的若干個(gè)字符，用一對單引號括起來(lái)后，就作為字符串。

　　2.變量指在程序運行期間可以改變的量。

　�。�1）變量的類(lèi)型與常量相對應，分為整型變量、實(shí)型變量、雙精度實(shí)型變量、復型變量、邏輯型變量與字符串變量。

　�。�2）變量名按一定的規則命名。在FORTRAN中，變量名采用1至6個(gè)字符（數字或字母），其中第一個(gè)字符必須是字母。FORTRAN77規定，變量名書(shū)寫(xiě)時(shí)不區別字母的大寫(xiě)與小寫(xiě)，例如ABc與aBC都指同一個(gè)變量。（3）變量類(lèi)型的說(shuō)明方法。

　　1）I-N隱含規則。在程序單位中沒(méi)有其他說(shuō)明時(shí)，以字母I，J，K，L，M，N中的任一個(gè)字母打頭命名的變量都是整型變量。

　　2）用類(lèi)型說(shuō)明語(yǔ)句規定變量類(lèi)型。例如：

　　INTEGERA，COUNTREALICOUNTDOUBLEPRECISIONXINGCOMPLEXDUPLOGICALJUGCHARACTER頭10FILENM分別表示變量A，COUNT為整型，ICOUNT為實(shí)型，XING為雙精度實(shí)型，DUP為復制，JUG為邏輯型，FILENM為字符型變量，其長(cháng)度為10個(gè)字符。

　　3）用隱含說(shuō)明語(yǔ)句IMPLICIT語(yǔ)句，可以將程序單位中以某一字母開(kāi)頭的所有變量指定為所需類(lèi)型。例如：

　　IMPLICITINTEGER（A，C），REAL（I-K）

　　指定了以A與C字母開(kāi)頭的所有變量都是整型變量，以字母I至K開(kāi)頭的所有變量為實(shí)型變量。

　　類(lèi)型說(shuō)明語(yǔ)句和隱含說(shuō)明語(yǔ)句只在本程序單位中有效；它們必須放在程序單位所有可執行語(yǔ)句的前面，而IMPLICIT語(yǔ)句又必須在所有的類(lèi)型說(shuō)明語(yǔ)句的前面。確定變量類(lèi)型的三種方法中，類(lèi)型說(shuō)明語(yǔ)句的優(yōu)先級最高，I-N規則的優(yōu)先級最低。