2.1FORTRAN語言發(fā)展概述

FORTRAN是英文“FORmulaTRANslator”的縮寫,譯為“公式翻譯器”,它是世界上最早出現(xiàn)的計算機高級程序設計語言,廣泛應用于科學和工程計算領域。FORTRAN語言以其特有的功能在數(shù)值、科學和工程計算領域發(fā)揮著重要作用。FORTRAN語言對程序設計語言的研究和發(fā)展有較大的影響。隨著計算機科學技術的飛速發(fā)展,FORTRAN語言也不斷得到完善和充實,從傳統(tǒng)FORTRAN,到結構化FORTRAN,再到具有現(xiàn)代特征的FORTRAN90，F(xiàn)ORTRAN95以及FORTRAN2003。

語言地位

發(fā)展歷程

F90影響2.1FORTRAN語言發(fā)展概述第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第1頁，共43頁。2.1FORTRAN語言發(fā)展概述/發(fā)展歷程1951年，美國IBM公司著手研究開發(fā)FORTRAN語言，并于1954年對外發(fā)布，稱FORTRANⅠ。1958年，擴充和完善FORTRANⅠ,引入函數(shù)概念，投入商業(yè)運行，推出FORTRANⅡ。1960年，推出FORTRANⅢ，但沒有在計算機上實現(xiàn)。1962年，推出了FORTRANⅣ。沒有充分考慮兼容性。1966年，推出FORTRAN66，美國標準，后被ISO采用。1978年，推出FORTRAN77，兼容性好，結構化特征。1991年，推出FORTRAN90，現(xiàn)代語言，可視化編程。1995年，微軟公司在DeveloperStudio集成開發(fā)平臺上推出。引入可視化編程技術。1997年，微軟和數(shù)據(jù)設備公司合作推出,功能強大。同年發(fā)布FORTRAN95標準，提高并行計算能力。1998年，康柏公司與數(shù)據(jù)設備公司合并，推出，它的最高版本是。此后由Intel公司開發(fā)。2004年，F(xiàn)ORTRAN2003標準出現(xiàn)，近乎徹底地解決了Fortran語言現(xiàn)代化的問題。2.1FORTRAN語言發(fā)展概述

語言地位

發(fā)展歷程

F90影響第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第2頁，共43頁。2.1FORTRAN語言發(fā)展概述/F90影響FORTRAN90的推出，是FORTRAN語言發(fā)展史上的一個里程碑，它挽救了FORTRAN語言面臨淘汰的局面，使傳統(tǒng)的FORTRAN語言煥發(fā)了青春，以其強大的功能和嚴謹?shù)娘L格受到人們的歡迎和認可，并展現(xiàn)出美好的應用前景。西方發(fā)達國家已開始重新認識FORTRAN語言，對FORTRAN語言的研究、開發(fā)和應用給予了高度重視，F(xiàn)ORTRAN語言正在發(fā)揮越來越大的作用。

2.1FORTRAN語言發(fā)展概述

語言地位

發(fā)展歷程

F90影響第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第3頁，共43頁。2.2字符集

FORTRAN90源程序是一個符合FORTRAN90詞法、語法和語義規(guī)定的特殊文本,它由FORTRAN90字符集規(guī)定的字符按照詞法、語法和語義規(guī)定進行描述。

概述

字符集

說明2.2字符集第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第4頁，共43頁。2.2字符集/字符集

FORTRAN90字符集由下面四部分字符組成：1．英文字母ABCDEFGHIJKLMNOPQRSTUVWXYZ。abcdefghIjklmnopqrstuvwxyz。2．阿拉伯數(shù)字：0123456789。3．下劃線：“_”。

4．特殊字符空格<Tab>+-*/(),.':!"%&;<>?$。,包括十六進制ASCII碼為09h(Tab符)、20h至7Eh之間的字符和某些特殊字符集(如：IBM字符集)中字符。2.2字符集

概述

字符集

