fortran程序實例

1、1) 實例3求多個半徑下的圓周長z3.f90 -Fortran95FUNCTIONS:z3 - Entry point of console application.*PROGRAM: z3PURPOSE: Entry point for the console application.*program z3求多個半徑下的圓周長主程序filWl帆mF 麗!悔4%而i WIIM；1 tt -叼 pant IF grPROGRAM Z3PRINT bR=',1.2,'C=',C(1.2)PRINT bR='34,'C=',C(3.4)PRINT bR

2、=',15.6,'C=',C(15.6)PRINT bR=',567.3,'C=',C(567.3)END program z3!子程序FUNCTION C(R)PI=3.1415926C=2*PI*RRETURN! Body of z3 endFBci| WvffcipiCEi CMcr UmHEViaKfTVIfiAIL COW國Cartter r>EwwDc Tiftc WldvdIlcvSiurihid fcjriBwIcd E nK WlcwtiepEK &rr»riwinlf'CHrIn顯 tAw- l

3、-cwf fs 國iHiwy 卜l« iriinmf rh：1c I firairi DffuaJc Lhafc LhiifyJ|l ntiin 5w>4irf 5出口 w QucWHi-JlfHkMfla Tl+f mfeMc Lef 旬FMg ijfeiun rdiailifthMjtfd "wakEUEtiiMI-C fettwX C>w4nW«lrii«AjHK：-Qurri用iMEwliaiahMjE Wlraid Ti U*»Y Ihinkid I'UMTria rwwi舊Li4 tRAIL CWIH 卜” &a

4、mp; Thwh Fbgi LwiiZ6 二 Cnmpnq Visunil For trran - 26- F90EJ L« 艮diJ JlLdf JjuetI Ernjt:1 QLd 1口口Li £indnr Help小寧UI %也口， 叮卬良，-MriKEI'IHSri - Fatry pbikt 單群 cang'lu kpli*.H4nlFortran95. f90-3國,' Tfi "，.電七* *»1Z4t ruina! itna. pciSnc rar 裔中 sncni。4Ipil-eclM.prfIFH t*I1 K

5、UCMH 淮num 1, =1171/，">，匚口.邛 raiwi - br«'bi.*,1'i>'.cs.sjFWIHT，加，0鏟'1咐1£-心MIMT *.呷>，5H同 JA'MfHL外EwZA1彳程中r«Ki edm tnEAHXN VF LXVHr iNZ6DehuZ6. eie二.IHMWtl W.LiWHI RG?.ni«ti6” /ZD.1L2I3LawPl-J.P-2»PKMTfW i MOf «r zi_ 3 CIibiViw I JflfllcVl

6、W ICvnrlurdLJ.*n: iFA *n#N 口Euq I dvikiny- 2* «epe - > rrrs) ? I wnfnifs4W,&uid/ C-flbuE Bind in. Jiles Find in Fi» 2 i«S >, SJL HeVj) . | |2) 實例4 一鍵盤與顯示器 輸入/輸出a) Fortran 基本操作b)程序指令ZXZ_I_O.f90FUNCTIONS:ZXZ_I_O - Entry point of console application.PROGRAM: ZXZ_I_Oprogram ZXZ_

7、I_Oimplicit none!變量聲明的位置INTEGER(2) i; INTEGER(4) j; INTEGER(4) m; REAL nINTEGER A,BVariablesREAD*, AB=A+B7PhIvil Id.£k F W In L 上耳ndPURPOSE:Entry point for the console application.*輸入、輸出樣式種種*PRINT*,'輸入整數(shù)B'READ*, BPRINT*,'B=A+B=',B|,E kihld : riiti li. F. . Sl D： 1 . Fil-. ； .Lj

8、:T，i TH- Id . ir7M'b Fii-: In Film ； 'I r."<WRITE(*,*) 'A*B=',A*B曰4 產i1&i JM.1In Fun 2-> |口3 B.-U-I ¥1* Jiusn Jr-<,：iulii flrvELk E-tr 3ax- Eniwi MN IMia EHta- Itak(J囪,立M立二茁力 fl i fafiElN E-ti* Uk Uwr*tai ；4 時"曲"BfIfPRINT*,'輸入整數(shù)A'x&x Ii au

9、ji.1, Hartranoff Ltfui Cunnn I aPRINT* ,'以上為計算機的計算結果，注意 B的值'PRINT* ,'系統(tǒng)默認的輸出樣式' !人為控制的的輸出樣式-格式化輸出 i=21; j=53; m=5 n=(i+j*m*i*m)WRITE(*,*)'i,j,m 是常量，程序賦初值PRINT*, i,j,mWRITE(*,*) 'i,j,m的計算結果：'PRINT*,'i+j*m*i*m=',nPRINT* ,''! Body of ZXZ_I_Oend program ZXZ_I_

