Monthly Archives: November 2010

福州大学至诚学院2008级《Fortran 90 程序设计教程》部分习题参考答案

说实话,Fortran不是什么我喜欢的语言,不过这是今年的课所以我也不得不做.这里提供的部分习题答案仅供我的同学复习参考之用.

本人水平有限,难免会有错误,如果发现请及时联系我,谢谢!(联系方式见AboutMe页面)

2010年11月25日修订


第65页第3题求余弦函数,原来的答案有错误,现在已经修改。
特别提示:希望大家不要打印出来看,编程最好的方式是通过上机练习,并且本页面的参考答案随时都会更新。



!第29页第7题
program main
    real c,f
    read(*,*),c
    f=9*c/5+32
    write(*,100) f
100 format(1x,f7.3)
end
!第29页第8题第1小题
program main
    integer a,b,c
    real average
    read(*,*)a,b,c
    average=(a+b+c)*1.0/3
    write(*,100) average
100 format(1x,f7.3)
end
!第29页第8题第2小题
program main
    real x,y,ans
    read(*,*) x,y
    ans=log(x*x+y)/(sin(x*y)**2+1)+32
    write(*,100) ans
100 format(1x,f7.3)
end

Read more »