說明第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第5頁，共43頁。第二講Fortran語言程序設計基礎第二講Fortran語言程序設計基礎可執(zhí)行語句：表示程序要完成某個操作。由MODULE語句開始。允許一行書寫多條語句,用符號“；第二講Fortran語言程序設計基礎8數(shù)據(jù)類型/數(shù)據(jù)類型/示例NAMELIST,FORMAT和ENTRY語句變元關鍵字是命名特定啞元名稱的合法單詞。WRITE(*,*)'a+b=',c”$abcd“$”作為第一字符長安大學地學信息技術研究所2.2字符集/說明說明：

①除字符型常量外,源程序中詞法和語法描述不區(qū)分字母的大小寫,如語句“INTEGERI”和語句“integeri”是等價的。

②FORTRAN90字符集以外的可打印字符,只能出現(xiàn)在注釋、字符常量、字符串編輯符和輸入輸出記錄中。

③字符：_!"%&;><?為FORTRAN90新增字符。2.2字符集

概述

字符集

說明第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第6頁，共43頁。FORTRAN是英文“FORmulaTRANslator”的縮寫,譯為“公式翻譯器”,它是世界上最早出現(xiàn)的計算機高級程序設計語言,廣泛應用于科學和工程計算領域。①除字符型常量外,源程序中詞法和語法描述不區(qū)分字母的大小寫,如語句“INTEGERI”和語句“integeri”是等價的。第二講Fortran語言程序設計基礎解：合法名稱有:Number,Max,PrOgRaM,FIND_IT,read,x,a3b7,china,total,x$y$z。長安大學地學信息技術研究所WRITE(*,*)’總地價：’,price,’元’所有格式在一行內(nèi)兩條語句之間mul=x*y如：8位整型數(shù)據(jù)類型的取值范圍是-128至127。CMPLX(10,kind=4)!跳過Y參數(shù)。(–b–SQRT(d))/(2*a)如：面積、周長、體積、距離、速度等都是計算機處理的數(shù)據(jù)。NAMELIST,FORMAT和ENTRY語句ENDPROGRAM!WRITE(*,*)‘a(chǎn)rea=',area,’perimeter=‘,perimeter第二講Fortran語言程序設計基礎2.3名稱

名稱在FORTRAN77中稱“符號名”,在其它語言中稱“標識符”。名稱在程序中用來標識有關實體(如：變量、命名常量、函數(shù)、過程、程序單元、公用塊、名稱表組和啞元等)。

概述

語法描述

作用域

示例2.3名稱

PROGRAMmainINTEGERlength,width,area,priceREAD(*,*)length,width

area=mul(length,width)

price=mul(4000,area)WRITE(*,*)’總地價：’,price,’元’ENDFUNCTIONmul(x,y)

mul=x*yENDFUNCTION第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第7頁，共43頁。2.3名稱/語法描述<名稱>→<英文字母>{<英文字母>∣<數(shù)字>∣“_”∣“$”}說明：①名稱只能由英文字母、數(shù)字、下劃線符“_”和美元符號“$”組成。②名稱第一個字符必須是英文字母。③名稱不能超過31個字符。

2.3名稱

概述

語法描述

作用域

示例第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第8頁，共43頁。2.3名稱/作用域

作用域指使用范圍,每個名稱都規(guī)定了作用域。名稱的作用域為該名稱聲明所在的程序單元、函數(shù)或過程。

作用域為整個程序的名稱稱為全局名稱,否則稱為局部名稱。程序單元名、外部過程名、命令塊名和模塊名為全局名稱,且在整個程序中必須唯一。2.3名稱

概述

語法描述

作用域

示例第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第9頁，共43頁。作用域示例PROGRAMmainREALa,b,cCONTAINSSUBROUTINEp1(…)REALb1,c1,dENDSUBROUTINEp1SUBROUTINEp2(…)REALc2,d2,eENDSUBROUTINEp2ENDc2,d2,e的作用域a,b,c的作用域b1,c1,d的作用域第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第10頁，共43頁。2.3名稱/示例[例2.1]判定下列名稱,哪些是合法名稱？哪些是非法名稱？解釋非法名稱錯誤原因。

