1、用于显示文本框内容的属性是（ ）
a. text b. caption c. backstyle d. autosize
2、（ 类型变量不能作为for循环中的循环变量。
a. 字符 b. 枚举 c. 子界 d. 实数。
3、设a是布尔变量，其它是整型变量，下面正确的赋值语句是（ ）
a. x=y div 7 b. x:=y:=z+1 c. a:=x=y mod z d. x+y:=z
4、（ 不是delphi程序保留字。
a. and b. label c. copyd. do
5、下列类型中合法的是（ ）
a. type a=5..10b. type b=10..5;
c. type c=0..sqrt(10d. type d=10.0..20.0;
6、过程声明中多个不同类型的参数之间（ ）隔开。
a. 点句号 b. 冒号 c. 逗号 d. 分号。
7、函数和过程的区别是（ ）
a．函数执行后返回一个值，而过程不需返回值。
b．过程执行后返回一个值，而函数不需返回值。
c．过程在被调用时，能执行某种特殊功能并能返回到调用它的地方。
d．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方。
8、以下正确的枚举类型定义是：(
a) type weekdays = monday,tuesday,wednesday);
b) type colors = red, blue, green, red);
c) type num =(1..3, 8..10);
d) type realtype =(1.5, 2.5, 3);
9、以下不合法的数组是：(
a) arr:array of classb) arr:array of tbutton
c) arr:array of byted) arr:array of string
10、下列关于variant类型的说法不正确的是( )
a) variant类型的变量被动态赋值为一个特定的数据类型后，不能再赋值为一个其它的数据类型。
b) variant类型变量是无类型变量。
c) variant类型是可变类型，可对一些数据类型变化的数据进行操作。
d) variant类型有一个特殊的值null，表示不明的或丢失的数据。
11、自定义标识符的有效长度是前( )个字符。
a) 255 (b) 256c) 254d) 16
12、pascal语法中把字符串转换为小数的函数是( )
a) strtoreal (b) realtostr (c) floattostr (d) strtofloat
13、不是object passcal 数据类型的是( )
a) string (b) intc) char (d) real
14、下列符号中，( 可以作为用户自定义的标识符。
a) 4an (b) an4c) andd) ab&4
15、下列哪个常量说明语句是正确的( )
a) const x :=c < 16b) const x : 16;
c) const x :=16d) const x = 16;
1、object pascal语言中的注释有3种形式，分别是。
2、通常控制组件在窗体中的可见属性是 visible
3、已知 var a:array['a'..e',1..8] of real; 则数组a中包含的元素的个数为 40
4、假定x=2，y=1，z=0，（（x+y）>=3）and not ((y mod 2)=2)的值是 true
5、求1～100所有整数的累加和，若声明s,i: integer;，且有i:=1;s:=0;则使用如下**，请填写空格处缺少的条件。
repeat
s:=s+i;
i:=i+1;
until i>100
6、若a:=false; b:=false; c:=true; d:=20; ，执行下列语句。
if a then
d:=d-12
else if not b then
if c then
beginx:=10;
d:=d+3;
endelse
x:=34;
执行结束后，x的值为 10 ，d的值为 23 。
7、pascal单元扩展文件名是 .pas
8、复合语句是将多个语句用 begin 和 end 两个保留字括起来。
9、本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。设计界面和运行界面如图所示。其中，运算符是一个含有4个单选按纽的radiogroup1对象。
下面是单击“运算”按钮的事件处理程序，请根据功能要求完成程序填空。procedure tobject);/运算。
varx1,x2,y :integer;
beginx1 :=strtoint( ;
x2 :=strtoint( ;
case radiogroup1 .itemindex of
0: y :=x1 + x2 ;
1: y :=x1 - x2;
2: y :=x1 * x2;
3: y :=x1 div x2;
end;:= inttostr( y );end;
2. 说明什么是有序类型，并列举出4种或以上有序类型。
3. 请将星期一至星期日定义为枚举类型。
type weeks=(mon,tues,wedn,thur,fri,sat,sun);
vari:integer;
l:long; longint
beginl:=32769;
i:=l;end.
2、if n>37.5 then
amountearned:=(n-37.5)*hourlyrate*1.5+37.5*hourlyrate;
elseamountearned:= n*hourlyrate;
3、vars,i: integer;
begins:=0;
for i:=l00 to 1 do
s:=s+i;
end;4、procedure
var y,x:integer;
beginx:=100;
y:=25;
showmessage(inttostr(x/y));floattostr(x/y); inttostr(x div y)
end;1、定义一个包括学号、姓名、成绩成员的记录类型变量，输入10个学生的成绩，并按成绩从高到低的顺序输出。（使用记录类型和数据类型）
2、输入两个实数，通过选择号进行相应计算，并将结果显示出来。（case语句）
3、 三十六个人抬三十六块砖。每个男人挑两块，每个女人搬一块，二个小孩抬一块，问要多少男人，多少女人和多少小孩？
4、定义一个包括年、月、日成员的记录类型变量，将其转换成这一年的第几天并输出。应注意闰年的二月有29天。
补充作业答案
第二章静力学。1.求图示装置中a b两点间的压强差。已知h1 500mm，h2 200mm，h3 150mm，h4 250mm，h5 400mm，酒精，水银，水。解 1 1为等压面，有。而。由3 3为等压面，有。由 式联立，有。2.图为高度h 4m，宽度b 1m的柱形密闭高压水箱，在水箱底部连接一汞...
补充作业2 答案
1 下列组件中能获得输入焦点的是 c a.groupbox b.label c.editd.image 2 如果在程序运行时显示一个打开文件对话框，则可使用topendialog组件的 a 方法。a.execute b.open c.applyd.free 3 在delphi中，所谓mdi，意思是 ...
齿轮传动补充作业 1
1 设有一对标准直齿圆柱齿轮，已知齿轮的模数m 5mm，小 大齿轮的参数分别为 应力修正系数ysa1 1.56,ysa2 1.76 齿形系数yfa1 2.8,yfa2 2.28 许用应力，314mpa，314mpa。已算得小齿轮的齿根弯曲应力306mpa。试问 1 哪一个齿轮的弯曲疲劳强度较大？2 ...