FORTRAN作业电子版.docx
- 文档编号:7361984
- 上传时间:2023-05-11
- 格式:DOCX
- 页数:10
- 大小:657.27KB
FORTRAN作业电子版.docx
《FORTRAN作业电子版.docx》由会员分享,可在线阅读,更多相关《FORTRAN作业电子版.docx(10页珍藏版)》请在冰点文库上搜索。
FORTRAN作业电子版
FORTRAN编程题
习题1
1.输入年月,输出该月所对应的天数,编写程序。
程序:
!
习题一第1题
PROGRAMMAIN
IMPLICITNONE
INTEGERMONTH,DAY
PRINT*,"请输入月份:
"
READ*,MONTH
SELECTCASE(MONTH)
CASE(1,3,5,7,8,10,12)
DAY=31
CASE(4,6,9,11)
DAY=30
CASE
(2)
DAY=28
CASEDEFAULT
PRINT*,"输入错误"
STOP
ENDSELECT
PRINT*,"该月有",DAY,"天"
ENDPROGRAMMAIN
执行结果:
2.设计一个子例行程序,计算一个任意矩阵A中的最大元素和最小元素。
程序:
!
习题1第2题
PROGRAMMAIN
IMPLICITNONE
INTEGER,ALLOCATABLE:
:
A(:
)
INTEGERN,I,X,Y
PRINT*,"该数组中有多少个元素?
"
READ*,N
ALLOCATE(A(N))
DOI=1,N
PRINT*,"请输入数组中的元素:
"
READ*,A(I)
ENDDO
CALLSZ(A,N)
CONTAINS
SUBROUTINESZ(B,M)
IMPLICITNONE
INTEGERM
INTEGERB(M)
X=MAXLOC(B,1)!
找出数组中最大值所在位置
Y=MINLOC(B,1)!
找出数组中最小值所在位置
PRINT*,"数组中最大元素为:
",B(X)
PRINT*,"数组中最小元素为:
",B(Y)
ENDSUBROUTINESZ
ENDPROGRAMMAIN
执行结果:
3.对任意自然数N,设计个求N得各位数字的立方和的函数如F(N)(F(121)=1**3+2**3+1**2=1+8+1=10),并调用F(N)求1000以内的所有水仙花数(当一个数各个计算数位的立方和等于这个数本身时,称这样的数为水仙花数)
程序:
!
习题1第3题
PROGRAMMAIN
IMPLICITNONE
INTEGERX,E
PRINT*,"1000以内的水仙花数有:
"
DOX=1,999
CALLF(X,E)
IF(X==E)THEN
PRINT*,X
ENDIF
ENDDO
CONTAINS
SUBROUTINEF(N,D)
INTEGERN,A,B,C,D
A=INT(N/100)
B=INT((N-A*100)/10)
C=N-A*100-B*10
D=A**3+B**3+C**3
ENDSUBROUTINEF
ENDPROGRAMMAIN
执行结果:
习题2
1.已知一个球的半径,求它的表面积和体积及经过球心横切面的直径、周长和米娜及,编写程序实现之。
程序:
!
习题2第1题
PROGRAMMAIN
IMPLICITNONE
REALR,S,V,D,L,C
REAL,PARAMETER:
:
PI=3.141592654
PRINT*,"请输入球的半径"
READ*,R
S=4*PI*R**2
V=4.0/3.0*PI*R**3
D=2*R
L=2*PI*R
C=PI*R**2
PRINT*,"球的表面积为:
",S
PRINT*,"球的体积为:
",V
PRINT*,"经过球心横截面的直径为:
",D
PRINT*,"经过球心横截面的周长为:
",L
PRINT*,"经过球心横截面的面积为:
",C
ENDPROGRAMMAIN
执行结果:
2.输入整数,判断能否被3或5整除,如能整除,则打印此数,否则不打印。
编写程序实现之。
程序:
!
习题2第2题
PROGRAMMAIN
IMPLICITNONE
INTEGERA
PRINT*,"请输入一个整数"
READ*,A
IF(MOD(A,3)==0.OR.MOD(A,5)==0)THEN
PRINT*,A
ENDIF
ENDPROGRAMMAIN
执行结果:
习题3
1.某高校实行学分制,学分制规定:
成绩大于等于60分可获得3个学分和3个绩点,否则不能获得学分和绩点,同时成绩大于等于80分可增加2个绩点。
输入学生成绩,计算并输出学生获得的学分和绩点。
编写程序实现之。
程序:
!
习题3第1题
PROGRAMMAIN
IMPLICITNONE
REALX
INTEGERA,B
PRINT*,"请输入成绩:
"
READ*,X
IF(X>=60)THEN
A=3
B=3
IF(X>=80)THEN
B=B+2
ENDIF
ENDIF
PRINT*,"该学生获得的学分为:
",A
PRINT*,"该学生获得的绩点为:
",B
ENDPROGRAMMAIN
执行结果:
2.下面分段函数的值,编写程序实现之。
Y=
程序:
!
习题3第2题
PROGRAMMAIN
IMPLICITNONE
REALX,Y
PRINT*,"请输入X的值:
"
READ*,X
IF(X<0)THEN
Y=EXP(2*SQRT(ABS(X)))+SIN(X)
ELSE
IF(X==0)THEN
Y=2
ELSE
Y=X/SQRT(1+X**2)
ENDIF
ENDIF
PRINT*,"Y=",Y
ENDPROGRAMMAIN
执行结果:
3.计算税收。
企业产值小于等于1000万,税率为3%;企业产值大于1000万小于等于2000万部分,税率为5%;企业产值大于2000万小于等于5000万部分,税率为7%;企业产值大于5000万小于等于1亿部分,税率为10%;企业产值大于1亿小于等于5亿部分,税率为14%;企业产值大于5亿部分,税率为20%。
输入某企业年产值,计算当年应交税值,并输出。
用selectcase语句来编写程序实现之。
程序:
!
习题3第3题
PROGRAMMAIN
IMPLICITNONE
INTEGERX
REALSZ
PRINT*,"该企业年产值为多少万元?
"
READ*,X
SELECTCASE(X)
CASE(:
1000)
SZ=0.03*X
CASE(1001:
2000)
SZ=0.05*X
CASE(2001:
5000)
SZ=0.07*X
CASE(5001:
10000)
SZ=0.1*X
CASE(10001:
50000)
SZ=0.14*X
CASE(50001:
)
SZ=0.2*X
ENDSELECT
PRINT*,"当年应交税值为:
",SZ,"万元"
ENDPROGRAMMAIN
执行结果:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- FORTRAN 作业 电子版