当前位置：文档之家 › FORTRAN习题答案

FORTRAN习题答案

  • 格式：pdf
  • 大小：99.26 KB
  • 文档页数：15

FORTRAN习题答案

习题⼆

⼀、问答题1. 给出下⾯变量名称,哪些是合法变量？哪些是⾮法变量？说明原因。

Count 、num_2、x&y 、4x+5y 、china-suzhou 、$us 、AbCdE 、Mr.bai 、t5、

_another 、school_class_25、#125、2002Y 、π、β、A01/02、alpha 、date(1) 1. 判定下⾯整数,指出哪些是合法整数,哪些是⾮法整数？说明原因。-0、+ 215、$125、3,245,895、5.3245、5#384、-524_3、#5DFE 、

23-345、16#1A2B 、38#ABCD 、8#275_2、+327890、4 #321

2. 判定下⾯实数,指出哪些是合法实数,哪些是⾮法实数？说明原因。

-0E2、45.2345E3.5、-5489E25_8、-.2345E-35、$185.45E 、+ 2.753425E24_3、 58D85、+0.E-0、-00000.001E5、5,443,223.44、-12 34E+2、+ 18.5E 18、2.5E42

习题三

⼀、选择题1．下⾯是V isual Fortran 中正确的表达式是 。

（A ）A*COS(X)+∣B ∣ （B ）2*EXP(2*X)/SQRT(16.0)

（C ）B 2-4AC （D ）MOD （24.5,0.5）2．下⾯算术赋值语句中正确的语句是 。

（A ）M*N=(X-Y)/Z （B ）+R=A+B/C

（C ）X=Y=Z-1.0 （D ）Y=A*B/C/D3．算术表达式1/3+2/3的值为 。

（A ）0 （B ） 1 （C ） 0.99999999 （D ）值不确定 ⼆、问答题

1. 将下列代数式⽤Visual Fortran 表达式描述：

① ②

③ 4sin 3A-3sinA+sin3A ④ 2．执⾏下列赋值语句后，变量中的值。变量的类型遵循I —N 规则。设I=6，K=2，N=-3，T=7.5，Y=1.5

①L=T/Y/2.0 2 ②M=I/K*Y+1.5 6

③Z=I*K+Y 13.5 ④A=I**K/N+T/Y -7.0

习题四

⼀、运⾏程序题2200B

A C By Ax +++z sin e 21y -p

