工程分析程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告

工程分析程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告（FORTRAN95）順序結(jié)構(gòu)程序設(shè)計(jì)實(shí)驗(yàn)內(nèi)容1問題描述有一個(gè)邊長為8.5m的八邊形草地。計(jì)算八邊形草地的面積，并輸出。要求邊長和邊數(shù)從鍵盤輸入。邊長為單精度實(shí)數(shù)，面積為雙精度實(shí)數(shù)，邊數(shù)為100以內(nèi)的整數(shù)。流程圖開始開始輸入邊長和邊數(shù)：a,n輸入邊長和邊數(shù)：a,n計(jì)算三角形ABC面積：計(jì)算三角形ABC面積：area1計(jì)計(jì)算多邊形面積：area輸出多邊形輸出多邊形面積：area結(jié)束結(jié)束3.程序代碼ProgrammainParameter(pi=3.1415926)Integer(1)::nreal::aReal(8)::b,p,area1,areaprint*,'請輸入多邊形邊長和邊數(shù)：'Read*,a，nb=a/2/sin(pi/n)p=a/2+barea1=sqrt(p*(p-a)*(p-b)**2)Area=area1*nprint*,n,'邊形草地面積：',areaEnd4.運(yùn)行結(jié)果實(shí)驗(yàn)內(nèi)容21．問題描述貸款月利率為R，從銀行貸款D元，每月償還P元，計(jì)算還清貸款月數(shù)，并輸出。編寫程序?qū)崿F(xiàn)。要求R、D和P從鍵盤輸入。計(jì)算還清貸款月數(shù)通過以下公式計(jì)算:

