器 20.数据库组件中,能够具体实现对数据库的读写操作、被称为数据库组件的核心的组件 是( ) (A)数据源组件 (B)用户界面组件 (C)数据集组件 (D)数据感知控件 二、程序填空题(每空 2 分,共 22 分) 1.如下是计算任意整数 n 阶乘的函数 fact,请填写空缺部分: Function Fact( 【1】 ):int64; var P:Int64; I:Integer; Begin P:=1; 【2】 ; 【3】 ; Fact:=P; End; 教研室: 拟题人: 教研室负责人: 系负责人: 200 年 月 日
江苏工业考试命题用纸
第
页
共
页
2.如下是求最大公约数的部分代码,请填写空缺部分: Procedure TForm1.Button1Click(Sender: TObject); Var m,n,t,r: Integer; s1,s2: String; begin s1:= InputBox(‘请输入’,’第一个正整数:’,’1’); m:= InttoStr(s1); s2:= InputBox(‘请输入’,’第二个正整数:’,’1’); n:= InttoStr(s2); then if 【4】 begin t:= m; m:= n; n:= t; end; repeat r:= m mod n; m:= n; n:= r; ; until 【5】 Label1.Caption:= Format(‘%s 与%s 的最大公约数是:%d’,[s1,s2, end;
【6】
]);
3.编写程序,首先利用数据集组件 Query1、Datasource1 和 DBGrid1 显示出 Student 数据 库中 StuInfo 表中所有的内容。然后,在编辑框中还可以输入 SQL 查询语句,点击执行按 钮,可以在 DBGrid 中看到新的对数据表执行 SQL
查询语句后的结果。Student 数据库别 名为 Stu.。
Edit1
procedure Tform1. Button1Click(Sender:TObject); begin 教研室: 拟题人: 教研室负责人: 系负责人: 200 年 月 日
江苏工业考试命题用纸 Query1.Databasename:= _______【7】_________; with Query1 do begin Close; _____【8
】______________; Sql.Add(________【9】_____________); Open; end; Datasource1.DataSet:= _______【10】____________; DBGrid1.DataSource:= ________【11】____________; end; 三、阅读以下程序,写出运行结果(每空 3 分,共 9 分) 1.有一个自定义函数声明如下: function myf(a,b,c:integer):integer; var t:integer; begin a:=3*a;t:=b div c; myf :=a+4*t; end; 则表达式 myf(2,3,myf(2,3,4) )值是 2.设有自定义过程声明如下: function fnt(n: Integer; x: Single): Single; begin Case n of 0 : fnt:= 1; 1 : fnt:= x; Else fnt:= 2*x*fnt(n-1,x)-fnt(n-2,x); end; end; 执行以下程序段: t:= fnt(3,3); 则 t=_________________; 3.设有以下程序段: n:=19876; k:=3; 教研室: 拟题人: 教研室负责人:
第
页
共
页
。
系负责人:
200 年 月 日
江苏工业考试命题用纸 for I:=1 to k do n:=n mod 10; m:=n div 10; 假设所有变量均已说明,程序段被执行后 m 值是 四、编程题(共 39 分)
第
页
共
页
。
1. (12 分)编写自定义函数或过程,判断任意两个自然数是否为自然数对(自然数对是指 两个自然数的和与差都是平方数) 。 Function IsZRSD(Const x,y: Integer): Boolean; Begin ...... End; 2. (12 分)编写自定义函数或过程,判断一个数是否为完备数(完备数是指一个数恰好等 于他的因子之和,如 6=1+2+3) Procedure IsWBS(Const n: Integer); Begin ...... End; 3. (15 分)利用 e 的下述近似公式计算 e(直到最后一项小于 10 为止)。
x -12
x x2 x3 xn e x ≈ 1 + + + +? ? ?+ ! 2! 3 ! 1 n!
function CalE(Const x,n: Integer): Real; begin ...... end;
教研室:
拟题人:
教研室负责人:
系负责人:
200 年 月 日