.,DR.WANG,china,total,x$y$z,$abcd,rate。解：合法名稱有:Number,Max,PrOgRaM,FIND_IT,read,x,a3b7,china,total,x$y$z。非法名稱有:X-Y-Z,8q,a.5,_wrong,U.S.A.,DR.WANG,$abcd,rate。表2-1給出非法名稱錯誤原因。下面是幾個使用合法名稱的語句例子。INTEGERtotal!total命名了一個整型變量SUBROUTINEexample!example命名了一個過程PROGRAMarea!area命名了一個程序單元Lable：DOI=1,N!Lable命名了一個DO循環(huán)2.3名稱

概述

語法描述

作用域

示例第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第11頁，共43頁。名稱示例表2-1

非法名稱錯誤原因非法名稱錯誤原因X-Y-Z名稱中含減號“-”U.S.A.名稱中含小數(shù)點“.”8q“8”作為第一字符DR.WANG名稱中含小數(shù)點“.”a.5名稱中含小數(shù)點“.”$abcd“$”作為第一字符_wrong“_”作為第一字符rate名稱中含空格第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第12頁，共43頁。2.4關鍵字關鍵字是FORTRAN90中用于描述語句語法成分或命名啞元名稱的特定字符串。FORTRAN90關鍵字分為語句關鍵字和變元關鍵字。

概述

分類

說明

示例2.4關鍵字

PROGRAMmain

INTEGERlength,width,area,price

READ(*,*)length,widtharea=mul(length,width)price=mul(4000,area)

WRITE(*,*)’總地價：’,price,’元’

END

FUNCTIONmul(x,y)mul=x*y

ENDFUNCTION第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第13頁，共43頁。2.4關鍵字/分類FORTRAN90關鍵字分為語句關鍵字和變元關鍵字。語句關鍵字是用于描述語句語法成分的固定的合法單詞。如語句“IF(A<B)THEN”中的“IF”和“THEN”是語句關鍵字,類似的關鍵字有：PROGRAM、INTEGER、REAL、READ、PRINT、WRITE、DO、END、SUBROUTINE、FUNCTION等。變元關鍵字是命名特定啞元名稱的合法單詞。變元關鍵字是FORTRAN90特有的性質(zhì),FORTRAN90對所有的內(nèi)部函數(shù)和過程都規(guī)定了變元關鍵字,它們在有關接口塊中做出了具體規(guī)定,允許在調(diào)用時使用變元關鍵字。使用變元關鍵字可提高程序的可讀性,如內(nèi)部函數(shù)CMPLX(X[,Y][,KIND])的X、Y和KIND為變元關鍵字,可使用下面語句調(diào)用CMPLX函數(shù)：CMPLX(10,20,4)!按序指定參數(shù)。CMPLX(y=20,kind=4,x=10)!按變元關鍵字指定參數(shù)。

CMPLX(10,kind=4)!跳過Y參數(shù)。

2.4關鍵字

概述

分類

說明

示例第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第14頁，共43頁。2.4關鍵字/說明關鍵字都有特定的含義,在描述中有具體的位置要求,不能改變或移位,否則將產(chǎn)生語法錯誤。如語句“PROGRAMmain”中的關鍵字“PROGRAM”的含義是說明源程序是一個主程序單元,位于語句首部,如果寫成“PROGRAMMINGmain”或“mainPROGRAM”將產(chǎn)生語法錯誤。FORTRAN90對關鍵字不予保留,即允許其關鍵字作為其它實體的名稱(變量名、數(shù)組名、函數(shù)名、程序名等),可將PROGRAM、INTEGER、REAL、READ、PRINT、WRITE、DO、END、SUBROUTINE、FUNCTION等作為變量名、數(shù)組名、函數(shù)名或程序名。編譯程序根據(jù)上下文來識別一個字符串是關鍵字,還是實體名稱。如語句“PROGRAMPROGRAM”中第一個“PROGRAM”將被編譯程序識別為關鍵字,第二個“PROGRAM”將被識別為實體名稱(主程序單元名)。注意應避免使用關鍵字作為實體名稱,因為使用關鍵字作為實體名稱會導致程序難以理解和閱讀,降低程序的可讀性。2.4關鍵字

