Fortran练习题

《Fortran练习题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Fortran练习题1.输出a，b，c的值，其中a=28,b=34,c=60.5integera,b,c定义整型integera=28;b=34;c=60.5‘=’为赋值符号，把右赋给左print*,'a=',a,'b=',b,'c=',c输出格式：print*,’文字内容’,该输出变量end结束必须以end作结2.输出x和y的值realx,y定义实型realprint*,'输入x和y:'read*,x,y读入格式：read*,读入变量print*,x,yend3.求三个数的和及平均值realsum,averead*,a,b,csum=a+b+cave=sum/3print*,'

2、和为',sumprint*,'平均值为',aveend4.现有长1500m宽1000m的地块要拍卖建造住宅小区，地块中央有一半径为100m的圆形公共绿地不属于拍卖范围，每平方米地价为0.5万元，编写程序计算该地块拍卖总价，并输出。realarea,moneyread*,a,b,rarea=a*b-3.14*r**2ab为a**bmoney=area*0.5print*,'总价为',money,'万元'print*,'地长为',aprint*,'地宽为',bprint*,'绿地半径为',rend5.求三个数中的最大数与最小数realmax_x,min_xread*,a,b,cmin_

3、x=aif(bmax_x)thenmax_x=bshirley1Fortran练习题endifif(c>max_x)thenmax_x=cendifprint*,'最大值：',max_xprint*,'最小值：',min_xend6.输入学生成绩，评价成绩的优、良、中、及格和不及格，并输出read*,sif(s<60)thenprint*,'该生成绩为不及格'elseif(s<70)thenels

4、eif表示另一个if，但是条件已将if的条件去除print*,'该生成绩为及格'elseif(s<80)thenprint*,'该生成绩为中'elseif(s<90)thenprint*,'该生成绩为良'elseelse表示在if，elseif所包含的条件以外的情况时print*,'该生成绩为优'endifend7.求2到100之内的素数，并输出integern,w,in=3dowhile(n<=100)dowhile循环表示在满足括号内条件时运行的循环w=0;i=2dowhile(i<=(n-1).and.w==0).and.表示逻辑条件和，两个前后两个条件同时满足if(mod(n

5、,i)==0)thenmod(a,b)函数表示求余，a÷b=c……d的d为结果w=1elsei=i+1endifenddodo，dowhile后跟enddo作结if(w==0)then‘==’表示相等print*,n,'不是素数'elseprint*,n,'是素数'endifn=n+1enddoend8.判断一个整数N能否被3和5整除read*,nif(mod(n,3)==0.and.mod(n,5)==0)thenshirley2Fortran练习题print*,n,'能被3和5整除'elseprint*,n,'不能被3和5整除'endifend9.求s=∑n!（20）integ

6、er::n,i,k,sum=0在integer/real等后跟：：可在后直接对变量赋值don=1,20doi=j,k,l，j表示i的初值，k表示末值，l表示间隔（为1可省略）循环次数即为(k-j)/l+1k=1doi=1,nk=k*ienddosum=sum+kenddoprint*,'前20个自然数的阶乘和为：',sumend10.求1-1/2+1/3-1/4+…+1/99-1/100reals,ms=0m=1dowhile(m<=100)s=s+(-1)**(m+1)/mm=m+1enddoprint*,send11.判断2000-2500年中每一年是否为闰年，并打印判断结果、

7、闰年的条件是：年份能被4整除，但不能被100整除，或者能被100整除又能被400整除integerss=2000dowhile(s<=2500)if(MOD(s,100)==0.and.MOD(s,400)==0)thenprint*,s,'是闰年'elseif(mod(s,4)==0.and.mod(s,100)/=0)thenprint*,s,'是闰年'elseprint*,s,'不是闰年'endifs=s+1enddoend12.输入一