阳泉开放大学Delphi程序设计形成性考核复习参考答案
Delphi是一种基于Pascal语言的集成开发环境,广泛应用于Windows平台的软件开发。在阳泉开放大学的Delphi程序设计课程中,形成性考核是课程的重要组成部分。下面是一份复习参考答案,希望对同学们的复习有所帮助。
一、选择题
1. 下列哪个不是Delphi的特点?
A. 可视化编程环境
B. 强大的数据库支持
C. 跨平台开发能力
D. 面向对象编程
答案:C
2. Delphi中,用于定义变量的关键字是?
A. var
B. const
C. type
D. procedure
答案:A
3. 下列哪个不是Delphi的数据类型?
A. Integer
B. String
C. Float
D. Boolean
答案:C
4. 下列哪个不是Delphi的控件?
A. Button
B. Label
C. Edit
D. Table
答案:D
5. 下列哪个不是Delphi的事件?
A. OnClick
B. OnChange
C. OnLoad
D. OnKeyPress
答案:C
二、填空题
1. Delphi中,用于判断条件的关键字是?
答案:if
2. Delphi中,用于循环的关键字是?
答案:for
3. Delphi中,用于定义常量的关键字是?
答案:const
4. Delphi中,用于定义函数的关键字是?
答案:function
5. Delphi中,用于定义过程的关键字是?
答案:procedure
三、编程题
1. 编写一个Delphi程序,实现输入两个整数,计算它们的和并输出。
答案:
```pascal
procedure TForm1.Button1Click(Sender: TObject);
var
num1, num2, sum: Integer;
begin
num1 := StrToInt(Edit1.Text);
num2 := StrToInt(Edit2.Text);
sum := num1 + num2;
ShowMessage('两个整数的和为:' + IntToStr(sum));
end;
```
2. 编写一个Delphi程序,实现输入一个字符串,判断它是否为回文字符串(正读和反读都一样),并输出判断结果。
答案:
```pascal
procedure TForm1.Button1Click(Sender: TObject);
var
str, reverseStr: string;
i: Integer;
begin
str := Edit1.Text;
reverseStr := '';
for i := Length(str) downto 1 do
reverseStr := reverseStr + str[i];
if str = reverseStr then
ShowMessage('是回文字符串')
else
ShowMessage('不是回文字符串');
end;
```
以上是阳泉开放大学Delphi程序设计形成性考核复习参考答案,希望对同学们的复习有所帮助。祝大家考试顺利!
阳泉开放大学Delphi程序设计形成性考核复习参考答案
Delphi是一种基于Pascal语言的集成开发环境,广泛应用于Windows平台的软件开发。在阳泉开放大学的Delphi程序设计课程中,学生需要通过形成性考核来检验他们对Delphi编程的掌握程度。下面是一份参考答案,供学生们复习参考。
一、选择题
1. 下列哪个不是Delphi的特点?
A. 面向对象
B. 可视化编程
C. 跨平台
D. 静态类型
答案:D
2. Delphi中用于定义变量的关键字是?
A. var
B. int
C. dim
D. def
答案:A
3. 下列哪个不是Delphi的数据类型?
A. Integer
B. String
C. Float
D. Boolean
答案:C
4. Delphi中用于循环的关键字是?
A. for
B. while
C. loop
D. repeat
答案:A
5. 下列哪个不是Delphi中的逻辑运算符?
A. and
B. or
C. not
D. xor
答案:D
二、填空题
1. Delphi中用于显示消息框的函数是?
答案:ShowMessage
2. Delphi中用于获取用户输入的函数是?
答案:InputBox
3. Delphi中用于将字符串转换为整数的函数是?
答案:StrToInt
4. Delphi中用于将整数转换为字符串的函数是?
答案:IntToStr
5. Delphi中用于打开文件对话框的组件是?
答案:OpenDialog
三、编程题
1. 编写一个Delphi程序,实现计算两个整数的和并显示结果的功能。
答案:
```delphi
procedure TForm1.Button1Click(Sender: TObject);
var
num1, num2, sum: Integer;
begin
num1 := StrToInt(Edit1.Text);
num2 := StrToInt(Edit2.Text);
sum := num1 + num2;
ShowMessage('两个整数的和为:' + IntToStr(sum));
end;
```
2. 编写一个Delphi程序,实现计算一个整数的阶乘并显示结果的功能。
答案:
```delphi
procedure TForm1.Button1Click(Sender: TObject);
var
num, factorial, i: Integer;
begin
num := StrToInt(Edit1.Text);
factorial := 1;
for i := 1 to num do
factorial := factorial * i;
ShowMessage('阶乘结果为:' + IntToStr(factorial));
end;
```
以上是阳泉开放大学Delphi程序设计形成性考核复习参考答案,希望对大家复习有所帮助。祝大家考试顺利!
报名联系方式
1、报名热线:13662661040(微信),0755-21017149,QQ:2864330758 郭老师
2、报名地址:深圳市龙华新区工业西路68号中顺商务大厦B704
華僑大學珠海開放大學函授站 2023年度面向港澳臺成人函授專升本招生簡章

微信扫码添加好友
如二维码无法识别,可拨打 13662661040 咨询。