地球物理勘探数据处理程序设计实验内容2017.doc

中国矿业大学资源学院 《地球物理数据处理程序设计》 实验报告 班级 姓名 学号 实验1 Fortran编译器的安装使用 实验目的 编译器是将程序代码翻译成机器语言的工具，而IDE是将代码的编辑编译连接以及运行集成于一体的集成开发环境。由于计算机操作系统不断的发展，原有的编译器很大可能不能适应新的操作系统。本实验的目的在于使学生能够根据具体的操作系统（xp,win7,win8,win10,linux等）选择并获得合适的编译器产品，安装在个人电脑上，并能成功运行第一个简单程序。 实验内容 根据电脑的具体操作系统配置，选择合适的编译器 完成该编译器的安装，详细描述必要的安装过程； 完成一个简单程序的编译，给出编译和运行的截图。 实验报告内容 （1）实验名称 （2）实验目的与内容 （3）所选编译器简介 （4）安装过程描述及截图 （5）本次实验的收获、体会、意见、建议等。 实验2. 简单Fortran程序设计 实验目的 在学习了几个章节后，编制若干简短程序，加深对课上内容的理解和掌握，并逐渐学会调试代码。 实验内容 设某三角形三个顶点坐标分别为A（1.5，2.0），B（4.5,4.5），C（18.0,10.5），编程求三角形面积和重心。（提示：重心坐标=(A+B+C)/3， 三角形面积可采用公式：S=，p=（a+b+c）/2） 输入运行下列程序代码，并给每行语句进行注释。 program main complex:: da=(1.5,2.0) complex:: db=(4.5,4.5) complex::dc=(18.0,10.5) complex::center real a,b,c,p,area center=(da+db+dc)/3.0 a=abs(dc-db) b=abs(da-dc) c=abs(db-da) p=(a+b+c)/2.0 area=sqrt((p-a)*(p-b)*(p-c)*p) write(*,*) center,area end program main 编程，显示一个4字节浮点数（二进制字符串）的符号位、阶码、尾数。 编程，求满足如下条件的三位数：它除以9的商等于它的各位数字的平方和。例如224，它除以9的商为24，而2+2+4=24 输入并调试下面的完整程序： program main integer(kind=2) ge,shi,bai,shu,j,i shu=999 do while(shu99) ge=mod(shu,10) bai=shu/100 shi=(shu-bai*100)/10 j=shu/9 i=ge*ge+shi*shi+bai*bai if(j==i) write(*,*) shu shu=shu-1 enddo end program main (4) 编写程序，找出乘积为323的两个相邻的奇数。 (5) 编写程序，判断并输出1951-2020年间所有的闰年。 3. 实验报告内容 （1）实验目的 （2）实验内容 （3）各段程序代码及注释和运行结果 （4）本次实验的收获体会建议等 实验3. 函数 实验目的 掌握subroutine的定义和基本使用方法。 掌握function 的定义和基本使用方法。 掌握利用module进行全局变量定义和使用的方法。 实验内容 编写程序，从主程序输入两个整数，通过函数返回其最大公约数并显示； 编程，主程序从键盘输入一行字符，在子程序中将非字母符号去除后显示。 在module中定义三角形三个边的长度及三个内角，周长，面积等变量，在主程序中输入三个边的长度，在子程序中计算其余变量的值。 编写一段子程序，实现对任意实数数组的排序和输出 实验报告内容 实验目的；实验内容； 每个程序的代码以及运行结果 本次实验的体会与收获 实验4 Fortran的数据文件操作-文本文件 实验目的 掌握Fortran语言文本文件的读写方法和技巧，为电法勘探数据处理打好基础。 实验内容 编程，键盘输入10个数，将它们输出到一个文本文件中； 从上面的文本文件读入10个数，对它们进行排序后输出到屏幕上。 实验报告内容 实验目的 实验内容 自编程序的完整代码，运行过程描述及文件里的内容截图） 本次实验的