概述

分類

說明

示例第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第15頁，共43頁。2.4關鍵字/示例2.4關鍵字

PROGRAMmain

INTEGERlength,width,area,price

READ(*,*)length,widtharea=mul(length,width)price=mul(4000,area)

WRITE(*,*)’總地價：’,price,’元’

END

FUNCTIONmul(x,y)mul=x*y

ENDFUNCTION

概述

分類

說明

示例第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第16頁，共43頁。2.5程序單元一個F90程序可由多個程序單元組成(至少一個主程序單元)。程序單元由數(shù)據(jù)聲明和相關操作(語句)構成,必須用END語句結束。

概述

分類

描述

示例2.5程序單元第二講Fortran語言程序設計基礎

PROGRAMmain

INTEGERlength,width,area,price

READ(*,*)length,widtharea=length*widthprice=4000*areaWRITE(*,*)’總地價：’,price,’元’

END長安大學地學信息技術研究所第17頁，共43頁。2.5程序單元/分類FORTRAN90規(guī)定有四種程序單元：主程序單元、外部子程序單元、模塊單元和塊數(shù)據(jù)單元。每個程序單元可分別編譯,一起構建(連編)產(chǎn)生可執(zhí)行程序。外部子程序單元：不包含在主程序單元、模塊單元和其它外部子程序單元中的函數(shù)或例行子程序所構成的程序單元,其中外部函數(shù)和外部例行子程序能被FORTRAN90程序中其它程序單元調(diào)用執(zhí)行。由FUNCTION或SUBROUTINE語句開始。模塊單元：能被其它程序單元訪問的一組定義(數(shù)據(jù)類型定義、過程定義)、過程接口定義)所構成的程序單元，其中模塊子程序允許本模塊或其它程序單元調(diào)用執(zhí)行。由MODULE語句開始。塊數(shù)據(jù)單元：為命名公用塊中變量指定初始值的程序單元。由BLOCKDATA語句開始。主程序單元：程序中被首次執(zhí)行的程序單元,程序運行的入口點，其它程序單元執(zhí)行的啟動器。由PROGRAM語句開始，可缺省。主程序單元、外部子程序單元和模塊單元可以包含內(nèi)部子程序,包含內(nèi)部子程序的程序單元稱為宿主(Host),內(nèi)部子程序能被其宿主或宿主內(nèi)的其它子程序調(diào)用執(zhí)行。2.5程序單元

概述

分類

描述

示例第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第18頁，共43頁。2.5程序單元/描述

<程序>→<主程序單元>{<外部子程序單元>∣<模塊單元>∣<塊數(shù)據(jù)單元>}<主程序單元>→[<PROGRAM語句>][<說明部分>][<操作部分>][<內(nèi)部子程序部分>]<END語句><PROGRAM語句>→PROGRAM<程序名稱><END語句>→END[PROGRAM[程序名稱]]<說明部分>→{<內(nèi)部數(shù)據(jù)類型說明語句>∣<派生數(shù)據(jù)類型說明語句>∣<數(shù)組類型說明語句>∣<指針類型說明語句>}<操作部分>→{<非說明語句>}<內(nèi)部子程序部分>→CONTAINS{<內(nèi)部子程序>}2.5程序單元

概述

分類

描述

示例第二講Fortran語言程序設計基礎

PROGRAMmain

INTEGERlength,width,area,price

