主程序外部例程_第1页
主程序外部例程_第2页
主程序外部例程_第3页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、工程分析程序设计上机作业(五)模块化编程上机目的：掌握内部例程、主程序、外部例程、模块等功能的使用方法。1、有一个六边形，求其面积。为求面积，作了3条辅助线。如图所示：(提示，三角形面a + b + c积=s(s-a)(s-b)(s-c)，其中s，a、b、c为三个边长)。要求用内部函数来计算每个三角形的面积。2、编写一个子例程子程序，SUM(S，T，N1，N2)。把整型数 N1到N2进行求和，并把求和的结果放置到 S,把整型数N1到N2进行求积，并把求积的结果放置到T。并用这个子程序来计算：(1 2 3 4) (3 4 5 6 7 8) (3*4*5*6)-(1*2*3)3、编写函数子程序 G

2、DC求两个数的最大公约数。求最大公约数的算法如下：把两个数中 大的那个数作为被除数，两数相除得到一个余数。把余数去除除数得到新一轮的余数。不断重复这一过程直到余数为0,这时的除数就是两个数的最大公约数。调用此函数，求1260，198，72三个数的最大公约数。n4、编写一个模块程序，提供以下服务：定义出常量二、e。定义出子程序，实现求和 、n2、n !求阶乘n!。并在主程序中计算如下结果：从键盘上输入整数n，求一n一(实型)。| n2id357XXX5、编写外部函数，计算sinx=x.的值，直到最后一项的绝对值小于3!5!7!10-6为止。再编写主程序，从键盘读入x,调用该外部函数并输出sinx

3、的计算结果。注意不能用Fortran的标准函数SIN(X)。6、编写程序，用欧拉法数值求解一阶微分方程。数值解法的基本思想：用差分方程代替微分方程，然后在若干个离散点上逐点求解差分 方程，得到各离散点x0, X1, x2,等处函数一=f x, y(x)的近似值yo, y1, y2,。其中dx各离散点xo, xi, X2,之间的距离称为步长h。欧拉法的基本思想是，一阶微分鱼可用向前差分代替，即y丄(yn 1 - yn)。带入微dxh分方程，可得yn 1 一 ynf (Xn, yn)h=o.1，试求出当 xi=o.1,o.2,o.3,o.4时的Dyi 值。因此，yn 1、yn h* f(Xn,yn)，其中 h = X. i - X.。当给定Xo, yo和步长h后，即可按下面步骤求得数值解:Xoyof(xo, y)=X1 fSif 匸X2 JY

人人文库> 全部分类> 行业资料 > 信息产业

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论