fortran作业

program zuoye

implicit none

integer :: a(13)

integer :: i,j,t

integer ::b,c,d

real rnd(10)

call random_seed()

call random_number( rnd )

a(1:10)=rnd(1:10)*100

do i=1,9

do j=i+1,10

if(a(i) > a(j))then

t=a(i)

a(i)=a(j)

a(j)=t

end if

end do

end do

write(*,'(10I4)') a(:10)

open(1,file='suijishu.txt')

write(1,"(10I4)") a(1:10)

rewind(1)

read(1,*) (a(i),i=1,10)

write(*,*)"please input three number:"

read (*,*) b,c,d

a(11:13)=(/b,c,d/)

do i= 12,1,-1

do j=1,i

if ( a(j) > a(j+1) ) then

t= a(j)

a(j)=a(j+1)

a(j+1)=t

end if

end do

end do

write(*,"(13I4)") a(1:13)

stop end

program zuoye

implicit none

integer :: a(10)

integer :: b(13)

integer :: i,j,t

integer ::c,d,e

real rnd(10)

call random_seed()

《程序设计基础》作业二答案（12秋）

作业二答案

一、选择题

1、C语言中，使用变量的要求是______。A

A 要先定义后使用

B 要先使用后定义

C 不需要定义，可以直接使用

D 没有明确的要求

2、不是C语言的基本数据类型是______。D

A int

B double

C char

D bool

3、编程语言提供的三种基本控制结构是______。D

A 输入、处理和输出结构

B 常量、变量和表达式结构

C 表达式、语句和函数结构

D 顺序、选择和循环结构

4、在C语言中，决定int数的表示范围的因素是______。A

A int类型占用的字节数量

B 人为事先的约定和习惯

C 所存储的数据是否有符号

D 数在内存中的编码方式

5、C语言中，关于运算符的正确概念是_____。D

A 运算符具有优先级，同优先级的运算符由括号决定运算次序

B 在不同优先级运算符进行混合运算时，运算的先后次序取决于结合性

C 在同优先级的运算符参与运算时，先计算左侧的运算符

D 运算符具有优先级和结合性 6、在C语言中关于循环语句的结论中，错误的是______。D

A do-while语句构成的循环至少要执行一次

B while语句和for语句可以相互替代

C for和while语句的循环控制条件都是当条件成立时执行循环体

D do-while语句的循环控制条件是当条件不成立时继续执行循环体

二、填空题

1、最基本的程序控制有三种，它们是______，______和______。这三种执行控制

的任意组合和重复、嵌套就可以描述任意复杂的程序。顺序执行、分支控制和

循环控制

2、C语言中分支语言是______语句和______语句。if，switch

3、C语言中循环语言是______语句，______语句和______语句。while，for和

do-while

4、C语言中自增运算符是______，求余数的运算符号是______。++，%

Ｆｏｒｔｒａｎ和Ｐａｓｃａｌ语言的混合编程方法　

朱培民屠万生　

（中国地质大学地球物理系　武汉４３００７４）　

摘要　本文先讨论一般的混合语百嫡程方法和规丑ｊ，　及利用动态连接库实现混台编程的优点和具体细节，然后给出一个　

Ｆｏｒ￣ａｎ语言和Ｐａｓｃａｌ语言混台犏程的应用实例，并　以详细说明。　

关键词　ｊ晁告缔程动态连接库Ｆｏｒｔｒａｎ　ｐａｓｃａｌ　

ＭＥＴＨＯＤ　ＯＦ　田Ⅱｍ—Ｉ　ＮＧＵＡＧＥ　Ｐ】ＲｏＧＲＡＭＭＩＮＧ　ＢＥＴＷＥＥＮ　ＦＯＲＴＲＡＮ　ＡＮＤ　ＰＡＳＣＡＬ　

Ｚｈｕ　Ｐｅｉｍｉｎ　ＴｕＷａｎｓｈｅｎｇ　

（Ｄ　一－・　Ｇ唧　，　妇【帕哪灯ｏｆ　删，骶　ｎ　４３００７４）　