sin )c p sin()b p sin()a p sin(---

1. 判断下列输⼊输出语句是否正确？

(1) PRINT*, ′X=′, X, ′X*Y**2=′, X*Y**2(2) WRITE ( * , * ) A, B, NO, ′Y=′, Y

(3) READ*, N, M, 5.0K

(4) WRITE ( *,22 ) A, B, I, K, C

22 FORMA T ( 4X, 2F5.0, 2I5 )

(5) WRITE ( 8,33 ), X, Y, M, Z, N,

33 FORMA T ( 4X, 2F5.0 2I5 )

(6) READ ( *,44 ) NF, G, H, I, J

44 FORMA T ( 4X, I5, 2 ( F6.2, I5 ) )

2. 已知整型变量i、j、k、l、m、n，执⾏下⾯表控输⼊语句：

READ*, i,j

READ*, k,l,m

READ*, n

按以下格式输⼊8个数据：25

26 50 45 57 43

27 28

输⼊语句执⾏后，每个变量取何值？i=25、j=26、k=27、l=28、m=0、n=0

3. 写出输出结果，设I=56，J=1274，K=5126

WRITE ( *,100 ) I, J, K

(1) 100 FORMA T ( 1X, I4 )

(2) 100 FORMA T ( 1X, 2I5 )

56 1274

5126

(3) 100 FORMA T ( 1X, 2 ( I5,2X ) / )

56 1274

5126

4. 写出输出结果，设I=512，J=612，A=18.34，B=-21.4，C=112.463，D=-2174.573

WRITE ( *,100 ) I,J,A,B,C,D

(1) 100 FORMA T ( 1X,I5,2X,2 ( F10.2,2X ),F12.1 )

512 0.00E+00 18.34 -2.14

112.46 -2174.57

(2) 100 FORMA T ( 3X,2 ( I4,2X ),2 ( F10.2,2X ),′NEW′)

512 0.00E+00 18.34 -2.14 NEW

112.46 -2174.57 NEW5. 有读⼊语句：

READ ( *,100 ) I,J,B

设输⼊的值为：I=63，A=76.5，J=122，B=156.783。如⽤下⾯的FORMA T语句应如何输⼊数据。(1) 100 FORMA T ( I4,F6.2,I5,F8.2 )

(2) 100 FORMA T ( I4,2X,F6.2,I5,F8.2 )

(3) 100 FORMA T ( 1X,2 ( I4,2X,F10.2 ) )

(4) 100 FORMA T ( I4,F6.2/I5,F8.2 )

(5) 100 FORMA T ( I4/F6.2/I5/F8.2 )

(6) 100 FORMA T ( I5,F8.1 )

6．IMPLICIT NONE

INTEGER::I,J,K

READ *,I,J

K=I/J

PRINT *,?K=?,K

END

当输⼊9，2时，输出结果为K=4 。7．IMPLICIT NONE

REAL::I,J,K

READ(*,*)I,J

K=I/J

WRITE(*,*)?K=?,K

END

当输⼊9，2时，输出结果为K=4.500000。8．下⾯是⼀些⾮法的输⼊输出语句和格式说明语句。说明其⾮法原因。

READ * i,j,k

READ 10 i,j,k

READ *,…i=?,i,…j=?,j

READ(*,10) i,j,125

READ(*,…(“i=”,I3,“j=”,I3)?) i,j

READ(…(I3,I3)?,*) i,j

10 FORMA T(1X,I3,:,I3,:,I3)

PRINT * i,j,k

PRINT 10 i,j,k

WRITE *,…i=?,i,…j=?,j

WRITE(20,*) i,j,125PRINT(*,…(“i=”,I3,“j=”,I3)?) i,j

WRITE(…(I3,I3)?,*) i,j

20 FORMA T(1X,I3,I3 I3)

9．给定下⾯READ和FORMA T语句：

READ 100,i,j,k,m,n

100 FORMA T(I2,I3,2X,I2,1X,I4.1,I3)

执⾏READ语句,输⼊以下5组数据：12345678901234567890↙

1 32

2 4

3 565 768 78↙

12,3 43 7 ,2 3455↙

1232;45A18 93 215↙

1 23;324;445;555;777↙

READ语句执⾏后,每组i,j,k,m,n的值分别是多少？

10．给定下⾯READ和FORMA T语句：

READ 100,a,b,c

100 FORMA T(F5.2,F5.1,E8.3)

执⾏READ语句,输⼊以下5组数据：12345678901234567890↙

123,456789012,345890↙

1 32

2 4

3 565 E+ 28↙

123E2343 7 2 3455↙

1.23245.E3.1893 215↙

READ语句执⾏后,每组a,b,c的值分别是多少？

11.已知：i=25,j=-125,k=-4725,m=-31500,a=48.57,x=-1.5E+11,y=158.895E-11。

给定输出语句：WRITE(*,100)i,a,j,b,k,m,x,y

对下⾯不同的FORMA T语句,写出输出结果：

①100 FORMA T(1X,I3,1X,F5.2,1X,I4,1X,F9.2,I5,I6,E12.3,E12.3E3)

②100 FORMA T(3X,I4,1X,F9.2,1X,I4,1X,F9.2,2I5,2E12.3)

③100 FORMA T(… i=?,I3,…a=?,F5.2,…j=?,I4,…b=?,F9.2,…k=?,I5,…m=?,I6,

…x=?,E12.3,…y=?,E12.3E3)

④100 FORMA T(2(2X,I4,2X,F9.2),2I5,2E12.3)⑤100 FORMA T(1X,I3,1X,F5.2/1X,I4,1X,F9.2/I5,I6,E12.3,E12.3E3)

12.已知：i=315,j=512,a=43.57,b=-15.9,c=123.456,d=-5231.573。

给定输出语句：WRITE(*,100)i,j,a,b,c,d

对下⾯不同的FORMA T语句,写出输出结果：

①100 FORMA T(1X,I4,2X,I5,2X,2(F7.2,2X),F10.1)

②100 FORMA T(1X,2(I4,2X),2(F7.2,2X),…OLD?)

13.给定下⾯程序：

READ 10,i,j,k,m,n

10 FORMA T(1X,I3, T5,I3,I4,TL8,I2,TR5,I3)

PRINT *,i,j,k,m,n

END

程序执⾏时,输⼊数据：1234567890987654321↙

程序执⾏后,变量i,j,k,m,n的值是什么？

⼆、填空题

下⾯程序是求任意两个整型数M、N的和，要求输出形式为：M+N=和，如M=3，N=8，则输出形式为：M+N= 11。请填空。

IMPLICIT NONE

INTEGER::M,N,S

READ*,M,N

S=M+N

PRINT *,…M+N=? ,S

END

习题五

⼀、选择题1、已知:A=4.9,B=5.5,C=8.0,L=.FALSE.,则其值为’假’的表达式是。

A) A

