資源描述:
《fortran程序30個》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、程序1PROGRAMchaper1272INTEGER::A(10)=(/5,7,4,8,12,2,10,3,9,11/)INTEGER::sum=0,ave!打開一數(shù)據(jù)文件,設(shè)置一個有格式直接存取文件,將10個數(shù)分2個記錄寫入文件。!數(shù)據(jù)文件生成2個記錄,每個記錄行長度相同,記錄長度為25OPEN(1,FILE='input21.dat',FORM='FORMATTED',ACCESS='DIRECT',RECL=25)WRITE(1,"(5I5)",REC=1)(A(I)+10,I=1,5)!按格式說明將頭5個數(shù)寫入第1個記錄WRITE(1,"(5I5)",REC=2)(A(I)+10,
2、I=6,10)!按格式說明將后5個數(shù)寫入第2個記錄READ(1,"(5I5)",REC=2)(A(I),I=6,10)!按格式說明從第2個記錄中讀取后5個數(shù)READ(1,"(5I5)",REC=1)(A(I),I=1,5)?!按格式說明從第1個記錄中讀取頭5個數(shù)DOI=1,10?sum=sum+A(I)ENDDOave=sum/10!打開一個最大記錄長度為22的有格式順序存取文件OPEN(2,FILE='input22.dat',FORM='FORMATTED',ACCESS='DIRECT',RECL=22)WRITE(2,"('10個數(shù)之和為:',I5)",REC=1)sum?!輸出1記
3、錄行,記錄長度為22WRITE(2,"('10個數(shù)平均值為:',I5)",REC=2)ave!輸出1記錄行,記錄長度為22WRITE(2,"(A)",REC=3)'程序運行正常結(jié)束。'???!輸出一個記錄行,記錄長度為22?END程序2PROGRAM?average?REALsum,ave?INTEGERn?OPEN(1,file='score.dat')?PRINT*,'正在統(tǒng)計平均成績,請等待。'?sum=0.0;n=0?DO???READ(1,*,END=100)S???sum=sum+s???n=n+1?ENDDO100ave=sum/nWRITE(*,"('平均成績?yōu)椋?,F5.2
4、)")ave?PRINT*,'平均成績統(tǒng)計完畢。'END程序3本章《文件與設(shè)備》的例題ex1009一、本程序是一個寫入文件的程序,可以用來記錄全班同學的考試成績。二、源程序。moduletypedeftypestudentintegerchinese,english,mathendtypeendmoduleprogramexam1009usetypedefimplicitnoneintegerstudentstype(student),allocatable::s(:)character(len=80)::filename="data.txt"integer,parameter::filei
5、d=10integer::iwrite(*,*)"班上有多少學生?"read(*,*)studentsallocate(s(students),stat=i)if(i/=0)thenwrite(*,*)"allocatebufferfail."stopendifopen(fileid,file=filename)doi=1,students?write(*,"('請輸入'I2'號同學的中文、英文、及數(shù)學成績')")i?read(*,*)s(i).chinese,s(i).english,s(i).math?write(fileid,"('座號:'I2/'中文:'I3'英文:'I3'數(shù)學:'I
6、3)")i,s(i)?enddoclose(fileid)stopend程序4本章《文件與設(shè)備》的例題ex1008一、MODUL可以用來封裝程序模塊,通常用來把程序具有相關(guān)功能的函數(shù)及變量封裝在一起。二、源程序《使用MODULE》使用這些變量的子程序和函數(shù)只要USE這個MODULE就可以使用它們。moduleglobalimplicitnoneintegera,bcommona,bendmoduleprogramexam1008useglobalimplicitnonea=1b=2callsub()endprogramsubroutinesub()?useglobal?implicitnon
7、e?write(*,*)a,b?returnendsubroutine程序5本章《文件與設(shè)備》的例題ex1007一、請調(diào)試源程序。二、源程序《顯示文件內(nèi)容》programexam1007implicitnonecharacter(len=79)::filenamecharacter(len=79)::bufferinteger,parameter::fileid=10integer::status=0logi