Fortran 编程实例 No.1-使用if和case结构进行数据计算
注：本例均在VS2015中运行成功实现
题目：
代码：
! 1 program volume implicit none real r,t,b,h,s,a real ::PI=3. read*,r,t b=2*r*sin(t/2) h=2*r*sin(t/4)*sin(t/4) a=2*PI*t/360 s=a*r2/2 print*,"弦长b=",b print*,"拱高h=",h print*,"面积s=",s end program volume !2.1 program Taxes implicit none character*8 name integer n real i,tax,j read*,name,n,i j=i/12 if(n<50) then if(j<3000) then tax=i*0.05 else if(j>=3000.and.j<=8000)then tax=i*0.09 else if(j>8000)then tax=i*0.12 endif else if(j<3000) then tax=i*0.03 else if(j>=3000.and.j<=80版权声明：
本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。
如若内容造成侵权、违法违规、事实不符，请将相关资料发送至xkadmin@xkablog.com进行投诉反馈，一经查实，立即处理！
转载请注明出处，原文链接：https://www.xkablog.com/fortranbc/2266.html