M=(lgP-其中：M為還款月數(shù)結(jié)果為實(shí)數(shù)，最終結(jié)果要求為整數(shù)。2.流程圖開始開始輸入輸入R、D、P的值計(jì)算還款月數(shù)M（實(shí)數(shù)）計(jì)算還款月數(shù)M（實(shí)數(shù)）將M取整加1賦予M1將M取整加1賦予M1輸輸出還款月數(shù)M1結(jié)束結(jié)束3.程序代碼ProgrammainIntegerM1RealR,D,P,Mprint*,'請輸入貸款月利率、從銀行貸款錢數(shù)與每月償還錢數(shù)：'Read*,R,D,PM=(log10(P)-log10(P-D*R))/log10(1+R)M1=int(M)+1print*,’還清貸款月數(shù)為:：’,M1End4.運(yùn)行結(jié)果選擇結(jié)構(gòu)程序設(shè)計(jì)實(shí)驗(yàn)內(nèi)容1（P46-4）1、問題描述計(jì)算稅收。企業(yè)產(chǎn)值小于等于1000萬，稅率為3%；企業(yè)產(chǎn)值大于1000萬小于等于2000萬的部分，稅率為5%；企業(yè)產(chǎn)值大于2000萬小于等于5000萬的部分，稅率為7%；企業(yè)產(chǎn)值大于5000萬小于等于1億的部分，稅率為10%；企業(yè)產(chǎn)值大于1億小于等于5億的部分，稅率為14%；企業(yè)產(chǎn)值大于5億的部分，稅率為20%。輸入某企業(yè)年產(chǎn)值，計(jì)算當(dāng)年應(yīng)繳納稅值，并輸出。編寫程序?qū)崿F(xiàn)。分別用ＥＬＳＥＩＦ語句和ＳＥＬＥＣＴ語句來設(shè)計(jì)和編寫程序。2、流程圖開始開始輸入產(chǎn)值X輸入產(chǎn)值X是0<x<=是0<x<=1000Y=0.03xY=0.03x是1000<x<=2000是1000<x<=2000Y=30+（x-1000）*0.05Y=30+（x-1000）*0.05是2000<x<=5000是2000<x<=5000Y=80+（x-2000）*0.07Y=80+（x-2000）*0.07是5000<x<=10000是5000<x<=10000Y=290+（x-5000）*0.1Y=290+（x-5000）*0.110000<x<=5000010000<x<=50000是Y=790+（x-10000）*0.14是Y=790+（x-10000）*0.14x>50000x>50000是Y=6390+（x-50000）*0.2是Y=6390+（x-50000）*0.2輸出輸出稅收Y結(jié)束結(jié)束3、程序代碼（1）ＥＬＳＥＩＦ語句programmainrealtaxintegericprint*,'請輸入該企業(yè)年產(chǎn)值（萬元）：'read*,icif(ic<=1000.and.ic>0)thentax=0.03*icelseif(ic<=2000.and.ic>1000)thentax=0.03*1000+(ic-1000)*0.05elseif(ic<=5000.and.ic>2000)thentax=0.03*1000+0.05*1000+0.07*(ic-2000)elseif(ic<=10000.and.ic>5000)thentax=0.03*1000+0.05*1000+0.07*3000+0.1*(ic-5000)elseif(ic<=50000.and.ic>10000)thentax=0.03*1000+0.05*1000+0.07*3000+0.1*5000+0.14*(ic-10000)elsetax=0.03*1000+0.05*1000+0.07*3000+0.1*5000+0.14*40000+0.2*(ic-50000)endifprint*,'該企業(yè)應(yīng)繳納稅款'，tax,'萬元。'end（2）ＳＥＬＥＣＴ語句programmainrealtaxintegericprint*,'請輸入該企業(yè)年產(chǎn)值（萬元）：'read*,icselectcase(ic)case(0:1000)tax=0.03*iccase(1001:2000)tax=0.03*1000+(ic-1000)*0.05case(2001:5000)tax=0.03*1000+0.05*1000+0.07*(ic-2000)case(5001:10000)tax=0.03*1000+0.05*1000+0.07*3000+0.1*(ic-5000)case(10001:50000)tax=0.03*1000+0.05*1000+0.07*3000+0.1*5000+0.14*(ic-10000)casedefaulttax=0.03*1000+0.05*1000+0.07*3000+0.1*5000+0.14*40000+0.2*(ic-50000)endselectprint*,'該企業(yè)應(yīng)繳納稅款'，tax,'萬元。'end4、運(yùn)行結(jié)果ＥＬＳＥＩＦ語句 （2）ＳＥＬＥＣＴ語句循環(huán)結(jié)構(gòu)程序設(shè)計(jì)實(shí)驗(yàn)內(nèi)容1（P63-3）1、問題描述計(jì)算1-12+13開始2、流程圖開始輸入常數(shù)A輸入常數(shù)A,n=0,sum=0,total=0,k=1SSum<=A是N=n+1是N=n+1Sum=sum+n^2K<=nK<=n是是kk=k+1total=total+(-1)^(k+1)*k^(-1)輸出結(jié)果total輸出結(jié)果total結(jié)束結(jié)束3、程序代碼ProgrammainReal::total=0,kInteger::A,n=0,sum=0print*,'請輸入常數(shù)A：'read*,Adowhile(sum<=A)n=n+1sum=sum+n**2enddodok=1,ntotal=total+(-1)**(k+1)*k**(-1)enddoprint*,'該計(jì)算式的結(jié)果為：',totalend4、運(yùn)行結(jié)果數(shù)組實(shí)驗(yàn)內(nèi)容1（P68—2）1、問題描述輸入一個(gè)班級學(xué)生（人數(shù)≤40）的學(xué)號和3門課（英語、數(shù)學(xué)、物理）成績，計(jì)算每個(gè)學(xué)生的平均成績、每門課的平均成績和三門課的平均成績，統(tǒng)計(jì)高于每門課平均成績和三門課平均成績的人數(shù)和占總?cè)藬?shù)比例，輸出統(tǒng)計(jì)結(jié)果。編寫程序?qū)崿F(xiàn)。2、算法分析輸入學(xué)生人數(shù)N；采用計(jì)數(shù)型循環(huán)結(jié)構(gòu)輸入學(xué)生學(xué)號與三門課的成績，同時(shí)計(jì)算學(xué)生平均成績，統(tǒng)計(jì)三門課的總成績；計(jì)算三門課的平均成績；采用計(jì)數(shù)型循環(huán)結(jié)構(gòu)統(tǒng)計(jì)高于平均成績的人數(shù)及比例；統(tǒng)計(jì)輸出結(jié)果；結(jié)束。3、程序代碼ProgrammainParameter(max=40)Character*5num(max)Integereng(max),math(max),phy(max)Realave(max),eng_av,math_av,phy_av,taveReal:sum1=0,sum2=0,sum3=0Realp1,p2,p3,p4Integern,n1,n2,n3,n4Print*,'請輸入班級學(xué)生人數(shù)：'Read*,nWrite(*,"(30x,’學(xué)號英語數(shù)學(xué)物理')")DoI=1,nwrite(*,"(1x,'請輸入學(xué)生學(xué)號和各門成績',\)")read(*,100)num(I),eng(I),math(I),phy(I)Ave(i)=(eng(i)+math(i)+phy(i))/3.0sum1=sum1+eng(i)sum2=sum2+math(i)sum3=sum3+phy(i)Enddoeng_av=sum1/nmath_av=sum2/nphy_av=sum3/nTave=(eng_av+math_av+phy_av)/3.0Doi=1,nIf(eng(i)>eng_av)n1=n1+1If(math(i)>math_av)n2=n2+1If(phy(i)>phy_av)n3=n3+1If(ave(i)>tave)n4=n4+1Enddop1=real(n1)/np2=real(n2)/np3=real(n3)/np4=real(n4)/nWrite(*,200)'英語',n1,p1*100Write(*,200)'數(shù)學(xué)',n2,p2*100Write(*,200)'物理',n3,p3*100Write(*,200)'三門課',n4,p4*100100format(a5,3(3x,i2))200format(1x,'?高于',a,'平均成績的學(xué)生有',i2,'人，占總?cè)藬?shù)比例的',f4.1,'%')End4、運(yùn)行結(jié)果實(shí)驗(yàn)內(nèi)容2（P70—3）1、問題描述輸入4個(gè)整數(shù)放在數(shù)組中，數(shù)組元素向左循環(huán)移位1、2、3、4個(gè)位置，第一個(gè)元素移動(dòng)到最后一個(gè)元素，結(jié)果放在數(shù)組中，輸出移位前后的4個(gè)整數(shù)。如輸入2、5、8、3，輸出結(jié)果為下面方陣所示。編寫程序?qū)崿F(xiàn)。258358328325325825832、算法分析問題中涉及四個(gè)整數(shù)，符合數(shù)組定義，用一個(gè)整形數(shù)組X保存這些整數(shù)，便于處理。通過計(jì)數(shù)型循環(huán)完成移位，先從第一個(gè)元素X（1）開始移位，直到最后一個(gè)元素再將臨時(shí)變量T中值賦予最后元素。3、程序代碼ProgrammainParameter(n=4)integer::x(n)Print*,'請輸入4個(gè)整數(shù):'Read*,(x(j),j=1,n)Print100,(x(j),j=1,n)DoI=1,nt=x(1)Doj=2,nx(j-1)=x(j)EnddoX(n)=tPrint100,xEnddo100format(1x,<n>(i4,1x))End4、運(yùn)行結(jié)果語句函數(shù)實(shí)驗(yàn)內(nèi)容1（P87—6）1、問題描述使用牛頓迭代法求方程x3-2x2+x-1=0在x=1.5附近的實(shí)數(shù)根。使用語句函數(shù)編寫程序?qū)崿F(xiàn)。牛頓迭代公式有：x0=1.5xn+1=xn-f(xn)/f'(xn)(n=1,2,3，…)，其中f'(xn)是f(x提示：迭代公式計(jì)算使用語句函數(shù)完成。解題要求：（1）對問題進(jìn)行詳細(xì)分析，設(shè)計(jì)算法，繪制框圖，編寫程序；（2）將輸出數(shù)據(jù)以注釋形式編輯輸入到源程序文件末尾。2、算法分析迭代公式計(jì)算使用語句函數(shù)完成3、程序代碼ProgrammainF(x)=x**3-2*x*x+x-1G(x)=3*x*2-4*x+1real::a,x1,x2=1.5Dowhile(abs(x2-x1)>1e-7)X1=x2X2=x1-f(x1)/g(x1)EnddoPrint*,’此方程在x=1.5附近的實(shí)數(shù)根為：',x2End4、運(yùn)行結(jié)果內(nèi)部子程序?qū)嶒?yàn)內(nèi)容1（P92—3）1、問題描述從鍵盤輸入一批整數(shù)（允許有相同整數(shù)重復(fù)出現(xiàn)），個(gè)數(shù)不定（最多50）。對這批整數(shù)進(jìn)行從小到大排序，并統(tǒng)計(jì)奇數(shù)和偶數(shù)個(gè)數(shù)，輸出排序后整數(shù)和奇數(shù)、偶數(shù)個(gè)數(shù)。排序后，如果有相同整數(shù)，則將相同整數(shù)刪除剩下一個(gè)，統(tǒng)計(jì)刪除后剩余整數(shù)的奇數(shù)和偶數(shù)個(gè)數(shù)，輸出刪除后剩余整數(shù)和奇數(shù)、偶數(shù)個(gè)數(shù)。要求對整數(shù)輸入整數(shù)排序、整數(shù)輸出和整數(shù)刪除使用子例行程序?qū)崿F(xiàn)，要求對奇數(shù)、偶數(shù)個(gè)數(shù)統(tǒng)計(jì)使用函數(shù)子程序?qū)崿F(xiàn)。編寫程序?qū)崿F(xiàn)。2、算法分析輸入數(shù)據(jù)、對數(shù)據(jù)排序、統(tǒng)計(jì)奇數(shù)與偶數(shù)個(gè)數(shù)輸入數(shù)據(jù)、對數(shù)據(jù)排序、統(tǒng)計(jì)奇數(shù)與偶數(shù)個(gè)數(shù)偶數(shù)統(tǒng)計(jì)奇數(shù)統(tǒng)計(jì)整數(shù)刪除整數(shù)輸出整數(shù)排序偶數(shù)統(tǒng)計(jì)奇數(shù)統(tǒng)計(jì)整數(shù)刪除整數(shù)輸出整數(shù)排序整數(shù)輸入3、程序代碼programmainparameter(max=50)integera(max),n,n1,n2callinput(a,n)callsort(a,n)n1=odd(a,n)n2=even(a,n)print*,'這批整數(shù):'calloutput(a,n)print*,''print*,'這批整數(shù)奇數(shù)個(gè)數(shù):',n1print*,'這批整數(shù)偶數(shù)個(gè)數(shù):',n2calldele(a,n)n1=odd(a,n)n2=even(a,n)print*,'剩余整數(shù):'calloutput(a,n)print*,''print*,'剩余整數(shù)奇數(shù)個(gè)數(shù):',n1print*,'剩余整數(shù)偶數(shù)個(gè)數(shù):',n2containssubroutineinput(a,n)integera(max),nprint'(a\)','請輸入這批整數(shù)個(gè)數(shù)n:'read*,nprint'(a,i2,a\)','請輸入',n,'個(gè)整數(shù):'read*,(a(i),i=1,n)endsubroutinesubroutin