B) L.OR.A

C) 13>C.EQV..NOT.L

D)L.EQV.A

2、以下不合法的Visual Fortran表达式是。

A)A

B) .NOT.(X<0.0）

C)A>=B.EQV.C>D

D)A.AND.B.AND.C

3、以下能表⽰条件“X、Y中⾄少有⼀个⼤于0且⼩于等于10”的逻辑表达式是。

合集下载

fortran习题4答案

fortran习题4答案

工程分析程序设计 上机作业（五）

模块化编程

上机目的：掌握内部例程、主程序、外部例程、模块等功能的使用方法。

1、 有一个六边形，求其面积。为求面积，作了3条辅助线。如图所示：（提示，三角形面积=()()()ssasbsc，其中2abcs，a、b、c为三个边长）。要求用内部函数来计算每个三角形的面积。

l1=10

l2=30

l3=16 l4=13 l5=21 l6=14

l7=20 l8=36 l9=28

program main

implicit none

real :: A(9)=(/10,30,16,13,21,14,20,36,28/)

integer i

real s

s=area(A(3),A(4),A(7))+area(A(2),A(7),A(8))+ &

area(A(1),A(8),A(9))+area(A(5),A(6),A(9))

print*,'The area is',s

contains

function area(x,y,z)

implicit none

real x,y,z

real p,area

p=(x+y+z)/2

area=sqrt(p*(p-x)*(p-y)*(p-z))

end function

end

2、 编写一个子例程子程序，SUM(S，T，N1，N2)。把整型数N1到N2进行求和，并把求和的结果放置到S，把整型数N1到N2进行求积，并把求积的结果放置到T。并用这个子程序来计算：

(1234)(345678)(3*4*5*6)(1*2*3)y

program main

implicit none

integer A(8)

integer i,b,c,d,e,f,g,m,n,y

Fortran95习题答案

Fortran95习题答案

第四章

1.program main

implicit none

write(*,*) "Have a good time."

write(*,*) "That's not bad."

write(*,*) '"Mary" isn''t my name.'

end program

2.program main

real, parameter :: PI=3

implicit none.14159

real radius

write(*,*) "请输入半径长"

read(*,*) radius

write(*,"(' 面积='f8. 3)") radius*radius*PI

end program

3.program main

implicit none

real grades

write(*,*) "请输入成绩"

read(*,*) grades

write(*,"(' 调整后成绩为 'f8.3)") SQRT(grades)*10.0

end program

4.integer a,b

real ra,rb

a=2

b=3

ra=2.0

rb=3.0

write(*,*) b/a ! 输出1, 因为使用整数计算, 小数部分会无条件舍去

