delphi程序期末试题答案

第一学期期末考试试卷（A-2-1）
考试学科Delphi 程序设计
组、命题教师考场
考号
考生班级
系主任
考生姓名
装订线
题目一二三四五六七总分核分登分人
得分
一、单选题（每小题2分，共30分）
1．在RadioGroup 组件中有4 个单选框，当选中第2 个单选框时，RadioGroup 组件中的ItemIndex 属性值应为（ B B ））。

A A．．0 B 0 B．．1 C 1 C．．2 D 2 D．．3 2．函数和过程的区别为（．函数和过程的区别为（ A A A ））。

A A．函数执行后返回一个值，而过程不需返回值．函数执行后返回一个值，而过程不需返回值 B B．过程执行后返回一个值，而函数不需返回值．过程执行后返回一个值，而函数不需返回值
C ．过程在被调用时，能执行某种特殊功能并能返回到调用它的地方
D D．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方3．32 AND 27 的值是（的值是（的值是（ B B B ））。

A ．59 B 59 B．．0 C 0 C．．27 D 27 D．．32 4．窗体与数据模块的扩展名是（．窗体与数据模块的扩展名是（ B B B ））。

A A．．.dcu B B．．.dfm C C．．.pas D D．．.dpr 5．Delphi 中用什么函数来析构一个组件（中用什么函数来析构一个组件（ C C C ））。

A ．Constructor B B．．Destroy C C．．Free D D．．Create 6．一个指针变量ptr 的域成员fs 访问的方法是（访问的方法是（ C C C ））。

A ．ptr->fs B B．．ptr.fs C C．．ptr^fs D D．．ptr@fs
7．Type aarrays=[1…8,1…5] of integer ，该类型定义了多少个下标元素（，该类型定义了多少个下标元素（，该类型定义了多少个下标元素（ D D D ））。

A ．45 B 45 B．．54 C 54 C．．48 D 48 D．．40 8．Delphi 的所有类都是从什么类继承下来的（的所有类都是从什么类继承下来的（ B B B ））。

A ．Tcomponent B B．．Tobject C ．Tstream D D．．Tnull
9．定义构造函数时用到的保留字是（．定义构造函数时用到的保留字是（ C C C ））。

A ．Class B B．．.implementation C C．．create D D．．construction 1010．下列组件中属于可视组件的是哪一个（．下列组件中属于可视组件的是哪一个（ D D ））。

A ．Tdatasource B B．．Topendialog C C．．Ttable D D．．Tscrollbar
1111．设有过程．设有过程procedure pro(V AR x,y:integer); 变量a , b 为整型变量，其值分别为为整型变量，其值分别为5、6，则合法的过程调用语句是（，则合法的过程调用语句是（ D D D ））。

A ．Pro(5,6) B B．．pro(5,b) C C．．pro(a,6) D D．．pro(a,b)1212．下列组件中不能获取焦点的是（．下列组件中不能获取焦点的是（．下列组件中不能获取焦点的是（ B B B ））。

A A．．Tedit B B．．Tlabel C C．．Trichedit D D．．Ttreeview 1313．定义抽象类必须使用的指令字是（．定义抽象类必须使用的指令字是（．定义抽象类必须使用的指令字是（ A A A ））。

A ．Abstract B B．．virtual C C．．dynamic D D．．override ”1414．．Delphi 是哪个公司的产品（是哪个公司的产品（ C C C ））。

A ．Microsoft B B．．IBM C C．．Borland D D．．DOM
1515．窗体上放置有一个．窗体上放置有一个TEdit 类控件Edit1，当在Edit1中按下‘A ‘A’’键时触发的事件和事件顺序是（键时触发的事件和事件顺序是（ A A A ））。

A ．OnKeyDown->OnKeyPress->OnKeyUp B B．．OnKeyDown->OnKeyUp C C．．OnKeyPress D ．OnKeyDown->OnKeyUp->OnKeyPress 二、判断题（每小题1分，共10分）
1．Pascal Pascal 语言中可以把一个实数赋值给一个整型变量，系统会自动取整。

语言中可以把一个实数赋值给一个整型变量，系统会自动取整。

（错）2．所有类都有Name 属性。

（错）
3．variant 类型的变量被动态赋值为一个特定的数据类型后，不能再赋值为一个其它的数据类型。

（错）
4．函数MessageDlgPos 与MessageDlg 极为相似，只是MessageDlgPos 函数能够控制信息对话框的出现位置。

