FORTRAN95程序设计实验.docVIP

Fortran95 程序设计实验 班级：核工11 姓名：薛院院 学号：2110302026  实验一 一.实验内容 一个边长为8.5m的边形草地。计算八边形草地的面积并输出。 二.问题分析（流程图） 开始 开始 输入边数与边长 输入边数与边长 计算三角形面积 计算三角形面积 计算多边形面积 计算多边形面积 结束 结束 三.程序 !核工程11 !薛院院 !2013.03.11 !计算8边形的面积 PROGRAM COLUMATE REAL(4) A !定义边长 REAL(8) B,P INTEGER(1) NUMBER !定义边数 REAL(8) AREAL !定义面积 PRINT*,请输入多边形的边数 READ*,NUMBER PRINT*,请输入多边形的边长 READ*,A B=A/2/sin(3.14/NUMBER) P=A/2+B AREAL=SQRT(P*(P-A)*(P-B)**2) PRINT*,该多边形的面积为：,AREAL END !输入边数 8 ； 输入边长8.5 !输出结果：43.631297090078 四.实验结果 实验二 实验内容 计算还清贷款的月算 问题分析 开始 开始 输入 输入RDP 计算还款月数 计算还款月数 将 将M取整加1，给与M1 输出 输出M1 结束 结束 程序 !核工