READ(*,*)length,widtharea=length*widthprice=4000*areaWRITE(*,*)’總地價：’,price,’元’

END長安大學地學信息技術研究所第19頁，共43頁。2.5程序單元/示例

[例2.2]編寫一個包含下列語句的主程序單元,給出所有可能的主程序單元結構。INTEGERa,b,ca=10;b=20c=a+bPRINT*,'a+b=',c解：有5種程序單元結構,如圖2-1所示。2.5程序單元

概述

分類

描述

示例第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第20頁，共43頁。程序單元程序示例INTEGERa,b,ca=10;b=20c=a+bWRITE(*,*)'a+b=',cENDINTEGERa,b,ca=10;b=20c=a+bWRITE(*,*)'a+b=',cENDPROGRAMPROGRAMaddINTEGERa,b,ca=10;b=20c=a+bWRITE(*,*)'a+b=',cENDPROGRAMaddINTEGERa,b,ca=10;b=20c=a+bWRITE(*,*)'a+b=',cENDPROGRAMPROGRAMaddINTEGERa,b,ca=10;b=20c=a+bWRITE(*,*)'a+b=',cENDPROGRAMadd第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第21頁，共43頁。2.6語句FORTRAN90語句分為兩類：可執(zhí)行語句：表示程序要完成某個操作。非執(zhí)行語句：描述程序的某種屬性。

概述

排列次序

受限使用2.6語句第二講Fortran語言程序設計基礎

PROGRAMmain

INTEGERlength,width,area,price

READ(*,*)length,widtharea=length*widthprice=4000*areaWRITE(*,*)’總地價：’,price,’元’END長安大學地學信息技術研究所第22頁，共43頁。2.6語句/排列次序程序中語句要求按規(guī)定次序排列,即語句位置不能隨意放置,否則將產(chǎn)生語法錯誤,如INTEGER語句和PRINT語句的先后順序就不能顛倒。語句排列次序規(guī)定如表2-2所示,表中給出了全部語句的排列次序要求。語句的排列次序與執(zhí)行次序不完全相同。2.6語句

概述

排列次序

受限使用第二講Fortran語言程序設計基礎

PROGRAMmain

INTEGERlength,width,area,price

READ(*,*)length,widtharea=length*widthprice=4000*areaWRITE(*,*)’總地價：’,price,’元’

END長安大學地學信息技術研究所第23頁，共43頁。表2-2語句排列次序注釋行,INCLUDE語句和指令OPTION語句PROGRAM,FUNCTION,SUBROUTINE,MODULE或BLOCKDATA語句USE語句NAMELIST,FORMAT和ENTRY語句IMPLICITNONE語句PARAMETER語句IMPLICIT語句PARAMETER和DATA語句派生類型定義,接口塊,類型說明語句,語句函數(shù)語句和說明語句DATA語句可執(zhí)行語句CONTAINS語句內(nèi)部子程序或模塊子程序END語句長安大學地學信息技術研究所第24頁，共43頁。2.6語句/受限使用FORTRAN90對語句的使用范圍有具體規(guī)定,即語句的受限使用。表2-3給出了FORTRAN90受限語句及使用的程序單元范圍。

2.6語句

概述

排列次序

受限使用第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第25頁，共43頁。2.7書寫格式每種程序設計語言對書寫格式都有特定要求。傳統(tǒng)FORTRAN語言,采用固定格式。FORTRAN90采用固定格式和自由格式。

概述

標志符

語句標號

自由格式2.7書寫格式

