FORTRAN语言程序设计初步课件.pptVIP

18:14:37*FORTRAN語言程式設計初步18:14:37*FORTRAN語言發展概況（,是（於IFFORTRAN語言於1954年提出，1956年正式使用，是世界上最早被推廣使用的高級語言，主要應用於數值計算領域。FORTRANFORmulaTRANslation的縮寫。FORTRAN771980年被接受為國際標準，該標準分為全集和子集。在此之前FORTRAN語言先後推出了不同的版本：如FORTRANII1958），FORTRANIV1962）等。由於FORTRAN77中包含一些結構化的語句（塊，DO等），因而能用於編寫結構化程式。此外，FORTRAN77還擴充了字元處理功能，使其也能應用於非數值計算領域。1991年,ANSI(美國國家標準化協會)X3.198-1991問世其國際標準檔號為ISO/IEC1539:1991,我國國家標準是GB/T3057-1996,人們俗稱FORTRAN90。除保持了FORTRAN77的全部優點，還加進了許多具有現代特性的功能，為FORTRAN語言注入了新的活力。Back18:14:37*簡單的FORTRAN77程式分析1引例：求三個數的平均數CCalculatetheaverageofthreenumbersX=90.5Y=87.0Z=68.5AVER=(X+Y+Z)/3.0WRITE(*,*)’TheThreeNumbersare:’,X,Y,ZWRITE(*,*)’AVERAGE=’,AVEREND程式中第1行是注釋行，用於說明本程式的作用；第2~4行是賦值語句，將三個數值分別賦予三個變數；第5行是計算賦值語句，求出平均值並賦予變數AVER，第6~7行是輸出語句，分別列印三個數及其平均值，最後一行是END語句。18:14:37*引例2：分別求R=1，3，12，5時的圓周長CMainProgramCProgramEX2WRITE(*,*)‘R=’，1.0，‘C=’，C（1.0）WRITE(*,*)‘R=’，3.0，‘C=’，C（3.0）WRITE(*,*)‘R=’，12.0，‘C=’，C（12.0）WRITE(*,*)‘R=’，5.0，‘C=’，C（5.0）ENDCSubProgramFUNCTIONC（R）PI=3.1415926C=2.*PI*RRETURNEND18:14:37*副程式中第1行是注釋行，說明本程式是副程式，第2行是FUNCTION語句，表明這是一個函數副程式，函數名為C，並有一個引數R，此函數副程式在主程序中被調4次，分別求出不同半徑時的圓周長；第3行是賦值語句，第4行是利用公式rcp2=計算與引數R對應的圓周長並賦於變數C，第5行是RETURN語句，返回調用程式，最後一行是END語句。主程序中第1行是注釋行，說明本程式是主程序，第2行是PROGRAM語句，為主程式起名為EX2，以便識別，第3~6行為輸出語句，其中C（1.0）、C（3.0）、C（12.0），C（5.0）分別調用函數副程式，求出與半徑1.0、3.0、12.0、5.0相對應的圓周長；最後一行是END語句。Back18:14:37*函數由以上引例可以看到：一個FORTRAN程式由一個主程序或一個主程序與若干個子程式組成。主程序與各副程式都是獨立的程式單位，稱為程式模組。副程式是實現程式模組化的一個有效途徑。FORTRAN副程式有以下幾種：①函數副程式，第一個語句是FUNCTION名②子