资源描述：
《程序设计实验报告》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、河北大学工商学院fortran程序设计实验报告年级2010级学号姓名王丽丽成绩专业土木工程实验地点B3-216指导教师袁满实验项目输入输出和声明语句实验日期2012-3-2一、实验目的：练习fortran语言中的输入输出和声明语句的使用二、实验要求：阅读书上例题并调试运行三、实验结果及分析programe41implicitnoneintegerarealbcomplexclogicaldcharacter*(20)ea=10b=12.34c=(1,2)d=.true.e="fortran"write(*,100)a运行结果：100format(1x,i5)write(*
2、,200)b200format(1x,f5.2)write(*,300)c300format(1x,f4.1,f4.1)write(*,400)d400format(1x,l3)write(*,500)e500format(1x,a10)End河北大学工商学院fortran程序设计实验报告年级2010级学号姓名王丽丽成绩专业土木工程实验地点B3-216指导教师袁满实验项目输入输出和声明语句实验日期2012-3-9一、实验目的：练习fortran语言中的输入输出和声明语句的使用二、实验要求：练习使用输入输出和声明语句三、实验结果及分析（1）programt0402运行结果：
3、realr,mj,zcwrite(*,*)"请输入圆的半径"read(*,*)rpai=3.14mj=r*r*paizc=2*pai*rwrite(*,*)"圆的面积是：",mjwrite(*,*)"圆的周长是：",zcstopendprogramt0402endprogramt0403（2）programt0401运行结果：realra,rbintegera,ba=2b=3ra=2.0rb=3.0write(*,*)b/a整型变量只保留数值的整数位，小数部分舍去。write(*,*)rb/rastopend（3）programt0405运行结果：implicitnone
4、typedistancerealcmrealmrealinchendtypedistancetype(distance)awrite(*,*)"请输入公尺数："read(*,*),a%ma%cm=a%m*100a%inch=a%cm/2.54write(*,*)"米数：",a%mwrite(*,*)"厘米数：",a%cmwrite(*,*)"英寸数：",a%inchstopendprogramt0405河北大学工商学院Fortran程序设计实验报告年级2010级学号姓名王丽丽成绩专业土木工程实验地点B3-216指导教师袁满实验项目练习VisualFortran的使用实验日
5、期2012-3-16一、实验目的：练习fortran中选择、判断、分支语句的写法。二、实验要求：阅读例题并调试运行三、实验结果及分析programe51implicitnoneintegerscorecharactergradewrite(*,*)"Score:"运行结果：read(*,*)scoreif(score>=90.and.score<=100)thengrade='A'elseif(score>=80.and.score<90)thengrade='B'elseif(score>=70.and.score<80)thengrade='C'elseif(scor
6、e>=60.and.score<70)thengrade='D'elseif(score>=0.and.score<60)thengrade='E'elsegrade='?'endifwrite(*,"('Grade:',A1)")gradestopend河北大学工商学院Fortran程序设计实验报告年级2010级学号姓名王丽丽成绩专业土木工程实验地点B3-216指导教师袁满实验项目练习VisualFortran的使用实验日期2012-3-23一、实验目的：练习fortran中选择、判断、分支语句的写法。二、实验要求：习题练习三、实验结果及分析（1）programe050
7、1运行结果：implicitnonerealshou,lv,shuiwrite(*,*),"请输入收入："read(*,*),shouif(shou<1000)thenlv=0.03elseif(shou>=1000.and.shou<5000)thenlv=0.1elselv=0.15endifshui=shou*lvwrite(*,*),"所应交税额为："write(*,*),shuistopend（2）programe0502运行结果：implicitnoneintegeracharacter(len=10)bwrite