（对）5．BitBtn 控件可以用来制作一个带图片的按钮，而SpeedButton 则不能。

（错）6．MediaPlayer 控件的AutoEnable 属性是用来控制该控件是否可用。

（错）7．图形组件没有输入焦点，不能接受用户的输入，它只具有向用户显示的功能。

（对）8．Timer 组件常称为“定时器”，它每隔固定的时间间隔可以触发一个OnTimer 事件。

（对）9．Tobject 是delphi 的基类，系统中的每一个类都是Tobject 的子类。

（对）
1010．在．在MDI 应用程序窗口中，如果将一个窗体设为父穷窗体，要将它的FormStyle 属性设为FsStayOnTop FsStayOnTop。

（错）三、填空题（每空2分，共20分）
1．用于建立菜单项的下划线快捷方式的字符是 & & 。

2．在设计阶段，利用Image 对象的对象的 picture picture picture 属性，可以加载一幅图片。

属性，可以加载一幅图片。

3．所有可视化的VCL 控件都是从控件都是从 TControl TControl TControl 基类派生而来的。

基类派生而来的。

题目得分
评卷人
一
题目得分
评卷人
二
题目
得分
评卷人
三
考生班级考生班级
软件07-1
系主任系主任
考生姓名考生姓名
装 订 线
4．Delphi 有三种控制循环的语句：有三种控制循环的语句： repeat repeat repeat 语句，语句，语句， while while while 语句，语句，语句， for for for 语句。

语句。

语句。

5．Delphi 支持3种类型的注释：种类型的注释： {} 注释，注释，注释， (* *) 注释，注释，注释， // 注释。

注释。

注释。

6．关闭文件需要使用．关闭文件需要使用 closefile () 函数。

函数。

函数。

四、简答题（共20分）
1．简述什么是对象和类。

（4分）
在面向对象的程序分析和设计技术中，在面向对象的程序分析和设计技术中，“类”就是对具有相同属性和相同操作的一组相似对象的定义。

从另一个角度来看，对象就是类的一个实例。

从另一个角度来看，对象就是类的一个实例。

2．简述程序错误的类型有哪些。

（4分） （（1）设计期错误）设计期错误 （（2）编译期错误）编译期错误 （（3）运行期错误）运行期错误 （（4）逻辑错误）逻辑错误
3．根据下列代码，请回答。

（12分） Program Infoproc Uses Forms,
Unit1 in Unit1 in ‘‘Unit1.pas Unit1.pas’’{formInfoInput}, Unit2 in Unit2 in ‘‘Unit2.pas Unit2.pas’’{formInfoShow}; {$R *.res} Begin …… End.
问题1：以上代码是：以上代码是 项目项目项目//工程文工程文 件的组成部分。

件的组成部分。

件的组成部分。

问题2：根据以上代码，可知项目文件名是：根据以上代码，可知项目文件名是 Infoproc Infoproc ，该项目文件包含，该项目文件包含2个单元文件，文件名分别是个单元文件，文件名分别是 Unit1 Unit1 Unit1 、、 Unit2 Unit2 ，它们对应的窗体名是，它们对应的窗体名是formInfoInpu formInfoInpu 、、 f ormInfoShow ormInfoShow 。

五、程序题（每小题10分，共20分）
1．定义一个函数F ，其返回值为1~N 的和。