PROGRAMmainINTEGERlength,width,area,priceREAD(*,*)length,widtharea=length*widthprice=4000*areaWRITE(*,*)’總地價：’,price,’元’END第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第26頁，共43頁。固定格式示例!求一元二次方程兩個實根PROGRAMquadraticREALa,b,c,d,x1,x2READ(*,*)a,b,c輸入系數(shù)d=b*b–4*a*c算判別式100IF(d.ge.0.0)THENx1=(–b+SQRT(d))/(2*a)x2=(–b–SQRT(d))&/(2*a)write(*,*)'x1=',x1write(*,*)'x2=',x2ELSEwrite(*,*)'該方程有復數(shù)根。'ENDIFEND程序結束標號區(qū)(1-5列)語句區(qū)(7-72列)注釋區(qū)(73-80列)續(xù)行區(qū)(6列)第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第27頁，共43頁。自由格式示例!求一元二次方程兩個實根PROGRAMquadraticREALa,b,c,d,x1,x2READ(*,*)a,b,c!輸入系數(shù)d=b*b–4*a*c!計算判別式IF(d>=0)THENx1=(–b+SQRT(d))/(2*a)；x2=&(–b–SQRT(d))/(2*a)write(*,*)'x1=',x1write(*,*)'x2=',x2ELSEwrite(*,*)‘該方程有&&復數(shù)根。'ENDIFEND!程序結束第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第28頁，共43頁。2.7書寫格式/標志符書寫格式都定義若干標志符,指出文本的意義。F9ORTRAN90定義3個通用標志符：注釋標志符“!”可出現(xiàn)在程序單元任何位置，表示其后至行末為注釋文本。注釋行只起解釋和說明作用，對程序單元的編譯沒有影響。一行均為空格也是一個注釋行。語句分隔標志符“；”可出現(xiàn)在兩條語句之間，表示左右為兩條獨立的語句。允許一行書寫多條語句,用符號“；”分隔語句。續(xù)行標志符“&”可出現(xiàn)在一條語句內(nèi)部，表示前后文本屬于一條語句。一條長語句可分多行書寫,中間需用“&”連接,出現(xiàn)在前一續(xù)行的末尾。在中,續(xù)行可達511行。表2-4給出標志符及其含義。（示例）2.7書寫格式

概述

標志符

語句標號

自由格式第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第29頁，共43頁。2.7書寫格式/語句標號語句前面可設置語句標號(即語句編號)。語句標號作用是可改善和提高程序可讀性;便于其他語句訪問該語句,獲取信息或轉(zhuǎn)移控制。語句標號可放在任何完整語句前面,但不屬于后面的語句。語句標號是長度不超過5位十進制正整數(shù),不允許全0。空語句不能加語句標號。語句標號的聲明具有唯一性,在同一程序單元中不能聲明相同的語句標號。2.7書寫格式1

PROGRAMmain2INTEGERlength,width,area,price3READ(*,*)length,width4area=length*width5price=4000*area6WRITE(*,*)’總地價：’,price,’元’7END

概述

標志符

語句標號

自由格式第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第30頁，共43頁。2.7書寫格式/自由格式在自由格式中,語句在一行中的位置不受限制。語句長度可達132個字符。在自由格式中,注釋標志符“！”可出現(xiàn)在一行的任意位置。若出現(xiàn)在第1列,則表示該行為注釋文本。若出現(xiàn)在中間位置,則其后至行末為注釋文本。在自由格式中,一行允許寫多個語句,語句之間用分號“;”分隔,最后語句之后不能有分號“;”。一個語句最長不能超過2640個字符。在自由格式中,續(xù)行標志符“&”出現(xiàn)在待續(xù)行語句末尾處,若出現(xiàn)在注釋文本、字符常量或Hollerith常量中,則失去續(xù)行功能。符號“&”后的第一個非注釋行為續(xù)行,FORTRAN90允許有39個續(xù)行允許511個續(xù)行。2.7書寫格式

概述

標志符

語句標號

自由格式第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第31頁，共43頁。表2-4標志符及其含義

項目標志符

書寫格式

位置

注釋!

所有格式程序單元任意位置

注釋行!

自由格式在一行的開始位置!,C,or*

固定格式在第1列

Tab格式在第1列

續(xù)行&

自由格式

在一行的末尾處

除0和空格之外的任意字符固定格式在第6列

