在FORTRAN77中基本類型有以下六種：整型實(shí)型雙精度型復(fù)型邏輯型字符型雙精度類型數(shù) [例6.1]分?jǐn)?shù)序列2/1，3/2，5/3，8/5，13/8，21/13…，DOUBLEPRECISIONA,B,C,DO10,I=1,20, PRINT*,‘S=’,S復(fù)型類型數(shù)在程序中要對(duì)復(fù)型變量作出說明。但只在本程序單位中有效。說明句可用COMPLEX語(yǔ)句或IMPLICIT語(yǔ)句。例COMPLEXC,IMPLICITCOMPLEX(X-復(fù)型常數(shù)是用兩個(gè)實(shí)數(shù)表示，第一個(gè)實(shí)數(shù)表示實(shí)部，第二個(gè)實(shí)數(shù)表虛部。例如以(1.0,2.5)表示復(fù)數(shù)1+2.5i，以(0.0,-5.4)表示復(fù)數(shù)-5.4i已定義為復(fù)型變量后可以用賦值語(yǔ)句將復(fù)型常數(shù)賦給復(fù)型變量C=(3.0,D=(8.76E+5,-67.8E-如果實(shí)部和虛部都不是常數(shù)，而是表達(dá)式，則應(yīng)用PX函數(shù)將實(shí)部和虛部組成復(fù)型數(shù)據(jù)再賦給復(fù)型變量，例如：如果CMPLX函數(shù)只有一個(gè)自變量，則它代表實(shí)部，如CMPLX(3.0)作用是將實(shí)數(shù)3.0轉(zhuǎn)成復(fù)數(shù)(3.0,0.0)COMPLEXX1,X2READ(*,*)A,B,CIF(D.GE.0.0)THENX1=CMPLX(PART1+PART2,X2=CMPLX(PART1-PART2,X1=CMPLX(PART1,X2=CMPLX(PART1,-ENDWRITE(*,*)‘X1=’,WRITE(*,*)‘X2=’,C整實(shí)雙復(fù)實(shí)實(shí)雙復(fù)雙雙雙復(fù)復(fù)復(fù)復(fù)復(fù)其中表示FORTRAN77標(biāo)準(zhǔn)是不允許的。但有的不同類型數(shù)據(jù)的賦值規(guī)表6.2不同類型數(shù)據(jù)的賦值規(guī)則 類型轉(zhuǎn)換函FORTRAN77提供一些函數(shù)，使不同類型的數(shù)據(jù)不轉(zhuǎn)換，仍得A仍為A取AA仍為A仍為AA1部是不同類型數(shù)據(jù)的比較規(guī) 星號(hào)表示只有用.EQ.或.NE.字符型數(shù)字符型常字符型常量亦稱字符串（characterstring），它是用引號(hào)（單 ‘LI ‘Howareyou ‘A+B;C+D 字符型變CHARACTEER*5STR1,STR2,STR3CHARACTERNAME*20,ADDR*30,CODE*10CHARACTER*5A,B*6,C,D*4,CHARACTERA,B,IMPLICITCHARACTER*5(A-C),CHARACTER*4CHARACTER*5NAMEPARAMETER(NAME=’CHINA’)字符型變量的賦CHARACTER*5NAME1NAME2NAME3READ*,NAME1,NAME2,子字符字符變量名(e1CHARACTER*33STR=’STRUCTUREDPROGRAMMINGINPRINT*,STR(1:10),e1和e2 STR(27:) STRUCTUREDPROGRAMMINGIN可以將一個(gè)子字符賦給一個(gè)字符變量或另一個(gè)子字符串，例如字符表達(dá)字符型數(shù)據(jù)也可以進(jìn)行運(yùn)算。FORTRAN77只提供[例6.3]將讀入的名字和地址打印CHARACTERNAME*10,ADDR*20,LINE*50READ*,NAME,ADDRPRINT*,LINE字符關(guān)系表達(dá) 用于字符處理 函LGT(AB)：若A>BLGE(AB)：若A>=BLLE(AB)：若A<=BINDEX(A,B)：檢查字符串A是否包含字符串B，若INDEX(‘FOLLOWMEME’)的值為8，因?yàn)椤疢E’的第一個(gè)字符M出現(xiàn)在’FOLLOWME’的第8個(gè)字CHARACTER*10WORDDO10,I=1,READ*,IF(WORD(1:1).EQ.‘A’)PRINT*, 為了，常不采用明碼電文，而用電文，按事先約定的規(guī)則將一個(gè)字符轉(zhuǎn)換為另一個(gè)字符。收則按相反的規(guī)例如：“HEISINBEIJING.”->“MJNXNSCHARACTER*80LINE1,CHARACTERL1,READ*,DO10,K=1,IF((LGE(L1,’A’).AND.LLE(L1,’Z’)).OR.(LGE(L1,’a’).AND.LLE(L1,’z’)))IF(J.GT.122.OR.(J.GT.90.AND.J.LT.96))J=J-2610CONTINUEPRINT*,CHARACTER*7NAME,DO10,I=1,READ*,IF(INDEX(BOOK,NAME).NE.0)PRINT*, CHARACTERLINE*80,WORD*5PARAMETER(WORD=’CHINA’)READ*,DO10,I=1,READ*, L=INDEX(LINE(J:80),IF(L.EQ.0)ENDIF(J.LE.76)GOTO PRINT*,‘THENUMBEROFCHINAIS’,N習(xí)精度數(shù)據(jù)計(jì)算sinx=x-x3/3!+x5/5!-…+(-1)n-1*x2