FORTRAN实验报告
FORTRAN实验报告2016LI
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验二选择结构程序设计
验证型
一、实验目的
（1）掌握逻辑表达式的书写方法和逻辑型数据的使用；
（2）学会正确使用逻辑运算符和逻辑表达式；
(3)掌握块IF结构、块CASE结构、逻辑IF语句和算术IF语句。
（1）掌握字符型、双精度型常量变量的表示方法及其运算；
（2）掌握字符型数据的输入输出格式及数据类型之间的转换和运算规则。
二、实验内容：
（1）编写程序：输入一个字符，若为小写字母，则输出其大写字母；若为大写字母，则输出其小写字母；若为数字，则原样输出该数字字符；否则，输出*。
（2）编写程序，用双精度数据计算：
（1）编写程序：从键盘输入若干字符串，并把这些字符串存放到文件FILE1.TXT中。
（2）编写程序，读出当前文件夹下文件README.TXT的内容，显示在屏幕上。
三、实验平台
Fortran PowerStation4.0
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
PRINT*,Y
READ*,N
END
五、调试和测试结果
实验一正常运行，共有143个素数，其和为75067
实验二正常运行，当输入m=10时，输出结果为445
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验四字符型数据程序设计
操作型
FORTRAN实验报告——牛顿插值
IV / 4
s(s+1) 2! s(s −1) 2!
∆2 f0 + ⋯ +
s s −1 …(s −n+1) n!
∆n f0
∇2 fN + ⋯ +
s s+1 …(s+n −1) n!
∇n fN
ERROR 0.0000009 ERROR 0.0000023
FORTRAN实验报告(一)
①整型：
PROGRAM ADD6_1
!输出9*9乘法表
INTEGER I,J
DO I=1,9
PRINT 10,(J,I,J*I,J=1,I) !隐性DO循环
输出：87 67.40 465 345.70
⑵输入：0087067.40
0046500345.70
输出：87 67.40
465 345.70
③指数形式：
PROGRAM XI6_2
!输入1234567891011121314151617181920
INTEGER A
REAL B,C
CHARACTER*10 D
1*3= 3 2*3= 6 3*3= 9
1*4= 4 2*4= 8 3*4=12 4*4=16
1*5= 5 2*5=10 3*5=15 4*5=20 5*5=25
1*6= 6 2*6=12 3*6=18 4*6=24 5*6=30 6*6=36
1*7= 7 2*7=14 3*7=21 4*7=28 5*7=35 6*7=42 7*7=49
STATEMENT
END SELECT
2、循环结构格式如下：
DO循环：DO I=E1,E2,E3
STATEMENT
[IF(L) EXIT]
[IF(L) CYCLE]
ENDDO
DO WHIEL循环：DO WHILE(LOGICAL)
STATEMENT
ENDDO
隐DO循环：(STATEMENT, I=E1,E2,E3)(可以嵌套使用)
工程分析程序设计实验报告
工程分析程序设计实验报告（FORTRAN 95）顺序结构程序设计实验内容 11.问题描述有一个边长为8.5m的八边形草地。
计算八边形草地的面积，并输出。
要求边长和边数从键盘输入。
边长为单精度实数，面积为双精度实数，边数为100以内的整数。
2.流程图3.程序代码Program mainParameter (pi=3.1415926)Integer (1)::nreal::aReal (8):: b, p, area1,areaprint*,'请输入多边形边长和边数：'Read*, a，nb=a/2/sin (pi/n)p=a/2+barea1=sqrt(p*(p-a)*(p-b)**2)Area=area1*nprint*,n,'边形草地面积：', areaEnd4.运行结果实验内容 21．问题描述贷款月利率为R，从银行贷款D元，每月偿还P元，计算还清贷款月数，并输出。
编写程序实现。
要求R、D和P从键盘输入。
计算还清贷款月数通过以下公式计算:⁄M=(lgP−lg(P−D∗R))lg(1+R)其中：M为还款月数结果为实数，最终结果要求为整数。
2.流程图3.程序代码Program mainInteger M1Real R,D,P,Mprint*,'请输入贷款月利率、从银行贷款钱数与每月偿还钱数：'Read*,R,D,PM= (log10 (P)-log10 (P-D*R))/log10 (1+R)M1=int(M)+1print*,’还清贷款月数为:：’,M1End4.运行结果选择结构程序设计实验内容 1（P46-4）1、问题描述计算税收。
企业产值小于等于1000万，税率为3%；企业产值大于1000万小于等于2000万的部分，税率为5%；企业产值大于2000万小于等于5000万的部分，税率为7%；企业产值大于5000万小于等于1亿的部分，税率为10%；企业产值大于1亿小于等于5亿的部分，税率为14%；企业产值大于5亿的部分，税率为20%。
计算流体力学实验报告fortran
中山大学本科生实验报告书差分格式A、B、C的fortran 编程院系工学院应用力学与工程系专业班级理论与应用力学10级实验课程计算流体力学姓名_________ 程彬______________ 学号10332054 _________________ 实验地点中山大学东校区实验中心实验时间2012 年4月5日指导教师________ 詹杰民____________一实验目的通过实验使用fortran语言编写差分格式A B、C数值求解一维对流方程，更加了解不同差分格式求解方程的解的不同，熟练掌握fortra n语言编程技巧。
二实验说明1 、一维对流方程0, -8二x 二8 t 0.:t ；:x(x, 0) =1 x -1 _x _0(x, 0) = —x 1 0 乞x 乞1(x, 0) = 0 x ：： -1 或x 12、fortran 程序主程序program firstimplicit nonein teger i,j,kreal A(-160:160,0:100)REALR!dt/dx=1R=0.5K=160call comu(A,R,K)OPEN10,FILE= 'test2.xls' ) do j=32,32 ! n=30do i=-40,40WRITE10,*) A(i,j)en ddoen ddopauseend program first差分A格式的子程序subrout ine comu(A,R,K)real A(-160:160,0:100)A(-160:-21,0)=0A(21:160,0)=0do i=-20,0a(i,0)=i*0.05+1enddodo i=1,20a(i,0)=1-i*0.05enddodo j=1,100do i=-k+1,k-1A(i,j)=A(i,j-1)-R/2.0*(A(i+1,j-1)-A(i-1,j-1)) enddoenddoend subroutine差分 B 格式的子程序subroutine comu(A,R,K)real A(-160:160,0:100)A(-160:-21,0)=0A(21:160,0)=0do i=-20,0a(i,0)=i*0.05+1enddodo i=1,20a(i,0)=1-i*0.05enddodo j=1,100do i=-k+1,k-1A(i,j)=A(i,j-1)-R*(A(i+1,j-1)-A(i,j-1))enddoenddoend subroutine差分 C 格式的子程序subroutine comu(A,R,K) real A(-160:160,0:100) A(-160:-21,0)=0A(21:160,0)=0 do i=-20,0a(i,0)=i*0.05+1en ddo do i=1,20 a(i,0)=1-i*0.05 en ddo do j=1,100 do i=-k+1,k-1A(i,j)=A(i,j-1)-R*(A(i,j-1)-A(i-1,j-1)) en ddo en ddo end subrout ine2、执行结果差分A 格式在t=0.5s 、0.8s 时不同R 值下的图像差分B 格式在t=0.5s 、0.8s 时不同R 值下的图像A 恪式1. 20E+001,OOE+OO& OOE-Ol6.00E-01 山00E-01 iOCE-Ol 0.00E+00 -2.0CE-01 T. 0CE-01A 格式 R=0. 5T=0. 8A 格式 R=1 T=0 8垂列］3. 008+01 -2. 00E+D12. 00E+D11.00B+01 0. Offi+OD-1. OOB+Ol.9 ir|ps 331les 73Hr加格式K=2 T=D. 5■式 x~=2"1=0. 8--- 丢列:B格武R=O. 5T=O. 5G. OOE4-O31. OOE4-O32. OOE4-O3O. OOE4-OO —2.OOE-HO3 —4. OOE-HO3 —G. OOE-HO3 —S.OOE+O3B 格式R=1T=O. 5B 格式R=1T=O・83. OOE+O52. OOE+O51.OOE+O50. OOE+OO—1. OOE+O5-2. OOE+O5-3. OOE+O5----- 系歹111B格式R=0. 5 T=0.8——系列1I.00E+022.00E+020.00E+00 -2.00E+02 -1. 00E+02 -6. 00E+02系列1B格式R=2 T=0,5差分C格式在t=0.5s > 0.8s时不同R值下的图像(:格式R=0. 5 T-0. 5C格式R=0. 5T=0. 81.00E+008.00E-016. OOE-OlLOOE-Ol2.OOE-Ol0.OOE+OOLOOE+Ol-3.OOE+Ol1Li i i i i i i i i i i 1 1 i i _d[ 1 I ill [ | i i i i i i i I i I-L A I卩 1 1 [ 1 1 1 1 1 1 1 1 1 ■心 || 1 ih」1i 1 i 1 1 1 1 1 i 1 i」iiiln Q伐iqpi ■出西A A11 IS It] 5：^ 制1订亦£0 二 1 ■: K1"呷1EE1系列1系列13.00E+012.00E+01L00E+01O.OOE+OO-1. OOE+Ol-2. OOE+OlC格式R二1 T二0. 81. 20E+00 1. 00E+00 8.00E-01 6.00E-011.00E-012.00E-010.00E+001 20395877C格式R=1 T二0.5C格式R二2T=0. 5系列11. 00E+00 3.00E+002.00E+00 1.00E+00 0.00E+00 -l.OOE-KIO -2.OOE-H5O -3.00EXI03、实验分析由图像可知，A 格式在?t/?x 较小时，且t 也非常非常小时，图像 与精确值浮动不大，而当？ t/?x 较大，且随t 变化图像稳定性越差。
fortran有限元程序课程设计
fortran有限元程序课程设计一、课程目标知识目标：1. 掌握Fortran语言的基本语法和程序结构；2. 理解有限元方法的基本原理及其在工程问题中的应用；3. 学会使用Fortran编写有限元程序，解决简单的物理问题；4. 了解有限元程序的调试与优化方法。
技能目标：1. 能够运用Fortran语言编写简单的有限元程序；2. 能够对有限元程序进行调试和性能优化；3. 能够运用所学知识解决实际工程问题，具备一定的编程实践能力；4. 能够通过团队合作，共同完成较复杂的有限元程序编写。
情感态度价值观目标：1. 培养学生对编程和计算物理学的兴趣，激发学生的求知欲和探索精神；2. 培养学生严谨、细致、勤奋的学习态度，提高学生的问题解决能力；3. 培养学生的团队合作精神，提高沟通与协作能力；4. 增强学生的民族自豪感，认识我国在有限元领域的发展成果。
课程性质：本课程为高年级专业选修课，旨在使学生掌握Fortran有限元程序的编写和应用，提高学生的编程实践能力和解决实际问题的能力。
学生特点：学生已具备一定的数学、物理和编程基础，具有较强的逻辑思维能力和动手能力。
教学要求：结合课本内容，注重理论与实践相结合，强化编程实践，提高学生的实际操作能力。
同时，注重培养学生的团队合作精神，提高学生的综合素质。
通过本课程的学习，使学生能够独立编写和优化有限元程序，为后续学习和工作打下坚实基础。
二、教学内容1. Fortran语言基础：变量定义、数据类型、运算符、控制结构、数组、函数与子程序等；2. 有限元方法原理：有限元离散化、单元划分、形函数、刚度矩阵、载荷向量、边界条件处理等；3. 有限元程序编写：根据实际问题，运用Fortran语言编写有限元程序，包括前处理、核心计算和后处理；4. 程序调试与优化：调试技巧、性能分析、优化方法等；5. 实际工程案例：选取具有代表性的工程问题，运用所学的Fortran有限元程序解决。
fortran课程设计
fortran课程设计一、课程目标知识目标：1. 掌握Fortran编程语言的基本语法和结构；2. 理解Fortran程序的基本运行流程和控制逻辑；3. 学会使用Fortran进行简单的数值计算和数据处理。
技能目标：1. 能够独立编写简单的Fortran程序，并进行调试和优化；2. 能够运用Fortran语言解决实际问题，如求解线性方程组、计算函数值等；3. 能够阅读和分析Fortran程序，理解程序的设计思路和算法。
情感态度价值观目标：1. 培养学生对编程的兴趣，激发学习主动性和积极性；2. 培养学生严谨、细致的编程习惯，注重代码质量和效率；3. 增强学生的团队合作意识，学会与他人合作解决问题。
课程性质：本课程为计算机编程入门课程，以实践为主，理论联系实际，注重培养学生的动手能力和编程思维。
学生特点：学生为初中生，具备一定的数学基础和逻辑思维能力，对计算机编程有一定的好奇心。
教学要求：结合学生特点和课程性质，采用案例教学、任务驱动等方法，引导学生主动探索，注重实践操作和课堂互动。
在教学过程中，将课程目标分解为具体的学习成果，以便进行教学设计和评估。
二、教学内容1. Fortran基础知识- 程序结构及基本语法- 数据类型与变量定义- 运算符与表达式- 控制结构（顺序、选择、循环）2. 简单数值计算与数据处理- 数组的使用- 函数与子程序- 简单的输入输出操作- 常用数学函数与模块3. 程序设计方法- 任务分析与问题求解- 算法设计- 编码实现与调试- 代码优化与效率分析4. 实践项目与案例分析- 线性方程组求解- 函数绘图- 数据排序与查找- 综合案例分析与实现教学内容根据课程目标制定，涵盖Fortran编程基础、数值计算与数据处理、程序设计方法等方面。
教学大纲明确教学内容安排和进度，结合教材章节进行组织。
在教学过程中，将依据学生的掌握程度，适时调整教学进度，确保内容的科学性和系统性。
教学内容与实践项目相结合，提高学生的实际操作能力和问题解决能力。
实验报告二 经验正交分解
气象统计分析与预报方法 课程实验报告实验名称 实验二 经验正交函数分解系 别 大气科学 姓 名 学 号 班 级应气101实验地点 机房 实验日期 11月13日评 分指导老师肖国杰同组其他成员一、实验内容（含实验原理介绍）：实验所提供的资料为NCEP/NCAR 59年（1948年-2006年）逐年1～12月的850hPa 高度场资料，资料范围为（90N-90S ，0E -360E ），网格距为2.5*2.5，纬向格点数为144，经向格点数为73。
资料为NC 格式，资料从南到北、自西向东排列，每月为一个记录，按年逐月排放，注意读取方式以及记录长度。
对（0N -90N ，60E -120W ）850hPa 高度场进行经验正交展开（EOF.FOR ），输出分析主要参数指标；绘制环流型图和相应的时间系数序列图，并加以分析。
本实验运用EOF 方法：EOF （经验正交函数分解）是针对气象要素场进行的，其基本原理是把包含p 个空间点（变量）的场随时间变化进行分解。
设抽取样本容量为n 的资料.则场中任一空间点i 和任一时间点j 的距平观测值ij x 可看成由p 个空间函数ik v 和时间函数kj y (k=1,2,…,p)的线性组合,表示成11221pij ikkj i j i j ip pj k x vy v y v y v y ===+++∑EOF 功能是从一个气象场多次观测资料中识别出主要空间型及其时间演变规律。
EOF 展开就是将气象变量场分解为空间函数（V ）和时间函数（T ）两部分的乘积之和： X=VT 。
应用步骤：资料预处理(距平或标准化处理)计算协方差矩阵、用Jacobi 方法或迭代法计算协方差矩阵的特征值与特征向量、将特征值从大到小排列、计算特征向量的时间系数、计算每个特征向量的方差贡献、结果输出二、实验目的：经验正交函数分解（EOF）是统计天气分析中气象要素场最基础的研究模型，是必须理解和掌握的方法之一，是后续课程中许多气象要素场的计算结果的理解的基础理论，也是毕业设计和论文中的基本分析方法。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
（2）掌握循环结构的实现方法；
(3)掌握循环嵌套的执行过程。
二、实验内容：
（1）编写程序，求100~1000之间的所有素数，要求输出这些素数的个数和平均值。
（2）编写程序， ，其中 。
当m=10时,Y的值是多少？
三、实验平台
Compaq VisualFortran 6.5
1 1 1 1 1 1
2 2 2 2 2 2
3 3 3 3 3 3
4 4 4 4 4 4
5 5 5 5 5 5
三、实验平台
Compaq Visual Fortran 6.5
四、程序清单及运行结果
要求：第1题写出运行结果，第2题写出程序清单。
五、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验八文件操作
操作型
一、实验目的
（1）掌握文件与记录的概念；
（2）掌握文件的打开和关闭；
(3)掌握文件的存取方法。
二、实验内容：
（1）编写程序：从键盘输入若干字符串，并把这些字符串存放到文件FILE1.TXT中。
（2）编写程序，读出当前文件夹下文件README.TXT的内容，显示在屏幕上。
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验六子程序程序设计
操作型
一、实验目的
（1）掌握语句函数的定义及引用方法、函数子程序和子例行子程序的结构和调用方法；
（2）掌握FORTRAN程序单元间的数据传递方法。
二、实验内容：
（1）若Fibonacci数列的第n项记为fib(a,b,n)，则有下列的递归定义：
DO i=1,NUM
READ *,clerk(i).name, clerk(i).salary, clerk(i).award, clerk(i).cost
END DO
DO J=1,NUM
IF(clerk(j).salary + clerk(j).award –clerk(j).cost>=1200)THEN
(4)理解动态变量的含义。
二、实验内容：
1、有以下程序：
IMPLICIT NONE
TYPE person
CHARACTER name *8
REAL salary
REAL award
REAL cost
END TYPE
INTEGER I,J,NUM
PARAMETER (NUM=10)
TYPE (person) , DIMENSION ( NUM )::clerk
（1）掌握数组的定义及赋值和输入输出的方法；
（2）熟悉数组在内存中的存储顺序(按列存储)；
(3)掌握数组赋初值的方法；
(4)掌握与数组有关的算法。
二、实验内容：
（1）编写程序，利用冒泡排序法把输入的一列无序的数据按由小到大的顺序排列。
（2）编写程序，其功能是：计算给定的20个数据与平均值之差的绝对值之和。
1
21
32 1
43 2 1
54 3 2 1
IMPLICIT NONE
INTEGER，POINTER：：p(：)
INTEGER，TARGET：：X(5,5)
INTEGER i
x=0
DO i=1,5
p=>x(1:i,1)
p=p+1
PRINT *,p
END DO
END
请将程序略作修改，用于输出下列图形：
(1) (2)
二、实验内容：
（1）编写程序，将华氏温度转化为摄氏温度，公式为： 。要求：输入一个华氏温度值F，按照公式将其转化为摄氏温度值C。
（2）编写程序，其功能是：输入a,b,x的值，计算并输出y的值。
当x=1.234,a=-5,b=0.9876时，y=。
三、实验平台
Compaq VisualFortran 6.5
“Henry”,926,660,314
“Ervine”,676,481,103
“Ford”,816,351,89
“George”,936,451,145
“Mailer”,766,480,98
“Philip”,880,560,168
“Victor”,660,440,86
输出结果为：。
2、以下程序用于在屏幕上输出如下图形：
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验七派生类型和指针程序设计
操作型
一、实验目的
（1）掌握结构体的概念、定义义；
(3)掌握指针的概念、定义格式和使用；
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验四字符型数据程序设计
操作型
一、实验目的
掌握字符型数据的输入输出格式及数据类型之间的转换和运算规则。
二、实验内容：
（1）编写程序：输入一个字符，若为小写字母，则输出其大写字母；若为大写字母，则输出其小写字母；若为数字，则原样输出该数字字符；否则，输出*。
（2）编写程序，输入一个自然数，若为奇数则输出其平方根，否则输出其立方根。
三、实验平台
Compaq VisualFortran 6.5
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验三循环结构程序设计
操作型
一、实验目的
fib(a,b,1)=a
fib(a,b,2)=b
fib(a,b,n)=fib(b,a+b,n-1) (n>2)
用递归方法求5000之内最大的一项。
（2）设 ，编写程序求sh(2)-sh(3)。
(3)编写求阶乘及累加和的函数，调用函数求：
当m=10时，S=。
三、实验平台
Compaq Visual Fortran 6.5
三、实验平台
Compaq Visual Fortran 6.5
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
二、实验内容：
（1）编写程序，输入年、月，求该月的天数。
用year、month分别表示年、月，day表示每月的天数。注意：
①每年的1，3，5，7，8，10，12月，每月31天；4，6，9，11月每月30天；2月闰年为29天，平年为28天。
②年份能被4整除，但不能被100整除，或者能被400整除的年均为闰年。
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验一顺序结构程序设计
验证型
一、实验目的
（1）熟悉Compaq Visual Fortran 6.5的集成开发环境和上机步骤；
（2）掌握源程序的书写格式；
(3)掌握FORTRAN 95中基本数据类型及其描述、运算；
(4)掌握基本语句的使用。
DEMENSION A(20)
DATA A/3.5,1.5,-2.5,4.5,2.5,3.0,5.5,-6.5,3.5,2.5,&
1.5,2.5,4.5,-3.0,2.6,3.4,6.3,-3.8,5.2,-1.6/
三、实验平台
Compaq Visual Fortran 6.5
四、程序清单
五、调试和测试结果
（2）编写程序：输入一个英文句子，将其中的小写字母转换成大写字母后输出。
三、实验平台
Compaq Visual Fortran 6.5
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验五数组操作
操作型
一、实验目的
四、程序清单
五、调试和测试结果
六、教师批语与成绩评定：
年月日
《FORTRAN语言》实验（上机）报告
班级·学号姓名实验日期任课教师
实验名称
实验二选择结构程序设计
验证型
一、实验目的
（1）掌握逻辑表达式的书写方法和逻辑型数据的使用；
（2）学会正确使用逻辑运算符和逻辑表达式；
(3)掌握块IF结构、块CASE结构、逻辑IF语句和算术IF语句。
PRINT * ,clerk(j).name, clerk(j).salary, clerk(j).award, clerk(j).cost
END IF
END DO
END
运行程序，输入以下数据：
“Lister”,876,451,123
“Angel”,746,523,23
“Billy”,912,551,243