write(*,*) rb/ra ! 输出1.5

5.program main

implicit none

type distance

real meter, inch, cm

end type

type(distance) :: d

write(*,*) "请输入长度:"

read(*,*) d%meter

d%cm = d%meter*100

d%inch = d%cm/2.54

write(*,"(f8.3'米 ='f8.3'厘米 ='f8.3'英寸')") d%meter, d%cm, d%inch

FORTRAN程序设计期末复习

FORTRAN程序设计期末复习

FORTRAN程序设计期末复习

一、 基础知识：

1. Fortran程序的组成：

a) 一个main程序（以program开头，可省略），若干子程序（以function或subroutine开头）,以end 结束。

b) 可执行语句，非执行语句。了解哪些语句是可执行语句？哪些是非执行语句？它们在程序中放置的位置有什么要求？

c) 语句标号。小于5位的正整数，可以加在可执行语句前面。

d) Fortran程序的书写格式。固定格式、自由格式

2. 数据类型

a) 常量和变量（五种）：integer,real,character,logical,complex

要求掌握：对于常量，给定一个数据，能分辨出该常量的类型。符号常量如何定义？符号常量不能修改其值。

例如：5，2.5，1.23e2,1.23d-2,’abc’,”xyz”,.true.,.false.,(2.5,3.6)。

对于变量，要会定义，注意变量名的命名规则。

b) 表达式的书写：

四种表达式：算术表达式、关系表达式、逻辑表达式、字符表达式

要求掌握：各种算符的运算规则和优先级别。

考查方式：给出一个算术式子能写出正确的表达式，或者给出表达式能计算出其结果。

注意：整数相除结果还是整数；逻辑运算符的两端都必须是逻辑量；>=不能写成≥；==不能写成=；表达式0≤x≤5的正确写法？.and.,.not.,.or.两端的小圆点不能漏掉。

c) 常用函数：

数学函数：sqrt(实数),abs(),sin(弧度)等三角函数，int(),real(),mod(m,n)

字符串函数：char(),ichar(),len_trim()

二、 程序的三种基本结构：

1. 顺序结构：赋值语句、表控输入、输出语句（注意：*的含义）、格式输出（主要掌握I，F，A，x，重复系数，编辑符的用法）

2. 选择结构：掌握块IF语句的三种形式，逻辑IF语句和IF语句的嵌套的书写格式、执行过程。

fortran课后习题答案解析

fortran课后习题答案解析

完美WORD格式

专业整理 知识分享 第一章 FORTRAN程序设计基础 第15页 1、2

1．简述程序设计的步骤。

“程序设计”：反映了利用计算机解决问题的全过程，通常要经过以下四个基本步骤：(1)分析问题，确定数学模型或方法；(2)设计算法，画出流程图；(3)选择编程工具，编写程序；(4)调试程序，分析输出结果。

2. 什么是算法？它有何特征？如何描述算法？

解决问题的方法和步骤称为算法。

算法的五个特征：(1) 有穷性。 (2) 确定性。 (3) 有效性。 (4) 要有数据输入。(5) 要有结果输出。

算法的描述有许多方法，常用的有：自然语言、一般流程图、N－S图等。

第二章 顺序结构程序设计

第29页 1、2、3、4、5、6、7、8、9

1．简述符号常量与变量的区别？

符号常量在程序运行过程中其值不能改变。变量在程序运行过程中其值可以改变。

2. 下列符号中为合法的FORTRAN 90标识符的有哪些?

(1) A123B (2) M%10 (3) X_C2 (4) 5YZ

(5) X+Y (6) F(X) (7) COS(X) (8) A.2

(9) ‘A’ONE (10) U.S.S.R.

(11) min*2 (12) PRINT

3. 下列数据中哪一些是合法的FORTRAN常量？

(1) 9,87 (2) .0 (3) 25.82 (4) -356231

(5) 3.57*E2 (6) 3.57E2.1 (7) 3.57E+2 (8) 3,57E-2