除0之外任何數(shù)字Tab格式第一個tab之后

語句分隔

；

所有格式在一行內(nèi)兩條語句之間語句標號

1至5位十進制數(shù)自由格式

在一條語句之前

固定格式在1至5

列Tab格式在第一個tab之前

調(diào)試語句

D

固定格式在第1列

Tab格式在第1列

第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第32頁，共43頁。2.7書寫格式/標志符/示例2.7書寫格式

概述

標志符

語句標號

自由格式書寫格式都定義若干標志符,指出文本的意義。F9ORTRAN90定義3個通用標志符：注釋標志符“!”可出現(xiàn)在程序單元任何位置，表示其后至行末為注釋文本。注釋行只起解釋和說明作用，對程序單元的編譯沒有影響。一行均為空格也是一個注釋行。語句分隔標志符“；”可出現(xiàn)在兩條語句之間，表示左右為兩條獨立的語句。允許一行書寫多條語句,用符號“；”分隔語句。續(xù)行標志符“&”可出現(xiàn)在一條語句內(nèi)部，表示前后文本屬于一條語句。一條長語句可分多行書寫,中間需用“&”連接,出現(xiàn)在前一續(xù)行的末尾。在中,續(xù)行可達511行。表2-4給出標志符及其含義。（示例）!計算長方形面積和周長之程序PROGRAMmainINTEGERlength,width,area,perimeterREAD(*,*)length,width!輸入長、寬!area=length*width；erimeter=2*(length+width)area=length*width；erimeter=2*(length+&

width)!WRITE(*,*)‘a(chǎn)rea=',area,’perimeter=‘,perimeterWRITE(*,*)‘a(chǎn)rea=',area,‘perimeter=’,&perimeterENDPROGRAM第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第33頁，共43頁。長安大學地學信息技術研究所第34頁，共43頁。2.8數(shù)據(jù)類型計算機系統(tǒng)的處理對象是數(shù)據(jù)(信息),離開了數(shù)據(jù),計算機就失去了應有的價值。數(shù)據(jù)、數(shù)據(jù)表示及數(shù)據(jù)類型在計算機科應用(特別是程序設計語言和程序設計)中占有重要位置。

概述

數(shù)據(jù)

數(shù)據(jù)表示

數(shù)據(jù)類型2.8數(shù)據(jù)類型

PROGRAMmain

INTEGERlength,width,area,priceREAD(*,*)length,widtharea=length*widthprice=4000*areaWRITE(*,*)’總地價：’,price,’元’END第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第35頁，共43頁。2.8數(shù)據(jù)類型/數(shù)據(jù)

數(shù)據(jù)是自然界中客觀事物的符號表示。在計算機科學中,一切能夠被計算機接受和處理的對象(信息)均看成是數(shù)據(jù)。如：面積、周長、體積、距離、速度等都是計算機處理的數(shù)據(jù)。隨著計算機技術的發(fā)展,數(shù)據(jù)的內(nèi)涵也在不斷擴展。數(shù)據(jù)由早期的整數(shù)、實數(shù)、復數(shù)等簡單數(shù)據(jù),發(fā)展到現(xiàn)在字符串、文本、圖形、圖像、聲音等復雜數(shù)據(jù)。

數(shù)據(jù)分數(shù)值數(shù)據(jù)和非數(shù)值數(shù)據(jù)。數(shù)值數(shù)據(jù)是能直接進行算術運算(科學計算)的數(shù)據(jù)。如：整數(shù)、實數(shù)、復數(shù)等。非數(shù)值數(shù)據(jù)是不能直接進行算術運算,一般進行查詢、檢索、分類和處理等操作的數(shù)據(jù)。如：字符串、文本、表格、圖形、圖像、聲音等。2.8數(shù)據(jù)類型

概述

數(shù)據(jù)

數(shù)據(jù)表示