劬　ｒａｃｔ　琚ｄｙ，　ｎ眦【ｎ￣ｔｈｏｄｓ　ａｎｄ　ｒｎｇｔｆｌａ￣ｏｎｓ　ｏｆ　ｐｒｏｇｒａｎｍｆｉｎｇｗｉｔｈｍｉｘｅｄｌａｎｇｕａ￣ｓ岫ｄｉｓｃｕｍｅｄｉｎｔｈｅ　ｐａｐｅｒ．Ｂｙ　ｍａｋｉｎｇ　ｕｓｅ　ｏｆｎｙｎａｌｔｌ￣　

Ｌｉｎｋ　Ｌｉｂｒａｒｙ（ＤＬＬ），ａｄｖａｎｔａｇｅｓⅢｌｄ　ｄｅｔａｉｉｓ　０ｆｎ￣ｘｅｄ—ｌａ耵　ｐｒ　即　＿ｌｇ　ａｒｅ　ａＩｓｏｍｍａｒｋ￣．Ｔｈｅｎ　ａ　ｃａｓｅ　０ｆ　ｐＩ　出Ⅱ　Ｉ．ｇｗｉｔｈｍｉｘｅｄ　Ｆｍｔｒａ￣　

ａｎｄ　Ｐａｓｃａｌｉｓ　ａｌ￣ｅｄ　ａｎｔｉ　ｅｘｐｌａ￣ｄｉｎ　ｄｎｄ　

Ｋｅｙｗｏｒｄｓ　Ｍｉｘｅｄ—ｌａｎｇｕａｇｅ　ｐ　ｎｇ　ｍ　ｃｌｉｎｋｌｉｂｒａｒｙ（ＤＬＬ）Ｆｏｒｔｒａｎ　ｐａｓｃａｌ　

１引　言　

混台语言编程是用两种或多种语言写成的源代　

码，将其共同形成一个应用程序的方法。混台语言编　

程对程序员来说有非常重要的意义。首先，它能使我　

们重用用其它语言写成的代码　在过去的几十年里，　

大部分的科学与工程计算都是用ＦＯＲＴＲＡＮ语言编写　

而成的。随着计算机技术的发展，个人计算机的性能　

已经有很大提高，而且有很多很好的可视化开发工具　

（除了ＤＥＣ　Ｖｉｓｕａｌ　Ｆｏｍａｎ外其它均为非ＦＯＲＴＲＡＮ语　

1 / 20

(一) 单选题

1. 为了管理过程在一次执行中所需要的信息，使用一个连续的存储区来管理，这个区

(块) 叫做一个（）。

(A) 结构体记录

(B) 数组记录

(C) 管理信息记录

(D) 活动记录

参考答案：

(D)

2. 考虑下面的程序： … procedure p(x, y, z)； begin x:=x+y; z:=z*z; end begin

A:=2; B:=A*2; P(A, B, B); Print A, B end. 若参数传递的方式采用传地址时，程序执行后输出 A, B的值是（）。

(A) A=4，B=14

(B) A=4，B=16

(C) A=6，B=14

(D) A=6，B=16

参考答案：

(D)

3. 在运行存储空间的划分中有一个单独的区域叫做堆，留给存放（）。

(A) 局部数据

2 / 20 (B) 静态数据

(C) 全局数据

(D) 动态数据

参考答案：

(D)

4. 所谓得结果就是每个形式参数对应两个单元，第一个单元存放实参的地址，第二个单元存放实参的值。在过程体中对形参的任何引用或赋值都被处理成对第二个形式单元的（），但在过程工作完成返回之前必须把第二个单元的内容存放到第一个单元所指的那个实参单元之中。

(A) 间接访问

(B) 指针访问

(C) 直接访问

(D) 间接的间接访问

参考答案：

(C)

5. 一个过程相应的DISPLAY表的内容为（）。

(A) 现行活动记录地址

(B) 现行活动记录地址和所有外层最新活动记录的地址传递规则

(C) 所有外层最新活动记录的地址

(D) 以上都不对

3 / 20 参考答案：

(B)

6. 以下程序 (1) J:=1 (2) A:=0 (3) R:=I-1 (4) C:=B+J (5) A:=C*A (6) if J=20 goto

(9) (7) J:=J+1 (8) goto (3) (9) 可划出（）个基本块。