(每空2分) （ function ）F （n:integer ）; V ar I,s:integer; Begin 
For i:=( 1 ) to ( N ) S:=( S+i ); ( ( n n ):=s; End; 
2．在窗体上面绘制出一条规则的余弦曲线，使其尺寸约为窗体的80%，写出编程步骤与代码。

，写出编程步骤与代码。

Procedure TForm1.FormPaint(sender:Tobject); var x,y:real; j,j,h:integer;
begin
h:=form1.Height div 2; for i:=0 to form1.Width do begin
x:=i*(2*3.14/form1.Height); y:=cos(x);
j:=trunc(0.8*y*h)+h; canvas.Pixels[i,j]:=clRed: end; end; 题目题目 得分得分
评卷人评卷人
四
题目题目
得分得分
评卷人评卷人
五
考生班级考生班级
软件07-1
系主任系主任
考生姓名考生姓名
装 订 线
题目题目 一 二 三 四 五 六 七 总分总分 核分登分人核分登分人
得分得分
一、单选题（每小题2分，共30分）
1．Delphi 的所有类都是从什么类继承下来的（的所有类都是从什么类继承下来的（ B B B ））。

A ．Tcomponent B B．．Tobject C ．Tstream D D．．Tnull
2．定义构造函数时用到的保留字是（．定义构造函数时用到的保留字是（ C C C ））。

A ．Class B B．．.implementation C C．．create D D．．construction 3．下列组件中属于可视组件的是哪一个（ D D ））。

A ．Tdatasource B B．．Topendialog C C．．Ttable D D．．Tscrollbar
4．设有过程．设有过程 procedure pro(V AR x,y:integer); 变量变量 a,b 为整型变量，其值分别为为整型变量，其值分别为 5、6，则合法的过程调用语句是（，则合法的过程调用语句是（ D D D ））。

A ．Pro(5,6) B B．．pro(5,b) C C．．pro(a,6) D D．．pro(a,b) 5．下列组件中不能获取焦点的是（．下列组件中不能获取焦点的是（ B B B ））。

A A．．Tedit B B．．Tlabel C C．． Trichedit D D．．Ttreeview 6．定义抽象类必须使用的指令字是（．定义抽象类必须使用的指令字是（ A A A ））。

A ．Abstract B B．．virtual C C．．dynamic D D．．override ” 7．Delphi 是哪个公司的产品（是哪个公司的产品（ C C C ））。

A ． Microsoft B B．．IBM C C．．Borland D D．．DOM
8．窗体上放置有一个TEdit 类的控件Edit1Edit1，并定义了，并定义了Edit1的OnEnter 事件，下面说法正确的是：
（C ） A ．当鼠标在窗体上移动时产生Edit1OnEnter 事件事件 B B B．其他三项都不对．其他三项都不对．其他三项都不对
C ．当Edit1获得焦点时产生Edit10Enter 事件事件
D D D．当鼠标移动到．当鼠标移动到Edit1的上面时产生Edit1OnEnter 事件事件 9．在．在 RadioGroup 组件中有组件中有 4 个单选框，当选中第个单选框，当选中第 2 个单选框时，个单选框时， RadioGroup 组件中的组件中的 ItemIndex 属性值应为（属性值应为（ B B B ））。

A A．．0 B 0 B．．1 C 1 C．．2 D 2 D．．3 1010．函数和过程的区别为（．函数和过程的区别为（．函数和过程的区别为（ A A A ））。

A A．函数执行后返回一个值，而过程不需返回值．函数执行后返回一个值，而过程不需返回值 B B．过程执行后返回一个值，而函数不需返回值．过程执行后返回一个值，而函数不需返回值
C ．过程在被调用时，能执行某种特殊功能并能返回到调用它的地方
D D．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方 1111．．32 AND 27 的值是（的值是（的值是（ B B B ））。

A ．59 B 59 B．．0 C 0 C．．27 D 27 D．．32 12．Diskfree(C)是用来返回C 盘的剩余空间。

盘的剩余空间。

A A．．1 B 1 B．．2 C 2 C．．3 D 3 D．．4 1313．．Delphi 中用什么函数来析构一个组件（中用什么函数来析构一个组件（ C C C ））。

A ．Constructor B B．．Destroy C C．．Free D D．．Create 14．下面的数据类型不属于在Object Pascal 语法中的数据类型是（C ）。

A ．布尔型．布尔型 B B B．整型．整型．整型 C C C．关系型．关系型．关系型 D D D．字符型．字符型．字符型
1515．．Type aarrays=[1…8,1…5] of integer ，该类型定义了多少个下标元素（，该类型定义了多少个下标元素（，该类型定义了多少个下标元素（ D D D ））。

A ．45 B 45 B．．54 C 54 C．．48 D 48 D．．40 二、判断题（每小题1分，共10分）
1．MediaPlayer 控件的AutoEnable 属性是用来控制该控件是否可用。

（ 错 ）
2．图形组件没有输入焦点，不能接受用户的输入，它只具有向用户显示的功能。

（ 对 ） 3．1、Pascal Pascal 语言中可以把一个实数赋值给一个整型变量，系统会自动取整。

语言中可以把一个实数赋值给一个整型变量，系统会自动取整。

（ 错 ） 4．所有类都有Name 属性。

（ 错 ）
5．variant 类型的变量被动态赋值为一个特定的数据类型后，不能再赋值为一个其它的数据类型。

（ 错 ） 6．函数MessageDlgPos 与MessageDlg 极为相似，只是MessageDlgPos 函数能够控制信息对话框的出现位置。

（ 对 ）
7．BitBtn 控件可以用来制作一个带图片的按钮，而SpeedButton 则不能。

（ 错 ） 8．Timer 组件常称为“定时器”，它每隔固定的时间间隔可以触发一个OnTimer 事件。

（ 对 ） 9．Tobject 是delphi 的基类，系统中的每一个类都是Tobject 的子类。

（ 对 ）
1010．在．在MDI 应用程序窗口中，如果将一个窗体设为父窗体，要将它的FormStyle 属性设为FsStayOnTop FsStayOnTop。

（ 错 ） 三、填空题（每空2分，共20分）
1．用于建立菜单项的下划线快捷方式的字符是 & & 。

2．BinBtn 组件的组件的 kind 属性预定义了一些常用的位图按钮种类。

3．Memo1.Lines.delete( 1 ); 是用来删除是用来删除TMemo 组件的第组件的第 2 2 2 行。

行。

行。

题目题目 得分得分
评卷人评卷人 一
题目题目 得分得分
评卷人评卷人
二
题目题目 得分得分
评卷人评卷人
三
考生班级考生班级
软件07-1
系主任系主任
考生姓名考生姓名
装 订 线
4．Delphi 有三种控制循环的语句：有三种控制循环的语句： repeat repeat repeat 语句，语句，语句， while while while 语句，语句，语句， for for for 语句。

语句。

语句。

5．在Delphi 的Dialog 标签中提供了多个专用对话框，其中包括： opendialog opendialog ，， savedialog savedialog ，， fontdialog fontdialog 。

6．关闭文件需要使用．关闭文件需要使用 closefile () 函数。

函数。

函数。

四、简答题（共20分）
1．简述什么是对象和类。

（4分）
在面向对象的程序分析和设计技术中，在面向对象的程序分析和设计技术中，“类”就是对具有相同属性和相同操作的一组相似对象的定义。

从另一个角度来看，对象就是类的一个实例。

从另一个角度来看，对象就是类的一个实例。

2．简述程序错误的类型有哪些。

（4分） （（1）设计期错误）设计期错误 （（2）编译期错误）编译期错误 （（3）运行期错误）运行期错误 （（4）逻辑错误）逻辑错误
3．根据下列代码，请回答。

（12分） Program Infoproc Uses Forms,
Unit1 in Unit1 in ‘‘Unit1.pas Unit1.pas’’{formInfoInput}, Unit2 in Unit2 in ‘‘Unit2.pas Unit2.pas’’{formInfoShow}; {$R *.res} Begin …… End.
问题1：以上代码是：以上代码是 项目项目项目//工程工程 文件的组成部分。

文件的组成部分。

文件的组成部分。

问题2：根据以上代码，可知项目文件名是：根据以上代码，可知项目文件名是 Infoproc Infoproc ，该项目文件包含，该项目文件包含2个单元文件，文件名分别是个单元文件，文件名分别是 Unit1 Unit1 Unit1 、、 Unit2 Unit2 ，它们对应的窗体名是，它们对应的窗体名是formInfoInpu formInfoInpu 、、 f ormInfoShow ormInfoShow 。

五、程序题（每小题10分，共20分）
1．填空：向一个已存在的文本文件后面追加一行文本（我成功的在这个文件后面加了一行文本）。

var
f: TextFile; begin
if OpenDialog1.( Execute ) then begin
AssignFile (f, OpenDialog1.FileName ); Append (f);
Writenln (f,Writenln (f,’我成功的在这个文件后面加了一行文本。

’’我成功的在这个文件后面加了一行文本。

’); Flush(f); CloseFile(f); end; end;
2．在窗体上面绘制出一条规则的余弦曲线，使其尺寸约为窗体的80%，写出编程步骤与代码。

，写出编程步骤与代码。

Procedure TForm1.FormPaint(sender:Tobject); var
x,y:real;
j,j,h:integer; begin
h:=form1.Height div 2; for i:=0 to form1.Width do begin
x:=i*(2*3.14/form1.Height); y:=cos(x);
j:=trunc(0.8*y*h)+h; canvas.Pixels[i,j]:=clRed: end; end; 题目题目 得分得分
评卷人评卷人
四
题目题目 得分得分
评卷人评卷人
五
考生班级考生班级
软件07-1
系主任系主任
考生姓名考生姓名
装 订 线
题目题目 一 二 三 四 五 六 七 总分总分 核分登分人核分登分人
得分得分
一、单选题（每小题2分，共30分）
1．Delphi 的所有类都是从什么类继承下来的（的所有类都是从什么类继承下来的（ B B B ））。

A ．Tcomponent B B．．Tobject C ．Tstream D D．．Tnull
2．定义构造函数时用到的保留字是（．定义构造函数时用到的保留字是（ C C C ））。

A ．Class B B．．.implementation C C．．create D D．．construction 3．下列组件中属于可视组件的是哪一个（ D D ））。

A ．Tdatasource B B．．Topendialog C C．．Ttable D D．．Tscrollbar
4．设有过程．设有过程 procedure pro(V AR x,y:integer); 变量变量 a,b 为整型变量，其值分别为为整型变量，其值分别为 5、6，则合法的过程调用语句是（，则合法的过程调用语句是（ D D D ））。

A ．Pro(5,6) B B．．pro(5,b) C C．．pro(a,6) D D．．pro(a,b) 5．下列组件中不能获取焦点的是（．下列组件中不能获取焦点的是（ B B B ））。

A A．．Tedit B B．．Tlabel C C．． Trichedit D D．．Ttreeview 6．定义抽象类必须使用的指令字是（．定义抽象类必须使用的指令字是（ A A A ））。

A ．Abstract B B．．virtual C C．．dynamic D D．．override ” 7．Delphi 是哪个公司的产品（是哪个公司的产品（ C C C ））。

A ． Microsoft B B．．IBM C C．．Borland D D．．DOM
8．窗体上放置有一个TEdit 类控件Edit1，当在Edit1中按下‘A ‘A’’键时触发的事件和事件顺序是（键时触发的事件和事件顺序是（ A A A ））。

A ．OnKeyDown->OnKeyPress->OnKeyUp B B．．OnKeyDown->OnKeyUp
C C．．OnKeyPress
D ．OnKeyDown->OnKeyUp->OnKeyPress 9．在．在 RadioGroup 组件中有组件中有 4 个单选框，当选中第个单选框，当选中第 2 个单选框时，个单选框时， RadioGroup 组件中的组件中的 ItemIndex 属性值应为（属性值应为（ B B B ））。

A A．．0 B 0 B．．1 C 1 C．．2 D 2 D．．3 1010．函数和过程的区别为（．函数和过程的区别为（．函数和过程的区别为（ A A A ））。

A A．函数执行后返回一个值，而过程不需返回值．函数执行后返回一个值，而过程不需返回值 B B．过程执行后返回一个值，而函数不需返回值．过程执行后返回一个值，而函数不需返回值
C ．过程在被调用时，能执行某种特殊功能并能返回到调用它的地方
D D．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方 1111．．32 AND 27 的值是（的值是（的值是（ B B B ））。

A ．59 B 59 B．．0 C 0 C．．27 D 27 D．．32 1212．窗体与数据模块的扩展名是（．窗体与数据模块的扩展名是（．窗体与数据模块的扩展名是（ B B B ））。

A A．．.dcu B B．．.dfm C C．．.pas D D．．.dpr 1313．．Delphi 中用什么函数来析构一个组件（中用什么函数来析构一个组件（ C C C ））。

A ．Constructor B B．．Destroy C C．．Free D D．．Create 1414．一个指针变量．一个指针变量．一个指针变量 ptr 的域成员的域成员 fs 访问的方法是（访问的方法是（ C C C ））。

A ．ptr->fs B B．．ptr.fs C C．．ptr^fs D D．．ptr@fs
1515．．Type aarrays=[1…8,1…5] of integer ，该类型定义了多少个下标元素（，该类型定义了多少个下标元素（，该类型定义了多少个下标元素（ D D D ））。

A ．45 B 45 B．．54 C 54 C．．48 D 48 D．．40 二、判断题（每小题1分，共10分）
1．函数MessageDlgPos 与MessageDlg 极为相似，只是MessageDlgPos 函数能够控制信息对话框的出现位置。

（ 对 ） 2．BitBtn 控件可以用来制作一个带图片的按钮，而SpeedButton 则不能。

（ 错 ） 3．MediaPlayer 控件的AutoEnable 属性是用来控制该控件是否可用。

（ 错 ）
4．图形组件没有输入焦点，不能接受用户的输入，它只具有向用户显示的功能。

（ 对 ） 5．1、Pascal Pascal 语言中可以把一个实数赋值给一个整型变量，系统会自动取整。

语言中可以把一个实数赋值给一个整型变量，系统会自动取整。

（ 错 ） 6．所有类都有Name 属性。

（ 错 ）
7．variant 类型的变量被动态赋值为一个特定的数据类型后，不能再赋值为一个其它的数据类型。

（ 错 ）
8．在MDI 应用程序窗口中，如果将一个窗体设为父窗体，要将它的FormStyle 属性设为FsStayOnTop FsStayOnTop。

（ 错 ） 9．Tobject 是delphi 的基类，系统中的每一个类都是Tobject 的子类。

（ 对 ）
1010．．Timer 组件常称为“定时器”，它每隔固定的时间间隔可以触发一个OnTimer 事件。

（ 对 ） 三、填空题（每空2分，共20分）
1．Delphi 有三种控制循环的语句：有三种控制循环的语句： repeat repeat repeat 语句，语句，语句， while while while 语句，语句，语句， for for for 语句。

语句。

语句。

2．Delphi 支持3种类型的注释：种类型的注释： {} 注释，注释，注释， (* *) 注释，注释，注释， // 注释。

注释。

注释。

3．所有可视化的VCL 控件都是从控件都是从 TControl TControl TControl 基类派生而来的。

基类派生而来的。

基类派生而来的。

题目题目 得分得分
评卷人评卷人 一
题目题目 得分得分
评卷人评卷人
二
题目题目 得分得分
评卷人评卷人
三
考生班级考生班级
软件07-1
系主任系主任
考生姓名考生姓名
装 订 线
4．用于建立菜单项的下划线快捷方式的字符是 & & 。

5．在设计阶段，利用Image 对象的对象的 picture picture picture 属性，可以加载一幅图片。

属性，可以加载一幅图片。

属性，可以加载一幅图片。

6．关闭文件需要使用．关闭文件需要使用 closefile () 函数。

函数。

函数。

四、简答题（共20分）
1．简述什么是对象和类。

（4分）
在面向对象的程序分析和设计技术中，在面向对象的程序分析和设计技术中，“类”就是对具有相同属性和相同操作的一组相似对象的定义。

从另一个角度来看，对象就是类的一个实例。

从另一个角度来看，对象就是类的一个实例。

2．简述程序错误的类型有哪些。

（4分） （（1）设计期错误）设计期错误 （（2）编译期错误）编译期错误 （（3）运行期错误）运行期错误 （（4）逻辑错误）逻辑错误
3．根据下列代码，请回答。

（12分） Program Infoproc Uses Forms,
Unit1 in Unit1 in ‘‘Unit1.pas Unit1.pas’’{formInfoInput}, Unit2 in Unit2 in ‘‘Unit2.pas Unit2.pas’’{formInfoShow}; {$R *.res} Begin …… End.
问题1：以上代码是：以上代码是 项目项目项目//工程工程 文件的组成部分。

文件的组成部分。

文件的组成部分。

问题2：根据以上代码，可知项目文件名是：根据以上代码，可知项目文件名是 Infoproc Infoproc ，该项目文件包含，该项目文件包含2个单元文件，文件名分别是个单元文件，文件名分别是 Unit1 Unit1 Unit1 、、 Unit2 Unit2 ，它们对应的窗体名是，它们对应的窗体名是formInfoInpu formInfoInpu 、、 f ormInfoShow ormInfoShow 。

五、程序题（每小题10分，共20分）
1．填空：向一个已存在的文本文件后面追加一行文本（我成功的在这个文件后面加了一行文本）。

var
f: TextFile; begin
if OpenDialog1.( Execute ) then begin
AssignFile (f, OpenDialog1.FileName ); Append (f);
Writenln (f,Writenln (f,’我成功的在这个文件后面加了一行文本。

’’我成功的在这个文件后面加了一行文本。

’); Flush(f); CloseFile(f); end; end;
2．在窗体上面绘制出一条规则的余弦曲线，使其尺寸约为窗体的80%，写出编程步骤与代码。

，写出编程步骤与代码。

Procedure TForm1.FormPaint(sender:Tobject); var
x,y:real;
j,j,h:integer; begin
h:=form1.Height div 2; for i:=0 to form1.Width do begin
x:=i*(2*3.14/form1.Height); y:=cos(x);
j:=trunc(0.8*y*h)+h; canvas.Pixels[i,j]:=clRed: end; end; 题目题目 得分得分
评卷人评卷人
四
题目题目 得分得分
评卷人评卷人
五。