主程序外部例程

1、工程分析程序設(shè)計上機作業(yè)(五)模塊化編程上機目的：掌握內(nèi)部例程、主程序、外部例程、模塊等功能的使用方法。1、有一個六邊形，求其面積。為求面積，作了 3條輔助線。如圖所示：(提示，三角形面 a b c積=Js(s_a)(s_b)(sc),其中s=-,a、b、c為三個邊長)。要求用內(nèi)部函數(shù)來計算每個三角形的面積。2、編寫一個子例程子程序，SUM(S, T, N1 , N2)。把整型數(shù) N1到N2進行求和，并把求和的結(jié)果放置到 S,把整型數(shù)N1到N2進行求積，并把求積的結(jié)果放置到To并用這個子程序來計算：y =(1 2 3 4) (3 4 5 6 7 8) (3*4*5*6)-(1*2*3)3、編寫

2、函數(shù)子程序 GDC求兩個數(shù)的最大公約數(shù)。求最大公約數(shù)的算法如下：把兩個數(shù)中 大的那個數(shù)作為被除數(shù)，兩數(shù)相除得到一個余數(shù)。把余數(shù)去除除數(shù)得到新一輪的余數(shù)。 不斷重復這一過程直到余數(shù)為0,這時的除數(shù)就是兩個數(shù)的最大公約數(shù)。調(diào)用此函數(shù)，求1260, 198, 72三個數(shù)的最大公約數(shù)。n4、編寫一個模塊程序，提供以下服務：定義出常量冗、e。定義出子程序，實現(xiàn)求和 工n2、i T求階乘n!。并在主程序中計算如下結(jié)果：從鍵盤上輸入整數(shù)n,求產(chǎn)丁、(實型)。|£ n2id357 XXX 5、編寫外部函數(shù)，計算sinx=x-+十 .的值，直到取后一項的絕對值小于3!5!7!10-6為止。再編寫主程序

3、，從鍵盤讀入x,調(diào)用該外部函數(shù)并輸出sinx的計算結(jié)果。注意不能用Fortran的標準函數(shù)SIN(X)。6、編寫程序，用歐拉法數(shù)值求解一階微分方程。數(shù)值解法的基本思想：用差分方程代替微分方程，然后在若干個離散點上逐點求解差分方程，得到各離散點xo, xi, X2,等處函數(shù)一-=f (x, y(x)的近似值yo, yi, y2,。其中 dx各離散點xo, Xi, X2,之間的距離稱為步長 h o歐拉法的基本思想是，一階微分也可用向前差分代替，即dx分方程，可得yn 1 - ynhf(Xn，yn)因此，yn 書電 yn +h* f(Xn,yn),其中 h = Xn 書-Xn。當給定X0, y0和步長h后，即可按下面步驟求得數(shù)值解:Xo一 、0f (x0 , y0 ) = y1yy。X1，f(X1，y1)=f X2,y2二1X2請按上述方法編寫程序用Euler法求解微分方程dy = y2dx，1，、y電一(yn中-yn)。甲入被 hyn2X