數(shù)據(jù)類型第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第36頁，共43頁。2.8數(shù)據(jù)類型/數(shù)據(jù)表示數(shù)據(jù)在計算機中進行運算或處理必須采用某種合適的表示形式。同一數(shù)據(jù)如表示形式不同,則處理方式也有所差異。選擇合適的數(shù)據(jù)表示形式,對于程序設計來說至關重要。數(shù)據(jù)的定點表示。小數(shù)點位置固定不變的表示方式。整數(shù)采用定點表示。定點表示數(shù)據(jù)非常精確,沒有誤差,但表示數(shù)據(jù)的范圍小。

數(shù)據(jù)的浮點表示。小數(shù)點位置浮動變化的表示方式。實數(shù)采用浮點表示。浮點表示數(shù)據(jù)存在誤差,數(shù)很小時,認定為0,但表示范圍大。

數(shù)據(jù)的ASCII碼表示。數(shù)據(jù)的一種編碼形式。字符采用ASCII表示。ASCII碼為美國標準信息交換碼,采用7位編碼,即每一個字符由7位碼表示,ASCII碼共128個編碼,表示128個字符。

數(shù)據(jù)的編碼表示。

圖形、圖像和聲音等非數(shù)值數(shù)據(jù)采用更為復雜的編碼方法編碼表示。2.8數(shù)據(jù)類型

概述

數(shù)據(jù)

數(shù)據(jù)表示

數(shù)據(jù)類型第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第37頁，共43頁。2.8數(shù)據(jù)類型/數(shù)據(jù)類型不同類型數(shù)據(jù)有不同的特性,其處理方式不同,取值范圍不同。在處理數(shù)據(jù)前,必須說明數(shù)據(jù)的特性。數(shù)據(jù)類型是說明數(shù)據(jù)特性的常用形式,在語言中被廣泛采用。數(shù)據(jù)類型是數(shù)據(jù)取值范圍和在其上定義的一組操作的總稱。一種數(shù)據(jù)類型規(guī)定了一種數(shù)據(jù)取值范圍和一組操作。數(shù)據(jù)類型有四個性質(zhì)：每個數(shù)據(jù)類型有一個唯一的名稱。內(nèi)部數(shù)據(jù)類型名稱由F語言預先定義。派生類型名稱根據(jù)類型定義語句定義。每個數(shù)據(jù)類型規(guī)定了一個取值范圍(值的集合)。如：8位整型數(shù)據(jù)類型的取值范圍是-128至127。每個數(shù)據(jù)類型規(guī)定了其常量數(shù)據(jù)的表示方法,如：。每個數(shù)據(jù)類型規(guī)定了一組操作。如整型規(guī)定的操作有：加+、減-、乘*和除/操作。FORTRAN90具有豐富的數(shù)據(jù)類型,有內(nèi)部數(shù)據(jù)類型、派生數(shù)據(jù)類型、數(shù)組和指針類型等。利用豐富的數(shù)據(jù)類型可設計和編寫出功能強大的FORTRAN90程序。2.8數(shù)據(jù)類型

概述

數(shù)據(jù)

數(shù)據(jù)表示

數(shù)據(jù)類型第二講Fortran語言程序設計基礎長安大學地學信息技術研究所第38頁，共43頁。2.8數(shù)據(jù)類型/數(shù)據(jù)類型/示例不同類型數(shù)據(jù)有不同的特性,其處理方式不同,取值范圍不同。在處理數(shù)據(jù)前,必須說明數(shù)據(jù)的特性。數(shù)據(jù)類型是說明數(shù)據(jù)特性的常用形式,在語言中被廣泛采用。數(shù)據(jù)類型是數(shù)據(jù)取值范圍和在其上定義的一組操作的總稱。一種數(shù)據(jù)類型規(guī)定了一種數(shù)據(jù)取值范圍和一組操作。數(shù)據(jù)類型有四個性質(zhì)：每個數(shù)據(jù)類型有一個唯一的名稱。內(nèi)部數(shù)據(jù)類型名稱由F語言