资源描述：
《FORTRAN95程序的设计实验.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Fortran95程序设计实验班级：核工11姓名：薛院院学号：2110302026...实验一一.实验内容一个边长为8.5m的边形草地。计算八边形草地的面积并输出。二.问题分析（流程图）开始输入边数与边长计算三角形面积计算多边形面积结束三.程序!核工程11!薛院院!2013.03.11!计算8边形的面积PROGRAMCOLUMATEREAL(4)A!定义边长REAL(8)B,PINTEGER(1)NUMBER!定义边数REAL(8)AREAL!定义面积...PRINT*,'请输入多边形的边数'R
2、EAD*,NUMBERPRINT*,'请输入多边形的边长'READ*,AB=A/2/sin(3.14/NUMBER)P=A/2+BAREAL=SQRT(P*(P-A)*(P-B)**2)PRINT*,'该多边形的面积为：',AREALEND!输入边数8；输入边长8.5!输出结果：43.631297090078四.实验结果...实验二一.实验内容计算还清贷款的月算二.问题分析开始输入RDP计算还款月数将M取整加1，给与M1输出M1结束三.程序!核工程11!薛院院!2013.03.11!计算还清贷款
3、的月数!PROGRAMCALUCATEREALP,D,R,M...INTEGERM1PRINT*,'请分别输入贷款月利息贷款数以及每月尝还数'READ*,P,D,RA=LOG10(1.0)PRINT*,AM=(LOG10(P)-LOG10(P-D*R))/LOG10(1+R)M1=INT(M+0.5)PRINT*,M1END一.实验结果...实验三一.实验内容用case结构和seclect语句实现税值计算二.问题分析（流程图）开始输入企业产量用case语句计算缴纳的税值输出缴纳的总税值结束三.程
4、序!核工11!薛院院!2110302026!计算应该缴纳的税programcalucate_moneyintegerincomereal::income_ratereal::rate_1=0.03,rate_2=0.05,rate_3=0.07,rate_4=0.10,rate_5=0.14,rate_6=0.20...print*,'请输入收入（以万为单位）：'read*,incomeselectcase(income)case(0:1000)income_rate=income*rate_1
5、print*,'缴纳的税为：',income_ratecase(1001:2000)income_rate=income*rate_2print*,'缴纳的税为：',income_ratecase(2001:5000)income_rate=income*rate_3print*,'缴纳的税为：',income_ratecase(5001:10000)income_rate=income*rate_4print*,'缴纳的税为：',income_ratecase(10001:50000)inco
6、me_rate=income*rate_5print*,'缴纳的税为：',income_ratecasedefaultincome_rate=income*rate_6print*,'缴纳的税为：',income_rateendselectend四.实验结果...实验四一.实验内容计算1-12+13-14……+(-1)n+11n，其中n满足1+22+32……..+n2>a二.问题分析（流程图）开始输入用case语句计算缴纳的税值输出缴纳的总税值结束三.程序!班级：核工11!姓名:薛院院!日期：4
7、.8!计算级数之和programmainreal::sum=1,term,sign=1,s=0integer::a,i,n=0...print*,'请输入一个较大的数（如10000）'read*,adowhile(s<=a)n=n+1s=s+n**2enddodoi=1,nsign=-1*signterm=sign/isum=sum-termenddoprint*,sumend四.实验结果...实验五一.实验内容计算学生的平均成绩，每门课的平均成绩，三门课的平均成绩以及统计高于每门课的成绩和三门
8、平均成绩的学生人数和占总人数的比例二.问题分析（流程图）开始输入学生人数输入每个人学生的学号，三门成绩计算每个学生的平均成绩计算每门课平均成绩计算3门课平均成绩统计高于每门课平均成绩和三门课平均成绩的人数及比例...输出上述计算值结束三.程序!班级：核工程11!姓名：薛院院!学号:2110302026!统计人数及比例programmainparameter(max=5)character*5::number(max)integer,dimension(3)::english,math,physi
