FORTRAN95程序设计实验.docx

Fortran95 程序设计实验 班级：核工11 姓名：薛院院 学号：2110302026 FORTRAN95程序设计实验全文共21页，当前为第1页。 FORTRAN95程序设计实验全文共21页，当前为第1页。 实验一 一.实验内容 一个边长为8.5m的边形草地。计算八边形草地的面积并输出。 二.问题分析（流程图） 开始 开始 输入边数与边长 输入边数与边长 计算三角形面积 计算三角形面积 计算多边形面积 计算多边形面积 结束 结束 三.程序 !核工程11 !薛院院 !2013.03.11 !计算8边形的面积 PROGRAM COLUMATE REAL(4) A !定义边长 REAL(8) B,P INTEGER(1) NUMBER !定义边数 FORTRAN95程序设计实验全文共21页，当前为第2页。REAL(8) AREAL !定义面积 FORTRAN95程序设计实验全文共21页，当前为第2页。 PRINT*,'请输入多边形的边数' READ*,NUMBER PRINT*,'请输入多边形的边长' READ*,A B=A/2/sin(3.14/NUMBER) P=A/2+B ARE