10、O程序說明：程序賦值一初始化i=21; j=53; m=5鍵盤無格式輸入READ*, A鍵盤有格式輸入READ (*,100) A,B,C100 FORMA T( 2F5.2,F5.3)顯示器無格式輸出PRINT* ,'系統(tǒng)默認的輸出樣式'WRITE(*,*) 'A*B=',A*B顯示器有格式輸出PRINT 100 ,A+BWRITE(*,100) 'A*B=',A*B100 FORMA T( F5.2)C）調試運行"E:ZXZ_VF_LXVF-9O：輸%整數(shù)由輸入整數(shù)B45G日二二fl*B= 1G140糕勰霜懶費結果注融的值i-是常:

11、E.程序賦初值21535L$.的計算結果.la0®2236gE+0?Press any kejy to continue.pT口qrcm ZXZ_1_O，變量聲明的位置 lHILatR(2) 1； 1NTEGER(4) j； INlECERtM) n； REAL INTEGER AnD* Udriahl？sPR1HT*廊工整數(shù)(T ; READ#, APRIHr-輸入整藪；REftD*, BPRIHT-/B-A «0-hT0UR1TF*t*) 1A*R-h,A«RPR1HT* .,以上為W裳機的計算結果，注意B的值.T系統(tǒng)默認的施工件關認為控制甫的輸出樣注格式化輸

12、出i-?1; j-53;聯(lián)5ini=(i+j*n*i*n)WRITE 0/)是常量.程序賦初值PR1NT>, i,j,n的計算結果，,PR1HT* #'t Body of ZKZ_l_(i snd proqran I (Jd）程序指令帶格式的輸入輸出 ! ZXZ_I_O.f90 ! FUNCTIONS: ! ZXZ_I_O - Entry point of console application. ! PROGRAM: ZXZ_I_O! PURPOSE: Entry point for the console application.!* 輸入、輸出樣式種種 *program Z

13、XZ_I_Oimplicit none!變量聲明的位置INTEGER(2) i; INTEGER(4) j; INTEGER(4) m; REAL n INTEGER A,B REAL X,Y ,Z ! Variables PRINT*,'輸入整數(shù) A' READ*, A PRINT*,'輸入整數(shù) B' READ*, B PRINT*,'計算結果為：' B=A+B PRINT*,'B=A+B=',B WRITE(*,*) 'A*B=',A*B PRINT* ,'以上為計算機的計算結果，注意 B的值 !系統(tǒng)默

14、認的輸出樣式 PRINT* ,'系統(tǒng)默認的輸出樣式'PRINT*,'輸入實數(shù) X'READ(*,100) XPRINT*,'輸入實數(shù) Y'READ(*,100) Y100 FORMA T(F5.2) PRINT*,'計算結果為：' Z=X+YPRINT 200,Z200 FORMA T(4X,'Z=X+Y=',F8.3) WRITE(*,*) WRITE(*,300) X*Y300 FORMA T(4X,'Z=X*Y=',F8.3) !人為控制的的輸出樣式-格式化輸出 PRINT* ,'程序

15、為常量賦了初值' i=21; j=53; m=5 n=(i+j*m*i*m) WRITE(*,*)'i,j,m 是常量，程序賦初值 PRINT*, i,j,m WRITE(*,*) 'i,j,m的計算結果：'PRINT*,'i+j*m*i*m=',n PRINT* ,''! Body of ZXZ_I_Oend program ZXZ_I_Oe)調試運行PRINT*,'計笄結果為：. e=fi+e PRINT*,WRITE(*,») 'ft*B=h,A*B，注意B的值，PRINT* , 以上為計算機的計算結果的輸出樣式/入整數(shù)口12r輸入整數(shù)h計算結果為：B=A+E=24| A*B=298,注意B的值PRIHU,曾入實數(shù) K' ； READ(>,100) XPRINT*，輸入實藪 V ; READ(*,100) V100 FORMAr(F5.2)PRINT*,，計算結果為，?-X+VPRINT 2G9,Z200 FORMAT(4X,'ZX+VH,FB.3)WRITE(*,*)UR1TL(*OO) X*V300 F0RMAT(4K,'Z=K*V=',F8,3)士人為控制的的酎出桂西一常式化輸出 PRIHT*程序舟常宴賦了初值,i-21; j