Fortran 编程实例 No.1-使用if和case结构进行数据计算

最新推荐文章于 2024-09-12 16:19:29 发布

Lynn_whu

最新推荐文章于 2024-09-12 16:19:29 发布

阅读量2.5k

点赞数 1

分类专栏： Fortran 学习笔记文章标签： Fortran

本文链接：https://blog.csdn.net/Lynn_whu/article/details/82832438

版权

本文是Fortran编程实例的第一部分，主要讲解如何利用if和case结构进行数据处理。示例在VS2015环境下已成功运行。

摘要由CSDN通过智能技术生成

Fortran 编程实例 No.1-使用if和case结构进行数据计算

注：本例均在VS2015中运行成功实现

题目：

代码：

! 1
program volume
implicit none

real r,t,b,h,s,a
real ::PI=3.1415927
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*r**2/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